Macro openoffice
JC311
Messages postés
2
Statut
Membre
-
dubcek Messages postés 18627 Date d'inscription Statut Contributeur Dernière intervention -
dubcek Messages postés 18627 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour
Je me lance dans un programme complexe sous open office, et j'ai besoin d'aide.
Je cherche un macro qui me donne l'age exacte d'une personne à l'instant T et la même macro mais pour le 31/12.
Je me lance dans un programme complexe sous open office, et j'ai besoin d'aide.
Je cherche un macro qui me donne l'age exacte d'une personne à l'instant T et la même macro mais pour le 31/12.
Configuration: Linux Debian Firefox 2.1
3 réponses
-
Bonjour,
J'avais fait une telle fonction sur excel.
Je ne connais pas open office mais tu pourras sans doute l'adapter ou t'en inspirer.
Public Function Age(ByVal Date_de_naissance As Date, Optional ByVal Date_ As Date) As Long
Dim da1, da2 As Date
Dim a1, mj1, a2, mj2, r As Long
If IsDate(Date_de_naissance) And Date_de_naissance <> 0 Then
da1 = Date_de_naissance
da2 = Date_
If da2 = 0 Then da2 = Now()
a1 = Year(da1)
mj1 = Month(da1) * 100 + Day(da1)
a2 = Year(da2)
mj2 = Month(da2) * 100 + Day(da2)
r = a2 - a1
If mj1 > mj2 Then r = r - 1
Age = r
Else
Age = 0
End If
End Function
Avec 2 parametres à lui passer:
Date1 = Date de naissance
Date2 = Date à laquelle calculer l'age (Optionnelle, valeur par défaut : aujourd'hui)
cdt
eric -
Merci pour la réponse.
Mais je suis nouveau dans la programation et je ne connais pas assez bien les termes sous open office. -
hello
un peu de lecture : Éléments de programmation des macros dans OpenOffice.org
http://www.openoffice.org/fr/Documentation/Guides/Andrew5.pdf
