[ DSavic @ 02.02.2006. 14:46 ] @
Imam rešenje kada želim samo godine starosti..ali da li postoji način da se vidi starost u godinama i mesecima...
[ goranvuc @ 02.02.2006. 15:31 ] @
Koristi funkciju DateDiff()
[ DSavic @ 03.02.2006. 07:35 ] @
Ajde pokaži kako...elem..meni treba da prikažem starost u obliku yymm..a ne koliko je meseci prošlo od datuma do datuma...ili samo godina...
[ goranvuc @ 03.02.2006. 09:16 ] @
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]