FoxPro/Visual FoxPro - funcion bisiesto

hola a todos, podrian decirme si existe en fox alguna funcion que me determine si un a;o es o no bisiesto?
de antemano gracias.

Prueba esto:

nBis = YEAR(DATE()) / 4
nBis_I = INT(nBis)

IF ROUND(nBis - nBis_I, 2) = 0
WAIT WIND "Anio NO es Bisiesto"
ELSE
WAIT WIND "Anio SI es Bisiesto"
ENDIF

La función bisiesto anda perfecto, pero los resultados están invertidos. Debería ser:

Existen tres reglas para determinar un año bisiesto:
- Los años exactamente divisibles entre 4 son años bisiestos.
- Los años exactamente divisibles entre 100 no son años bisiestos.
- Los años exactamente divisibles entre 400 son años bisiestos.
En FoxPro es muy facil, prueba esto desde la ventana de comandos:
? {29/02/1996}
? {29/02/2100}
? {29/02/2104}
La primera sentencia te devolvera la fecha, la segunda devolvera fecha vacia, ya que NO es año bisiesto y por lo tanto esa fecha no existe y la tercera te devolvera la fecha.

Ejemplo
ano = Thisform.fecha.value

IF ano % 4 = 0
&&Es biciesto

endif