Macro openoffice
JC311
Messages postés
2
Date d'inscription
Statut
Membre
Dernière intervention
-
dubcek Messages postés 18789 Date d'inscription Statut Contributeur Dernière intervention -
dubcek Messages postés 18789 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.
A voir également:
- Macro openoffice
- Openoffice - Télécharger - Suite bureautique
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Jitbit macro recorder - Télécharger - Confidentialité
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Macro maker - Télécharger - Divers Utilitaires
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
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.
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
un peu de lecture : Éléments de programmation des macros dans OpenOffice.org
http://www.openoffice.org/fr/Documentation/Guides/Andrew5.pdf