users_user-20.html - [VB] Nombre de jours du mois
- Public Function NbDayInMonth(ByVal iMonth As Integer, Optional ByVal iYear As Integer) As Integer
- If iYear = 0 Then
- iYear = Year(Now)
- End If
- NbDayInMonth = Day(DateSerial(iYear, iMonth + 1, 1) - 1)
- End Function
Poster un commentaire