PC SOFT

FORUMS PROFESSIONNELS
WINDEVWEBDEV et WINDEV Mobile

Accueil → WINDEV 2024 → nom des mois entre deux dates
nom des mois entre deux dates
Débuté par saber knani, 23 jan. 2018 21:39 - 7 réponses
Posté le 23 janvier 2018 - 21:39
salut à tous,

ya t-il une solution pour afficher les nom des mois entre deux dates données exemple extraire les nom des mois et des jours dans chaque mois entre 3/3/2018 et 20/7/2018? 9a me parait très dificile :-(
Membre enregistré
948 messages
Popularité : +30 (92 votes)
Posté le 23 janvier 2018 - 21:41
Coucou,

Tu as essayer d'utiliser DateVersChaine ?
Reference: http://doc.pcsoft.fr/?3027025

--
In üs we trust.
Autopsie Volume 1 disponible au dépot de ton armurier: http://www.sitealademande.com/sitealamande/anywhere/depot
Membre enregistré
2 566 messages
Popularité : +222 (260 votes)
Posté le 24 janvier 2018 - 05:34
Bonjour,

Voilà de quoi afficher les mois en lettres. Par contre je n'ai pas compris ce que tu voulais faire avec les noms des jours
dDate1 est Date = "20180303"
dDate2 est Date = "20180720"

//Affichage des mois
POUR i = dDate1..Mois _À_ dDate2..Mois
Trace(DateVersMoisEnLettre("2018"+NumériqueVersChaîne(i,"02d")+"01"))
FIN


--
Cordialement,

Philippe SAINT-BERTIN
Géode Informatique
Membre enregistré
834 messages
Popularité : +13 (13 votes)
Posté le 24 janvier 2018 - 09:13
Tu as le jour et le mois :
dDate_deb est Date = "20180303"
dDate_fin est Date = "20180720"
dDate_tmp est une Date = dDate_deb

TANTQUE dDate_tmp <= dDate_fin
Trace(DateVersChaîne(dDate_tmp,"JJJ jj MMMM aaaa"))
dDate_tmp..Jour += 1
FIN


J.Michel

--
Synchronize Systems International LTD
Développement d'outils de gestion

Environnements AS400 – Windows
Langages GAP III – CL – Visual Basic - Visual Adélia - Adélia - Windev
http://www.cashpower.fr/

Bangkok / Pattaya
Posté le 24 janvier 2018 - 15:43
merci pour votre aide je m'explique par exemple entre les deux dates 22/01/2017 et 12/3/2017 le résultat est:
janvier: 22 jours
fevrier: 28 (ou 29 )jours selon type d'année
mars: 12 jours
voila d'une autre façon extraire la durée entre deux dates mais en détails avec nom du mois et nonbre des jours dans chaque mois.
Posté le 24 janvier 2018 - 15:55
merci à tous pour vos aides, je m'explique: exemple entre les deux dates 12/1/2017 et 22/03/2017 le résultat est comme ceci:
janvier: 19 jours (31-12)
fevrier: 28 ou 29 jours (suivant type d'année)
mars: 22 jours

d"une autre façon calculer la durée et donner les détails suivant nom du mois et nb jours dans chaque mois.
Membre enregistré
2 566 messages
Popularité : +222 (260 votes)
Posté le 24 janvier 2018 - 16:16
Bonjour

tu peux faire comme ceci. Ensuite à toi de vor si tu comptes le premier jour ou non
taMois est tableau associatif d'entiers

dDate1 est Date = "20170112"
dDate2 est Date = "20170312"

TANTQUE dDate1 <= dDate2
taMois[DateVersMoisEnLettre(dDate1)]++

dDate1..Jour++
FIN

POUR TOUT nValeur,sCle de taMois
Trace(sCle+" : "+nValeur+" jour(s)")
FIN


--
Cordialement,

Philippe SAINT-BERTIN
Géode Informatique
Posté le 24 janvier 2018 - 19:01
Merci beaucoup c'est tres précis votre code et bonne soirée :merci: