FORUM WINDEV

Bonjour à tous j'ai besoin de vos lumières chère communuaté Windevienne

J'ai une table mémoire consistué comme suite une colonne nbres de jour, Anné, Mois, Jour

Peut-on convertir un nombre entier en Anné, mois et jour? Ex: j'ai 2000 JOURS dans la cellule de la table colonne nbres de jour

En sortie de ligne de cette cellule je souhaite mettre un code qui va me convertir 2000 en anné, en mois et jour

Et le resultat va être afficher chacun dans la colonne anné, la colonne mois et la colonne jour.

Est ce possible ou suis-je dans un mauvais chemin pour obtenir ce resultat?

Cordialement
James

Bonjour,

Une solution...

Code clic bouton pour tester...

Code: Tout sélectionner

nNbrJour est un entier = 2000   //Ou champ de saisie numérique
dDateMaintenant est une Date = DateSys() //Ou champ de saisise date
dDateAutre est une Date
dDateMaintenant..Jour -= nNbrJour    //Avant maintenant
//dDateMaintenant..Jour += nNbrJour  //Après maintenant
dDateAutre = dDateMaintenant
Trace(dDateAutre..Jour, dDateAutre..Mois, dDateAutre..Année)
Trace( DateVersJourEnLettre(dDateAutre), dDateAutre..Jour, DateVersMoisEnLettre(dDateAutre), dDateAutre..Année)


Boujour Mr Sami

J'ai testé le code sa marche dans le sens de trouver la date de début suite à un nombre de jour.

Ce que je cherche est de trouvé combien d'anné, de mois et de jour il y a dans un nombre de jour donné. Ex: 761 jours = 2 ans 1 mois
J'ai cherché dans le forum PCSOFT et dans WD16 il y a une commande AGE qui permet de donné se genre de resultat.
N'est-il pas possible de le faire aussi sur WD9?
Cordialement.
James

Bonjour,

Code: Tout sélectionner

Nbjour est un entier = 761

vl_annee  est un entier = PartieEntière(Nbjour/365.25)
vl_mois    est un entier = PartieEntière((Nbjour - (365.25*vl_annee))/30.4375)
vl_jour    est un entier = PartieEntière(Nbjour - (vl_mois*30.4375) - (vl_annee*365.25))

Trace(vl_annee + " / "+vl_mois+"  /  "+vl_jour)


devrait faire l'affaire

mais la fonction age peut aussi te donner la même chose car en fait ton nombre de jour est bien une différence entre 2 dates donc en l'envoyant dans AGE tu auras les même infos

Code: Tout sélectionner

MonAge = Age("19790201", "20061025")
Info("Vous avez : "+Milieu(MonAge, 3, 2)+" ans "+Milieu(MonAge, 5, 2)+  " mois "+Milieu(MonAge, 7, 2)+" jours")


Comme toujours, je lis trop vite les questions...

En effet <âge> n'est pas encore une fonction WD9 et la procédure d'Emidev et parfaite.

Autant pour moi...