meses entre fechas

lcMeses = ''
gdFechaIniGest = {^2009-06-01}
gdFechaFinGest = {^2010-06-30}
DO WHILE gdFechaIniGest <= gdFechaFinGest
lcMeses = lcMeses +
PADL(MONTH(gdFechaIniGest),2,'0')+'-'+ALLTRIM(STR(YEAR(gdFechaIniGest)))+CHR(13)
gdFechaIniGest = GOMONTH(gdFechaIniGest,1)
ENDDO
MESSAGEBOX(lcMeses)

Limberg.



"Limberg" escribió en el mensaje
news:

Comó puedo recuperar los meses comprendidos entre las dos fechas:

Fecha1 = 01-06-2009
Fecha2 = 31-06-2010

Los meses serían:
06-2009
07-2009
08-2009
.
.
.
06-2010

Limberg.



__________ Information from ESET NOD32 Antivirus, version of virus
signature database 5163 (20100601) __________

The message was checked by ESET NOD32 Antivirus.

http://www.eset.com





__________ Information from ESET NOD32 Antivirus, version of virus
signature database 5164 (20100601) __________

The message was checked by ESET NOD32 Antivirus.

http://www.eset.com

__________ Information from ESET NOD32 Antivirus, version of virus signature database 5164 (20100601) __________

The message was checked by ESET NOD32 Antivirus.

http://www.eset.com