Urgent!!! convertion age...
sonoboss
Messages postés
178
Date d'inscription
lundi 17 juin 2002
Statut
Membre
Dernière intervention
2 octobre 2007
-
21 janv. 2003 à 14:37
DHKold Messages postés 153 Date d'inscription vendredi 6 décembre 2002 Statut Membre Dernière intervention 29 mai 2005 - 21 janv. 2003 à 15:20
DHKold Messages postés 153 Date d'inscription vendredi 6 décembre 2002 Statut Membre Dernière intervention 29 mai 2005 - 21 janv. 2003 à 15:20
3 réponses
DHKold
Messages postés
153
Date d'inscription
vendredi 6 décembre 2002
Statut
Membre
Dernière intervention
29 mai 2005
2
21 janv. 2003 à 14:56
21 janv. 2003 à 14:56
C'est simple, tu fais:
age = 8.23
an = (age \ 1)
mois = (age - age \ 1) * 12
jours = Int((mois - Int(mois)) * 30.5)If an > 0 Then age2 an & " an": If age > 1 Then age2 age2 & "s"
If Int(mois) > 0 Then age2 = age2 & " et " & Int(mois) & " mois"
If jours > 0 Then age2 = age2 & " et ~" & jours & " jours"
[mailto:DHkold@hotmail.com DHKold]
age = 8.23
an = (age \ 1)
mois = (age - age \ 1) * 12
jours = Int((mois - Int(mois)) * 30.5)If an > 0 Then age2 an & " an": If age > 1 Then age2 age2 & "s"
If Int(mois) > 0 Then age2 = age2 & " et " & Int(mois) & " mois"
If jours > 0 Then age2 = age2 & " et ~" & jours & " jours"
[mailto:DHkold@hotmail.com DHKold]
DHKold
Messages postés
153
Date d'inscription
vendredi 6 décembre 2002
Statut
Membre
Dernière intervention
29 mai 2005
2
21 janv. 2003 à 15:00
21 janv. 2003 à 15:00
oups, j'a fé un fôte ;-)
an = Int(age / 1)
mois = (age - an) * 12
voilà le reste est OK
an = Int(age / 1)
mois = (age - an) * 12
voilà le reste est OK
DHKold
Messages postés
153
Date d'inscription
vendredi 6 décembre 2002
Statut
Membre
Dernière intervention
29 mai 2005
2
21 janv. 2003 à 15:20
21 janv. 2003 à 15:20
Euh, dsl mais j'ai encore modifié le code pour augmenter sa précision ;)
Dim age As Double
age = 8.3366
an = Int(age / 1)
mois = (age - an) * 12
jours = ((mois - Int(mois)) / 12) * 365If an > 0 Then age2 an & " an": If age > 1 Then age2 age2 & "s"
If Int(mois) > 0 Then age2 = age2 & " et " & Int(mois) & " mois"
If Int(jours) > 0 Then age2 = age2 & " et ~" & Int(jours) & " jours"
Et cette fois c'est la version finale, tu récupère la date dans age2. :-p
Dim age As Double
age = 8.3366
an = Int(age / 1)
mois = (age - an) * 12
jours = ((mois - Int(mois)) / 12) * 365If an > 0 Then age2 an & " an": If age > 1 Then age2 age2 & "s"
If Int(mois) > 0 Then age2 = age2 & " et " & Int(mois) & " mois"
If Int(jours) > 0 Then age2 = age2 & " et ~" & Int(jours) & " jours"
Et cette fois c'est la version finale, tu récupère la date dans age2. :-p
