grace ej
02 de Junio del 2003

dando una fecha de cualquier mes, me de como resultado el dia de ese mes osea lunes martes...
y me diga si el anno que ingreso es viciesto o no

Charly
02 de Junio del 2003

Utiliza la funcion Mod que te da como respuesta el resultado de la division, Para determinar si un año es bisiesto se debe dividir el mismo por 4 y si el resto de la division es igual a 0 por lo tanto es bisiesto, te paso un ejemplo cualquier aclaracion adicional consultame.

Dim Wdias as variant

If (Year(date) Mod 4) = 0 Then
Wdias = 29
Else
Wdias = 28
End if

angeles
02 de Junio del 2003

La fórmula del año bisiesto es:
Dim a as Integer
If a Mod 4=0 AND a Mod 100 <>0 Or a Mod 400=0 Then
Msgbox "Año Bisiesto"
Else
Msgbox "Año NO Bisiesto"
End If