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