FoxPro/Visual FoxPro - funcion calculo año bisiesto

hola a todos:

les escribo porque tengo la siguiente duda.

quiero realizar una funcion que pase como parametros el año y el mes. por ejemplo seria:

año: 2004.
mes: 01.

y que calcule la cantidad de dias que tiene ese mes en ese año, sin olvidar que hay años bisisesto en lo que febrero tiene 29 dias.

¿es correcto dividir el año por 2 y con el modulo de la division ya baste?

si pueden contestarme con la brevedad mas posible se los agradeceria, ya que me encuentro haciendo un sistema que necesita de esa funcion.

gracias y saludos a todos los del foro.

Para calcular si un año es bisisto debemos comptobar si es divisible por cuatro y a la vez no divisible por 100 o por 400

Seria algo como:

if ((ano mod 4)=0) and ((ano mod 100)<>0 or (ano mod 400)=0) then
--ORDENES SI EL AÑO ES BISIESTO--
else
--ORDENES SI NO LO ES--

Esto pasalo al lenguaje que necesites

De esta forma calculamos el año bisiesto o los dias que trae febrero sea 28 o 29
Espero que te sirva

m.cYear = 2005
cEndQtr = CTOD("2/28/"+m.cYear)+1
IIF(MONTH(cEndQtr)=2,'BISIESTO,'NO BISIESTO'))