FoxPro/Visual FoxPro - Problema con fecha

*******************************************************

* Obtenemos los dos extremos del rango

*******************************************************

* Definir

nAno1: (Numéric)  año del rango inicial

nMes1: (Numéric)  mes del rango inicial

ncAno2: (num/char) año del rango final

ncMes2: (Num/char) mes del rango final

* Valores del Rango de fechas para SELECT SQL

dia1=Date(nAno1,nMes1,1)	&& Primer día del rango inicial

dia2=FindeMes(ncAno2,ncMes2)	&& Ultimo día del rango final

* Bloque de Meses Completos

*****************************

* Con función Between()

SELECT * FROM MiTabla ;

	WHERE BETWEEN(fecha,dia1,dia2) ;

	into CURSOR MiCursor

* Alternativamente

SELECT * FROM MiTabla ;

	WHERE Fecha BETWEEN dia1 AND dia2 ;

	INTO CURSOR MiCursor

*****************************

Function Findemes(xMes,xAno)

*****************************

* Determina y devuelve el último día de un mes cualquiera (Fecha)

* xMes y xAno pueden ser Numeric ó Character

LOCAL Bi,lBisiesto,ldLast

if Vartype(xmes)="C"

	xmes=val(xmes)

endif

if xmes=0

	xmes=month(date())

endif

if vartype(xano)="C"

	xano=Val(xano)

endif

if xano=0

	xano=year(date())

endif

if xano=2000

	lBisiesto=.t.

else

	lBisiesto=iif(Mod(xAno,4)=0,iif(Mod(xano,25)=0,.f.,.t.),.f.)

ENDIF

DO case

	CASE xmes=2

		ldLast=IIF(lBisiesto,29,28)

	CASE INLIST(xmes,1,3,5,7,8,10,12)

		ldLast=31

	OTHERWISE

		ldLast=30

ENDCASE

RETURN DATE(xAno,xMes,ldLast)

ENDFUNC

******************************