Re: Nb de Mois et jours | Sujet: Re: Nb de Mois et jours par Anonyme sur 9/3/2006 10:02:34
// Tiens si tu veux , j'ai apporté une petite modification qui corrige l'erreur
FONCTION Calcul_Age(_DateNaissance="",_DateButoire=DateSys())
madate est une Date
DatedeFin est une chaîne=EntierVersDate(DateVersEntier(_DateButoire)+1)
// On ajoute un jour à la date butoire car apparament le dernier n'est pas compté dans la fonction
// Ce doit être entre et entre
CalCulRetour est composé de
Annee est un entier
Mois est un entier
Jour est un entier
FIN
madate=Age(_DateNaissance,DatedeFin)
CalCulRetour.Jour =madate..Jour
CalCulRetour.Mois =madate..Mois
CalCulRetour.Annee =madate..Année
RENVOYER CalCulRetour
//Pour récupérer dans la fenêtre
CalculRetour est composé de
annee est un entier
Mois est un entier
Jour est un entier
FIN
CalculRetour=Calcul_Age("20060101","20060131")
Trace("An "+CalculRetour.annee,+...
" Mois "+CalculRetour.mois,+...
" Jour "+CalculRetour.Jour)
et En plus cela fonctionne !!!!
|
|
Connexion
Menu
Chercher WDForge
Chercher Web
Partenaires
|