Calcul de l'age [Résolu]
cs_petchy
- 7 janv. 2009 à 09:06
- Messages postés
- 710
- Date d'inscription
- jeudi 20 février 2003
- Dernière intervention
- 19 mai 2015
- Messages postés
- 710
- Date d'inscription
- jeudi 20 février 2003
- Dernière intervention
- 19 mai 2015
- Calcul de l'age
- Calcule de votre age avec ans mois et jours - Codes sources - Visual Basic / VB.NET (Date & Heure)
- Calcule de l'age - Forum - Visual Basic
- Calculer l'age en annees, mois et jours - Codes sources - Visual Basic / VB.NET (Divers)
- Calculer l'age à partir d'une date de naissance (idéal pour un site communautaire ;-)). - Codes sources - PHP (Date / Heure)
- Calculer l'age en années, mois et jours - Codes sources - PHP (Date / Heure)
10 réponses
Meilleure réponse
- Messages postés
- 661
- Date d'inscription
- vendredi 2 décembre 2005
- Dernière intervention
- 23 mars 2011
Je viens de remarquer que ce n'est pas assez précis avec le nombre de mois et j'ai donc essayé avec le nombre de jours que j'ai divisé avec 365,25.
Mais j'avais le même problème, j'ai fini par trouver, ça venait de Math.Round. Il faut utiliser à la place Math.Truncate (pour tronquer le nombre)
Voici donc le code qui fonctionne correctement :
Private Sub
Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim datedenaissance As Date
Dim age As Integer
If mDate.Text = "" Or Not IsDate(mDate.Text) Then
MsgBox("Veuillez entrer une date correcte", MsgBoxStyle.Information, "Erreur !!!")
Exit Sub
End If
datedenaissance = CDate(mDate.Text)
age = DateDiff(DateInterval.Day, datedenaissance, Date .Today)
age = Math.Truncate(age / 365.25)
Label1.Text = age & " ans"
End Sub
++
Fauve
<hr size ="2" width="100%" />
Pensez : Réponse Acceptée
Mais j'avais le même problème, j'ai fini par trouver, ça venait de Math.Round. Il faut utiliser à la place Math.Truncate (pour tronquer le nombre)
Voici donc le code qui fonctionne correctement :
Private Sub
Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim datedenaissance As Date
Dim age As Integer
If mDate.Text = "" Or Not IsDate(mDate.Text) Then
MsgBox("Veuillez entrer une date correcte", MsgBoxStyle.Information, "Erreur !!!")
Exit Sub
End If
datedenaissance = CDate(mDate.Text)
age = DateDiff(DateInterval.Day, datedenaissance, Date .Today)
age = Math.Truncate(age / 365.25)
Label1.Text = age & " ans"
End Sub
++
Fauve
<hr size ="2" width="100%" />
Pensez : Réponse Acceptée
Avec quelques mots c'est encore mieux Ajouter un commentaire
a aidé 90 internautes ce mois-ci
- Messages postés
- 160
- Date d'inscription
- lundi 18 février 2008
- Dernière intervention
- 8 janvier 2010
- Messages postés
- 710
- Date d'inscription
- jeudi 20 février 2003
- Dernière intervention
- 19 mai 2015
- Messages postés
- 48
- Date d'inscription
- samedi 5 août 2006
- Dernière intervention
- 9 novembre 2009
- Messages postés
- 661
- Date d'inscription
- vendredi 2 décembre 2005
- Dernière intervention
- 23 mars 2011
Salut,
<hr size= "2" width="100%" />
Il y avait quelques petites erreurs :
1°) Il faut vérifier avant de faire la conversion que mDate contient au moins un caractère et que ceux
qui est rentré soit une date.
2°)
Dim
age
As
Integer
= DateDiff(DateInterval.Year, DateTime.Now, datedenaissance)
En écrivant cette ligne de code comme ci-dessus, l'age que tu vas récupérer sera négatif, il faut intervertir DateTime.Now avec datenaissance
<hr size="2" width="100%" />
Voici le code en entier :
Private
Sub
TextBox1_TextChanged(
ByVal
sender
As
System.Object,
ByVal
e
As
System.EventArgs)
Handles
TextBox1.TextChanged
Dim
datedenaissance As Date
Dim age As Integer
If mDate.Text = "" Or Not IsDate(mDate.Text) Then
MsgBox("Veuillez entrer une date correcte", MsgBoxStyle.Information, "Erreur !!!")
Exit Sub
End If
datedenaissance = CDate (mDate.Text)
age = DateDiff(DateInterval.Year, datedenaissance, DateTime.Now)
Label1.Text = age & " ans"
End
Sub
<hr size="2" width="100%" />
++
Fauve
<hr size="2" width="100%" />
Pensez : Réponse Acceptée
<hr size= "2" width="100%" />
Il y avait quelques petites erreurs :
1°) Il faut vérifier avant de faire la conversion que mDate contient au moins un caractère et que ceux
qui est rentré soit une date.
2°)
Dim
age
As
Integer
= DateDiff(DateInterval.Year, DateTime.Now, datedenaissance)
En écrivant cette ligne de code comme ci-dessus, l'age que tu vas récupérer sera négatif, il faut intervertir DateTime.Now avec datenaissance
<hr size="2" width="100%" />
Voici le code en entier :
Private
Sub
TextBox1_TextChanged(
ByVal
sender
As
System.Object,
ByVal
e
As
System.EventArgs)
Handles
TextBox1.TextChanged
Dim
datedenaissance As Date
Dim age As Integer
If mDate.Text = "" Or Not IsDate(mDate.Text) Then
MsgBox("Veuillez entrer une date correcte", MsgBoxStyle.Information, "Erreur !!!")
Exit Sub
End If
datedenaissance = CDate (mDate.Text)
age = DateDiff(DateInterval.Year, datedenaissance, DateTime.Now)
Label1.Text = age & " ans"
End
Sub
<hr size="2" width="100%" />
++
Fauve
<hr size="2" width="100%" />
Pensez : Réponse Acceptée
- Messages postés
- 710
- Date d'inscription
- jeudi 20 février 2003
- Dernière intervention
- 19 mai 2015
- Messages postés
- 661
- Date d'inscription
- vendredi 2 décembre 2005
- Dernière intervention
- 23 mars 2011
Dans ce cas, il faut alors récupérer le nombre de mois au lieu de l'année car je pense que DateDiff doit arrondir au supérieur.
En récupérant le nombre de mois, on pourra nous même effectuer la conversion et être plus précis.
Voici le code :
P
rivate Sub
TextBox1_TextChanged( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
Dim datedenaissance As Date
Dim month, age As Integer
If mDate.Text = "" Or Not IsDate(mDate.Text) Then
MsgBox("Veuillez entrer une date correcte", MsgBoxStyle.Information, "Erreur !!!")
Exit Sub
End If
datedenaissance = CDate(mDate.Text)
month = DateDiff(DateInterval.Month, datedenaissance, Date .Today)
age = Math.Round(month / 12, 0, MidpointRounding.AwayFromZero)
Label1.Text = age & " ans"
End Sub
++
Fauve
<hr size ="2" width="100%" />
Pensez : Réponse Acceptée
En récupérant le nombre de mois, on pourra nous même effectuer la conversion et être plus précis.
Voici le code :
P
rivate Sub
TextBox1_TextChanged( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
Dim datedenaissance As Date
Dim month, age As Integer
If mDate.Text = "" Or Not IsDate(mDate.Text) Then
MsgBox("Veuillez entrer une date correcte", MsgBoxStyle.Information, "Erreur !!!")
Exit Sub
End If
datedenaissance = CDate(mDate.Text)
month = DateDiff(DateInterval.Month, datedenaissance, Date .Today)
age = Math.Round(month / 12, 0, MidpointRounding.AwayFromZero)
Label1.Text = age & " ans"
End Sub
++
Fauve
<hr size ="2" width="100%" />
Pensez : Réponse Acceptée
- Messages postés
- 17308
- Date d'inscription
- mercredi 2 janvier 2002
- Dernière intervention
- 22 août 2018
- Messages postés
- 661
- Date d'inscription
- vendredi 2 décembre 2005
- Dernière intervention
- 23 mars 2011
- Messages postés
- 710
- Date d'inscription
- jeudi 20 février 2003
- Dernière intervention
- 19 mai 2015
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.