0/5 (4 avis)
Snippet vu 22 326 fois - Téléchargée 64 fois
Function CalculAge(DateN As String, DateCS As String) As String If IsDate(DateN) = False Then Exit Function If IsDate(DateCS) = False Then Exit Function Dim jN1, jC1, mN1, mC1, aN1, aC1 As Integer Dim Jage, Mage, Aage As Integer Dim Jdif As Integer jN1 = Day(DateN) jC1 = Day(DateCS) mN1 = Month(DateN) mC1 = Month(DateCS) aN1 = Year(DateN) aC1 = Year(DateCS) If aC1 < aN1 Then Exit Function If aC1 = aN1 And mC1 < mN1 Then Exit Function If aC1 = aN1 And mC1 = mN1 And jC1 < jN1 Then Exit Function If aC1 = aN1 And mC1 = mN1 And jC1 = jN1 Then Mage = 0 Jage = 0 Aage = 0 GoTo caline1 End If ' ' Permet de savoir le nombre de jours du mois (fevrier inclus) Dim sdt1 As Date Dim sdt2 As Date sdt1 = DateValue("1" & "/" & mN1 & "/" & aN1) sdt2 = DateValue("1" & "/" & mN1 + 1 & "/" & aN1) Jdif = DateDiff("d", sdt1, sdt2) ' ' If jC1 < jN1 Then If mC1 > mN1 Then Mage = (mC1 - 1) - mN1 Jage = (jC1 + Jdif) - jN1 Aage = aC1 - aN1 GoTo caline1 End If If mC1 = mN1 Then Aage = aC1 - 1 - aN1 Mage = (mC1 + 11) - mN1 Jage = (jC1 + Jdif) - jN1 GoTo caline1 End If If mC1 < mN1 Then Mage = (mC1 + 11) - mN1 Jage = (jC1 + Jdif) - jN1 Aage = aC1 - 1 - aN1 GoTo caline1 End If End If If jC1 >= jN1 Then If mC1 > mN1 Then Jage = jC1 - jN1 Mage = mC1 - mN1 Aage = aC1 - aN1 GoTo caline1 End If If mC1 = mN1 Then Jage = jC1 - jN1 Mage = mC1 - mN1 Aage = aC1 - aN1 GoTo caline1 End If If mC1 < mN1 Then Jage = jC1 - jN1 Mage = (mC1 + 12) - mN1 Aage = aC1 - 1 - aN1 GoTo caline1 End If End If caline1: CalculAge = Aage & "a " & Mage & "m " & Jage & "j" End Function
26 juil. 2003 à 03:26
8 juin 2002 à 09:29
27 avril 2002 à 00:37
a la place de :
Dim sdt1 As Date
Dim sdt2 As Date
sdt1 = DateValue("1" & "/" & mN1 & "/" & aN1)
sdt2 = DateValue("1" & "/" & mN1 + 1 & "/" & aN1)
Jdif = DateDiff("d", sdt1, sdt2)
'
il faut mettre :
If mN1 <> 12 Then
Dim sdt1 As Date
Dim sdt2 As Date
sdt1 = DateValue("1" & "/" & mN1 & "/" & aN1)
sdt2 = DateValue("1" & "/" & mN1 + 1 & "/" & aN1)
Jdif = DateDiff("d", sdt1, sdt2)
Else
Jdif = 31
End If
25 oct. 2001 à 15:18
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.