Citation :
Public Function finmois(mois As Integer) As String
If mois = 0 Then
mois = 12
End If
Select Case (mois)
Case 1, 3, 5, 7, 8, 10, 12
finmois = "31/" & mois
Case 2
Select Case Year(Date)
Case 2008, 2012, 2016, 2020, 2024, 2028, 2032, 2036
finmois = "29/" & mois
Case Else
finmois = "28/" & mois
End Select
Case 4, 6, 9, 11
finmois = "30/" & mois End Select
End Function
exemple utilisation de la fct ->
Pour savoir le mois dernier :
Me.txt.Value = Format(MonModule.finmois(Month(Date) - 1) & "/" & Year(Date), "dd/mm/yyyy" )
renvoie " 30/06/2004 "
|