Nombre d'années(age)
Contenu du snippet
Public Function Age(ByVal Birthdate As System.DateTime) As Long
Try
Dim CurrentDate As System.DateTime = System.DateTime.Today
Select Case Month(Birthdate)
Case Is < Month(System.DateTime.Today)
Age = DateDiff("YYYY", Birthdate, Now())
Case Is = Month(CurrentDate)
Select Case (Birthdate.Day)
Case Is < (CurrentDate.Day)
Age = DateDiff("YYYY", Birthdate, Now())
Case Is = (CurrentDate.Day)
Age = DateDiff("YYYY", Birthdate, Now())
Case Is > (CurrentDate.Day)
Age = DateDiff("YYYY", Birthdate, Now()) - 1
End Select
Case Is > Month(CurrentDate)
Age = DateDiff("YYYY", Birthdate, Now()) - 1
Case Else
Age = 0
End Select
Catch ex As System.Exception
'Error handling code does here
End Try
End Function
Compatibilité : VB 2005, VB 2008
Disponible dans d'autres langages :
A voir également
- Nombre d'années(age)
- Nombre semaine année - Forum C / C++ / C++.NET
- Calculateur d âge ✓ - Forum VB.NET
- Convertir jours en années mois jours ✓ - Forum VB.NET
- Générateur de nombre ✓ - Forum PHP
- Nombre premier ✓ - Forum C / C++ / C++.NET
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.