Calcul age à partir d'un textebox

[houssine77]

Bonjour le forum

je vouderai un coup de main pour savoir comment afficher l'age à partir de la date de naissance je m'explique

j'ai textebox date de naissance et un label je vouderai qu'il m'affiche l'age systematiquement j'ai recuper cette source par contre je bloc ou la mettre et comment la faire fonctionner

Public Function age(Tbx_DateNaissance As Date)
Dim a As Integer
Dim année_nai As Integer
Dim mois_nai As Integer
Dim jour_nai As Integer
Dim année As Integer
Dim mois As Integer
Dim jour As Integer
année_nai = DateTime.Year(Tbx_DateNaissance)
mois_nai = DateTime.Month(Tbx_DateNaissance)
jour_nai = DateTime.Day(Tbx_DateNaissance)

année = DateTime.Year(Date)
mois = DateTime.Month(Date)
jour = DateTime.Day(Date)

If mois_nai > mois Then age = a - 1
If mois_nai < mois Then age = a
If mois_nai = mois Then GoTo line1

GoTo lastline
line1:
If jour_nai > jour Then age = a - 1
If jour_nai <= jour Then age = a
lastline:
End Function

merci d'avance de m'aider

 

[Guest]

Re : Calcul age à partir d'un textebox

Bonjour Houssine,

Si tu veux l'âge en nombre d'années et que ton textbox s'appelle TextBox1 tu peux faire:

Private Sub TextBox1_AfterUpdate()
    If IsDate(TextBox1) And Year(TextBox1) < Year(Date) Then
    Label1.Caption = Int((Date - CDate(TextBox1)) / 365.25) & " an(s)"
    End If
End Sub

Sinon avec ta fonction:

Private Sub TextBox1_AfterUpdate()
    If IsDate(TextBox1) And Year(TextBox1) < Year(Date) Then
    Label1.Caption = age(cdate(Textbox1.text)) & " an(s)"
    End If
End Sub

A+

 

[houssine77]

Re : Calcul age à partir d'un textebox

Re le forum

Merci HASCO pour ta reponse j'ai essayer ca marche mais il m'affiche 0 age(s)
la j'avoue je suis largué

 

[Guest]

Re : Calcul age à partir d'un textebox

Re,

Alors passe nous un exemple de ton fichier anonymisé et <48ko

A+

 

[houssine77]

Re : Calcul age à partir d'un textebox

re le forum
vous trouverez ci joint le fichier

 

[Guest]

Re : Calcul age à partir d'un textebox

Re,

Le fichier est resté dans les tuyaux emmêlés de l'internet?

A+

 

[houssine77]

Re : Calcul age à partir d'un textebox

Re à tous
voila le lien de mon fichier Cijoint.fr - Service gratuit de dépôt de fichiers

merci HASCO

 

[Guest]

Re : Calcul age à partir d'un textebox

Re,

fichier sur le forum, surtout s'il fait 45ko!!!!

Bouton gérer les pièces jointes en bas dans l'éditeur avancé des messages.

A+