- <%
- Function NbJourDansMois(LeMois, LeAnnee)
- Select Case (LeMois)
- 'Avril, Juin, Septembre, Novembre
- Case 4, 6, 9, 11
- NbJourDansMois = 30
- ' Février
- Case 2
- ' Si Divisible par 400 alors Bisextile
- if (LeAnnee Mod 4 = 0) And (LeAnnee Mod 100 <> 0) Or (LeAnnee Mod 400 = 0) Then
- NbJourDansMois = 29
- Else
- NbJourDansMois = 28
- End if
- ' Les autres mois
- Case Else
- NbJourDansMois = 31
- End Select
- End Function
- %>
<%
Function NbJourDansMois(LeMois, LeAnnee)
Select Case (LeMois)
'Avril, Juin, Septembre, Novembre
Case 4, 6, 9, 11
NbJourDansMois = 30
' Février
Case 2
' Si Divisible par 400 alors Bisextile
if (LeAnnee Mod 4 = 0) And (LeAnnee Mod 100 <> 0) Or (LeAnnee Mod 400 = 0) Then
NbJourDansMois = 29
Else
NbJourDansMois = 28
End if
' Les autres mois
Case Else
NbJourDansMois = 31
End Select
End Function
%>