Para versiones que no tienen las funciones EndOfAMonth, EndOfTheMonth
EncodeDate(año, mes, día)
Para enero...noviembre encode día uno y encode día uno mes siguiente menos uno.
Ejemplo noviembre 2008
PrimerDia := EncodeDate(2008, 11, 1);
ÚltimoDia := EncodeDate(2008, 12, 1) - 1;
Para diciembre encode día uno y encode día uno enero año siguiente menos uno.
Ejemplo diciembre 2008
PrimerDia := EncodeDate(2008, 12, 1);
ÚltimoDia := EncodeDate(2009, 1, 1) - 1;
|