FoxPro/Visual FoxPro - año bisiesto!!!!

BUENOS DIAS AMIGOS NADA MAS QUISIERA SABER COMO DETERMINAR SI UN AÑO ES BISIESTO O NO LO ES.

GRACIAS
SALUDOS
RAUL

Si divide entre cuatro el año y no te sobra nada, es un año bisiesto.

Ejemplo
? MOD(2002,4)
? MOD(2003,4)
? MOD(2004,4)
? mod(2005,4)
? MOD(2006,4)
? MOD(2007,4)
? MOD(2008,4)

GRACIAS MI AMIGO PLINIO, PERO MIRA, YO TENGO UN COMBO Y DENTRO DE ESTE ESTAN DEFINIDOS LOS VALORES DE LOS AÑOS DESDE EL 2005 HASTA EL 2020, ENTONCES TOMANDO EN CUNETA EL TIP QUE ME ACABAS DE DAR YO PUSE EL SIGUIENTE CODIGO EN EL CLIC DE:
IF MOD((THISFORM.COMBO1.VALUE),4) = 0
MESSAGEBOX('AÑO BISIESTO')
ELSE
IF MOD((THISFORM.COMBO1.VALUE),4) != 0
MESSAGEBOX('AÑO NO BISIESTO')
ENDIF
ENDIF
ESTA BIEN???, ES QUE ME SALE EL SIGUIENTE ERROR:
'FUNCTION ARGUMENT VALUE,TYPE OR COUNT IS INVALID', Y CUANDO LE DOY IGNORAR ME SACA EL MENSAJE QUE TENGO DEFINIDO PERO SIEMPRE ME SACA 'AÑO BISIESTO',NO IMPORTANDO EL AÑO QUE SELECCIONE EN MI COMBO.

GRACIAS DE NUEVO POR TU AYUDA.
SALUDOS
RAUL

Lo que sucede es que el valor pasado a la función MOD debe ser númerico...

Otra forma de determinar si es bisiesto es así ...
nAño = 2004
? !Empty(Date(nAño, 02, 29))

nAño = 2005
? !Empty(Date(nAño, 02, 29))

Saludos..

David Amador Tapia
WebMaster "La Web de Davphantom"
www.davphantom.net
Cartagena. Colombia

el error que te manda es por que tienes que convertir en numerico el valor del combo....por que toda su informacion que almacena es de tipo caracter...usa la funcion VAL

yo me he hecho una pequeña funcioncita ...