17-ene-2005, 08:25
|
#50 (permalink)
|
Fecha de Ingreso: mayo-2003
Mensajes: 829
|
Calcular los dias que tiene un mes
<%
Function Diasenelmes(Mes, anio)
Dim Valor
Valor = DateAdd("d", -1, DateSerial(anio, Mes + 1, 1))
Diasenelmes = Day(Valor)
End Function
%>
<%=Diasenelmes(1, 2005)%><br>
<%=Diasenelmes(2, 2005)%><br>
<%=Diasenelmes(3, 2005)%><br>
<%=Diasenelmes(4, 2005)%><br>
<%=Diasenelmes(5, 2005)%><br>
<%=Diasenelmes(6, 2005)%><br>
<%=Diasenelmes(7, 2005)%><br>
<%=Diasenelmes(8, 2005)%><br>
<%=Diasenelmes(9, 2005)%><br>
<%=Diasenelmes(10, 2005)%><br>
<%=Diasenelmes(11, 2005)%><br>
<%=Diasenelmes(12, 2005)%><br>
|
|
|