calcul varsta din data nasterii de tip...
-
- Moderator
- Mesaje: 813
- Membru din: Vin Sep 09, 2011 4:05 pm
- Localitate: Iaşi
Re: calcul varsta din data nasterii de tip...
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."
=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."
Probleme să fie, că soluţii se găsesc...
Re: calcul varsta din data nasterii de tip...
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
Re: calcul varsta din data nasterii de tip...
@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 !
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 !
Re: calcul varsta din data nasterii de tip...
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
Re: calcul varsta din data nasterii de tip...
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
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
Nu aveţi permisiunea de a vizualiza fişierele ataşate acestui mesaj.