calculer un âge

"Geo" <Geo@sans.pub> a écrit dans le message news:
uocj74G3DHA.2700@tk2msftngp13.phx.gbl...

le Grand Jules l'a dit:
"De Populi Gallorum, Belgi Bravissimi sunt !"
Es-tu certain qu'il était grand ?

Les césars sont plutôt du genre comprimés ? non ?
- Astérix le voyait comme petit, mais à partir du moment où l'Histoire s'en

souvient, ce ne peut être qu'un grand Homme, comme Napoléon, Hitler, Sadam
et Busch and Co. Tous ce sont cassé la g ...dans leurs conquêtes.

Sur la question de la langue de programmation, dans word, c'est pire que
dans Excel.

En Excel tu as les noms de fonctions en français, ben en word même les
champs poussent en anglais :-(

Et ils ont tellement mauvaise conscience qu'ils ont gardé les noms en
français dans l'aide.

Sinon si on peut t'aider à en remontrer à ton épouse sur word, on se
fera un plaisir. :-D
- C'est très gentil à toi et je t'en remercie. J'y penserai.

Geo de la douce Touraine (France)
Jacques, de Liège, comme le sirop.

Par contre, j'attend toujours un programmeur (non superfétatoire
:-p)

sur le NG Outlook, car je n'ai pas le temps de m'y investir.

Pas le temps, moi non plus. Je viens juste de commencer avec Publisher
et je n'ai pas encore terminé avec Excel, Word et PowerPoint.

Salut,
voici une fonction qui le fait :
Function age(date_Naissance, date_du_jour)
'format mois/jour/annee
dtAnni = DateSerial(Year(date_du_jour), Month(date_Naissance),
Day(date_Naissance))
nbAn = (dtAnni - date_Naissance) 365.25
nbJ = date_du_jour - dtAnni
nbM = 0
mois = Month(dtAnni) + 1
nbJM = Day(DateSerial(Year(dtAnni), mois, 1) - 1)
fl = nbJ < 0
nbJ = -nbJ
nbAn = nbAn - 1
Do Until nbJM > nbJ
nbM = nbM + 1
nbJ = nbJ - nbJM
mois = mois - 1
nbJM = Day(DateSerial(Year(dtAnni), mois, 1) - 1)
Loop
If fl Then
nbJ = nbJM - nbJ
nbM = 12 - nbM - 1
End If
age = IIf(nbAn > 0, nbAn & " an", "") & IIf(nbAn > 1, "s ", " ") & _
IIf(nbM > 0, nbM & " mois ", "") & _
IIf(nbJ > 0, nbJ & " jour" & IIf(nbJ > 1, "s", ""), "")
End Function
'attention au format #mm jj aaaa# si on utilise #date#
on peut créer une zone de texte (TextBox1) qui utilise cette fonction par
exemple comme ceci :
Private Sub TextBox1_LostFocus()
With Me.TextBox1
If IsDate(.Value) Then
.Value = age(CDate(.Value), Date) ' age aujourd'hui
.AutoSize = True
Else
If Me.TextBox1.Value <> "" Then
MsgBox "Date obligatoire"
.Value = "" 'rab
End If
End If
End With
End Sub
'calcule l'age au jour date (date du jour)
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
"ND" <anonymous@discussions.microsoft.com> a écrit dans le message de news:
0ccc01c3daa0$6c535910$a101280a@phx.gbl...
Bonjour,

Y a t il une formule pour calculer l'âge d'une personne à
partir de sa date de naissance se trouvant avec le format
13/09/1975.

Merci d'avance

ND