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

[umfred]

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)

[cincap]

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

[umfred]

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

[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
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