Comment déterminer l'affichage lorsque le mois est avec (d') au lieu de (de) win 11 64 bits

Bonjour à toutes et à tous, avec ce code, l'affichage est pour la date du mois se fait toujours par exemple (de août) au lieu d'août:

Code:

---

1 2 3 4 5 6

ddate = now 'date actuelle   dmois = Month(ddate) 'Mois actuel   le mois de " & MonthName(dMois) & "

---

il y a t'il un moyen de déterminer le mois qui commence par (d') sans trop modifier le code ?

En vous remerciant.

@+,

cincap

Salut

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

dim MonthName(12)   MonthName(0)="de janvier" MonthName(1)="de fevrier" MonthName(2)="de mars" MonthName(3)="d'avril" MonthName(4)="de mai" MonthName(5)="de juin" MonthName(6)="de juillet" MonthName(7)="d'aout" MonthName(8)="de septembre" MonthName(9)="d'octobre" MonthName(10)="de novembre" MonthName(11)="de decembre"   ddate = now 'date actuelle   dmois = Month(ddate) 'Mois actuel   msgbox "le mois " & MonthName(dMois-1)

---

@ ProgElect, Bonjour, grand merci pour ta réponse et comme d'habitude rapide et efficace.

Le topic est fermé avec succès.

@+,

cincap

:plusser:

Dans les alternatives possibles:

• Regarder si le numéro de mois est 4 ou 8 ou 10 (avril, aout, octobre)
• Regarder si le nom du mois commence par une voyelle (aeiouy)

Bonjour à toutes et à tous,

@ umfred, merci pour ton message, par contre en gardant ce qui est fait je me demandais si dans le message on pourrait distinguer le pluriel lorsque qu'il y a 3 jours et le singulier lorsque il reste 1 jour.

Code:

---

1 2	"et le mois " & MonthName(dMois -1) & " a " & Day(DateSerial(Year(ddate), dmois + 1, 1) - 1) & " jours"

---

En vous remerciant encore.

@+,

cincap

Salut

Code:

---

1 2 3

Dim Pluriel if Day(DateSerial(Year(ddate), dmois + 1, 1) - 1) > 1 then Pluriel="s" else Pluriel="" msgbox "et le mois " & MonthName(dMois -1) & " a " & Day(DateSerial(Year(ddate), dmois + 1, 1) - 1) & " jour" & Pluriel

---

j'ai rarement vu des mois à 1 jour (seul cas où il ne faut pas de "s" à jour si on veut indiquer le nombre de jours qu'un mois possède) :mrgreen:

Merci @ ProgElect pour son code que je vais tester.

@ Umfred, moi non plus mais le code est plus complet et est un calcul qui nomme combien de jours avant de percevoir une prime spéciale et lorsqu'il reste un jour avant le payement, CQFD.

Maintenant si tout est ok définitivement fermé.

@+,

cincap

une autre tactique c'est d'afficher "jour(s)" si on ne veut pas s'ennuyer :mrgreen:

Salut

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

dim Jrestant, Pluriel   '---- entre date du jour et fin du mois en cour --------------------------------- Jrestant = NbrJoursAfinDuMois if Jrestant>1 then Pluriel="s" else Pluriel="" msgbox " Nombre de jour"&Pluriel&" restant"&Pluriel&" = "&Jrestant   '---- entre 2 dates --------------------------------- Jrestant = NbrJoursAcheance("30/10/2024","31/10/2024") if Jrestant>1 then Pluriel="s" else Pluriel="" msgbox " Nombre de jour"&Pluriel&" restant"&Pluriel&" = "&Jrestant     '----------------------------------------------------------------------------------- function NbrJoursAfinDuMois() DatePlus1Mois=DateAdd("m", 1, now) PremierJourDuMoisSuivant = "01/"&Month(DatePlus1mois)&"/"&Year(DatePlus1mois) DateDernierJourDuMois = DateAdd("d", -1, PremierJourDuMoisSuivant) NbrJoursAfinDuMois = DateDiff("d", Now, DateDernierJourDuMois) end function '----------------------------------------------------------------------------------- function NbrJoursAcheance(Date1,DateEcheance) NbrJoursAcheance = DateDiff("d", Date1, DateEcheance) end function '-----------------------------------------------------------------------------------

---

J'ai mis des noms de variables qui devraient permettre de comprendre la fonction NbrJoursAfinDuMois