Bueno esta duda fue expuesta en el foro microsoft.public.es.vfoxpro, rapidamente 2 maestros dieron su precisa respuesta la cual quiero compartir con ustedes.

Luis Maria Guayan

Para saber si un año es bisiesto, se deben cumplir tres reglas

1. Un año es bisiesto si éste es divisible por 4.
2. Salvo que ese año sea divisible por 100.
3. Pero si el año es divisible por 400, entonces si es bisiesto.

? EsBisiesto(2008)

FUNCTION EsBisiesto(tnAnio)
RETURN (tnAnio%4 = 0 AND tnAnio%100 # 0) OR tnAnio%400 = 0
ENDFUNC
Tomado de http://www.portalfox.com/index.php?name=News&file=article&sid=350

Anders Altberg

? EMPTY(DATE(2008,2,29))
? EMPTY(DATE(2007,2,29))

devuelve
.F.
.T.

Procedure EsBi (año)
RETURN NOT EMPTY(DATE(año,2,29))
EndProc

Gracias a estos Maestros.