Primer dia del mes

[fidel]

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;