Discussion :

[amel95140]

Bonjour,

Pourriez me donner la syntaxe :

* d'une fonction qui renvoie le dernier jours d'un mois passé en parametre

* d'une fonction qui renvoie le nom du mois avec l'indice du mois passé en parametre



merci d'avance de votre aide

[MITCH31]

salut,

DateAdd("mois",1,date)-1 renvoie le dernier jour de ton mois.

[SfJ5Rpw8]

tiens vu dans ma fenêtre exécution

Code :

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

1
2
3
4
5
MonMois = 9
? DateSerial(2005,MonMois+1,1)-1
30/09/2005 
?format(DateSerial(2005,MonMois,1),"mmmm")
septembre

[leroissejp]

Bonsoir,
Pour le dernier jour du mois.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Private Sub Command1_Click()
MsgBox Dernier_jour_du_mois(2005, 2)
End Sub
 
Function Dernier_jour_du_mois(YearValue As Long, _
MonthValue As Long) As Long
 
Dernier_jour_du_mois = Day(DateSerial(YearValue, _
MonthValue + 1, 0))
 
End Function

Pour le nom du mois, une alternative, tu place deux TextBox, dans Text1, tu mets la date (par exemple 21/08/2005)

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
 
Private Sub Command2_Click()
 Dim Mois(1 To 12) As String
 
Mois(1) = "Janvier"
Mois(2) = "Février"
Mois(3) = "Mars"
Mois(4) = "Avril"
Mois(5) = "Mai"
Mois(6) = "Juin"
Mois(7) = "Juillet"
Mois(8) = "Août"
Mois(9) = "Septembre"
Mois(10) = "Octobre"
Mois(11) = "Novembre"
Mois(12) = "Décembre"
Text2 = Mois(Month(Text1))
End Sub

jpleroisse

[AdHoc]

Bonjour,
avec pour seul parametre le n° de mois, ta fonction "dernier jour du mois" sera fausse pour le mois de février. Il faut aussi passer l'année.
Month ne fonctionne que si tu passe avec soit un jour du mois, soit l'année sur 4.
Tout cela pour dire que tu as intérêt à travailler sur une date complete (jj/mm/aaaa), surtout que je pense que tu ne vas pas t'arréter là.
Personnellement, voici comment je procederai,
- recuperation de la date du 1 jour du mois de la date entrée en concaténant le premier jour avec le mois et l'année
- Ajout de 1 mois avec dateadd
- Retrait de 1 jour avec dateadd

Un des avantages de cette méthode est que tu peux facilement la transformer pour par exemple calculer le nombre de jours entre une date et le prochain cinquieme jour du mois.