Discussion :

[cincap]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ProgElecT]

Salut

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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)

[cincap]

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

Le topic est fermé avec succès.

@+,

cincap

[umfred]

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)

[cincap]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

En vous remerciant encore.

@+,

cincap

[ProgElecT]

Salut

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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