Imam rešenje kada želim samo godine starosti..ali da li postoji način da se vidi starost u godinama i mesecima...
Kako dobiti starost u tipa ggmmdd na osnovu JMBG ili datuma rodjenja?
Zaključano
Zakačeno
Koristi funkciju DateDiff()
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...
izmenjeno 1 put, poslednji put goranvuc 03.02.2006. u 10:24
Izmene poruke
- goranvuc03.02.2006. u 10:24zapis iz teksta poruke
Ako pretpostavimo da poredis datum rodjenja i trenutni datum onda je to:
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).
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
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).