Description :
Nombre de jours dans un mois ou une année.
Portion de code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
<%
function DaysInMonth(mois,an)
dim d1,d2
d1 = dateserial(an,mois,1)
d2 = dateserial(an,mois+1,1)
DaysInMonth = datediff("d",d1,d2)
end function
function DaysInYear(an)
DaysInYear = 337 + DaysInMonth(2,an)
end function
%>
|
|
Informations rapides
