Ver Mensaje Individual
  #4  
Antiguo 17-12-2008
fidel fidel is offline
Miembro
 
Registrado: mar 2005
Posts: 381
Reputación: 20
fidel Va por buen camino
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;
Responder Con Cita