Private Function Osoba(Ime As String, DatumRodjenja As Date, Optional Godina As Integer) As Integer
Dim Dani As Integer
Dani = Date - DatumRodjenja
Godina = Dani / 365
Osoba = Dani Mod 365
End Function
Private Function Mujo()
Dim StarostG As Integer
Dim JosDana As Integer

JosDana = Osoba("Mujo", "01.01.1957", StarostG)
MsgBox " Mujo ima: " & StarostG & " godina i " & JosDana & " Dana"
End Function