Macro openoffice
Fermé
JC311
Messages postés
2
Date d'inscription
samedi 15 septembre 2007
Statut
Membre
Dernière intervention
17 septembre 2007
-
15 sept. 2007 à 09:53
dubcek Messages postés 18756 Date d'inscription lundi 15 janvier 2007 Statut Contributeur Dernière intervention 18 décembre 2024 - 17 sept. 2007 à 14:28
dubcek Messages postés 18756 Date d'inscription lundi 15 janvier 2007 Statut Contributeur Dernière intervention 18 décembre 2024 - 17 sept. 2007 à 14:28
A voir également:
- Macro openoffice
- Telecharger openoffice - Télécharger - Suite bureautique
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Macro word - Guide
- Jitbit macro recorder - Télécharger - Confidentialité
- Macro logiciel - Télécharger - Organisation
3 réponses
eriiic
Messages postés
24603
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
15 décembre 2024
7 247
15 sept. 2007 à 11:19
15 sept. 2007 à 11:19
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
JC311
Messages postés
2
Date d'inscription
samedi 15 septembre 2007
Statut
Membre
Dernière intervention
17 septembre 2007
17 sept. 2007 à 08:03
17 sept. 2007 à 08:03
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.
dubcek
Messages postés
18756
Date d'inscription
lundi 15 janvier 2007
Statut
Contributeur
Dernière intervention
18 décembre 2024
5 622
17 sept. 2007 à 14:28
17 sept. 2007 à 14:28
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