calcul varsta din data nasterii de tip...

[Catalin B.]

Iar daca tinem cont ca pentru cei care au prima cifra din cnp >=7, se ia in considerare secolul 20, formula pentru obtinerea datei de nastere care sa tina cont si de acest lucru va fi:
=CHOOSE(IF(OR(--MID(B2;1;1)<3;--MID(B2;1;1)>=7);1;2);DATE(19&MID(B2;2;2);MID(B2;4;2);MID(B2;6;2));DATE(20&MID(B2;2;2);MID(B2;4;2);MID(B2;6;2)))
iar formula completa va fi:
="Vârsta "&IF(ISEVEN(--MID(B2;1;1));"doamnei";"domnului")&" este de "&DATEDIF(CHOOSE(IF(OR(--MID(B2;1;1)<3;--MID(B2;1;1)>=7);1;2);DATE(19&MID(B2;2;2);MID(B2;4;2);MID(B2;6;2));DATE(20&MID(B2;2;2);MID(B2;4;2);MID(B2;6;2)));TODAY();"y")&" ani, "&DATEDIF(CHOOSE(IF(OR(--MID(B2;1;1)<3;--MID(B2;1;1)>=7);1;2);DATE(19&MID(B2;2;2);MID(B2;4;2);MID(B2;6;2));DATE(20&MID(B2;2;2);MID(B2;4;2);MID(B2;6;2)));TODAY();"ym")&" luni şi "&DATEDIF(CHOOSE(IF(OR(--MID(B2;1;1)<3;--MID(B2;1;1)>=7);1;2);DATE(19&MID(B2;2;2);MID(B2;4;2);MID(B2;6;2));DATE(20&MID(B2;2;2);MID(B2;4;2);MID(B2;6;2)));TODAY();"md")&" zile."

[slevy]

Se poate calcula simplu prin introducerea următorului cod:

Cod: Selectaţi tot

Public Function CalculVarsta(ByVal Date1 As Date) As String

'
'   Calculeaza varsta in ani, luni, zile
'
    Dim vMonths As Long
    Dim vDays As Long
    Dim vYears As Long
    Dim vDate1 As Date
      
    vDate1 = Date1
    vMonths = DateDiff("m", vDate1, Date)
    vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), Date)
    If vDays < 0 Then
        vMonths = vMonths - 1
        vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), Date)
    End If
    vYears = vMonths \ 12
    vMonths = vMonths Mod 12
    CalculVarsta = vYears & " ani, " & vMonths & " luni, " & vDays & " zile"
End Function

[Dr. Cloud]

@slevy de unde este copiat acel cod ?
La o simplă căutare pe Google, apar foarte multe rezultate cu cod asemănător şi nu prea cred că toată lumea foloseşte aceeaşi convenţie de termeni.
Google Search
Este ceva normal să recunoaştem munca altora şi de aceea, te rog să pui link-ul de unde te-ai inspirat.

Mulţumesc !

[slevy]

Se calculează ușor aplicând următoarea funcție modificată din ce am găsit la viewtopic.php?f=68&t=1048

Cod: Selectaţi tot

Public Function CalculVarsta(ByVal Date1 As Date) As String

'
'   Calculeaza varsta in ani, luni, zile
'
    Dim vMonths As Long
    Dim vDays As Long
    Dim vYears As Long
    Dim vDate1 As Date
      
    vDate1 = Date1
    vMonths = DateDiff("m", vDate1, Date)
    vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), Date)
    If vDays < 0 Then
        vMonths = vMonths - 1
        vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), Date)
    End If
    vYears = vMonths \ 12
    vMonths = vMonths Mod 12
    CalculVarsta = vYears & " ani, " & vMonths & " luni, " & vDays & " zile"
End Function

[adof]

am atasat un fisier exel care contine formulele invatate şi copiate de pe acest topic

pentru calcularea vârsrei din CNP

poate fi folosit daca se trag formulele în jos pt câti oameni se doreste

sper sa ajute pe cei care doresc sa il foloseasca sau sa aiba exemplu pt cei care doresc sa inveţe

eu va multumesc pt exemple