Macro openoffice

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