Predmet:Re: Skola Vb-a za napredne
Ja sam htio sve da napravim u jednoj proceduri ali ideja mi nije bas neka.
Mogli smo mi kroz optional godina i poslati neki parametar i opet da vratimo godine, takodje smo mogli vratiti godine kroz neki drugi parametar ulaza.
PreuzmiIzvorni kôd (Visual Basic):Public Function Osoba(Ime As String, DatumRodjenja As Date, Optional Godina As Integer) As Integer
Dim Dani As Integer
Dani = Date - DatumRodjenja
Godina = Dani / 365
Ime = Dani / 365
Osoba = Dani Mod 365
End Function
Private Function Mujo()
Dim StarostG As Integer
Dim JosDana As Integer
Dim Ime As String
Ime = "Mujo"
JosDana = Osoba(Ime, "01.01.1957", StarostG)
MsgBox " MujoIma: " & Int(Ime) & " godina i " & JosDana & " Dana"
End Function
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.