FoxPro/Visual FoxPro - !! Total dias del Mes..!

En una Caja de texto definida como numerica tengo el año y en otra tengo el mes. A partir de estos datos ¿Como puedo determinar el numero de dias que trae el mes? Siendo que el usuario puede variar el año y por supuesto puede seleccionar uno de los doce meses.
Gracias por vuestra ayuda.
TITO

Esta funcion devuelve el ultimo dia del mes que le envie:

FUNCTION _EOM(dFecha)
*------------------------------------------------
* Retorna el último día del mes (EndOfMonth)
* USO: _EOM(DATE())
* RETORNA: Fecha
*------------------------------------------------
LOCAL ld
ld = GOMONTH(dFecha,1)
RETURN ld - day(ld)
ENDFUNC