Ako pretpostavimo da poredis datum rodjenja i trenutni datum onda je to:
Code:
Private Function PrikazStarosti(ByVal DatumRodjenja As Date) As String
Dim intMesec As Integer
Dim strYear As String
Dim strMonth As String
intMesec = DateDiff("m", DatumRodjenja, Date)
strYear = CStr(intMesec \ 12)
strYear = String(2 - Len(strYear), "0") & strYear
strMonth = CStr(intMesec Mod 12)
strMonth = String(2 - Len(strMonth), "0") & strMonth
PrikazStarosti = strYear & strMonth
End Function
Ovim imas preciznost na nivou godine, jer se koristi mesec za obracun. U slucaju da se porede 31. decembar 2005 i 01. januar 2006 funkcija ce ti vratiti 0 godina i 1 mesec, a da si uzeo broj dana za obracun mogao bi da dobijes preciznost u mesecima, ali onda funkcija izgleda puno drugacije i komplikovanije - eto ti domaci zadatak (vodi racuna o prestupnim godinama).
[Ovu poruku je menjao goranvuc dana 03.02.2006. u 10:24 GMT+1]