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