Recupero año Bisiesto.

[skatomundo]

Con esta instrucción recupero mi cantidad de dias de acuerdo a mi año bisiesto:
A quien le sirva, pues agradecido que sirvo para Uds.

<%
Dim dia(12)
Dim Bisiesto
Bisiesto = False


dia(1) = 31
For z = 2000 To 2040 Step 4
If Year(fecha) = z Then
Bisiesto = True
Exit For
End If
If z > Year(fecha) Then Exit For
Next
If Bisiesto Then
dia(2) = 29
Else
dia(2) = 28
End If
dia(3) = 31
dia(4) = 30
dia(5) = 31
dia(6) = 30
dia(7) = 31
dia(8) = 31
dia(9) = 30
dia(10) = 31
dia(11) = 30
dia(12) = 31
%>

Salu2

[skatomundo]

Considere "Fecha" como un valor Date ya que no lo declaro sorry.. se me ah olvidado.

[Myakire]

Complementando....Para saber si un año es bisiesto basta con preguntar:
if (Anio MOD 400 = 0) or ((Anio mod 4 = 0) and (Anio mod 100 <> 0)) Then
Response.Write "Bisiesto"
Else
Response.Write "No Bisiesto"
End If