Rescatar ultimo dia de un mes
 

Hola a Todos,
Necesito, saber si existe algún componente o rutina para rescatar el ultimo día de un mes dado...

gracias, a quien pueda ayudarme...

¿Por rescatar te refieres a obtener?

Supongo que si tomas el primer día del siguiente mes y le restas un día, obtienes lo que quieres.

// Saludos

Si es OBTENER, como dice roman...

De la ayuda de Delphi 6:

En DelphiBasics

Código Delphi [-]
begin
  // How many days in February 2000 ?
   ShowMessage('Days in February 2000 = '+
               IntToStr(DaysInAMonth(2000, 2)));
end;

Hola BPL.

Y si deseas mostrar el nombre y número del día,

Código Delphi [-]
uses DateUtils;

function LastDay(const aMonth, aYear: Word): string;
const
  NDAY: array[1..7] of string = ('lunes','martes','miercoles','jueves','viernes','sabado','domingo');
var
  LastDay: Word;
  dt: TDate;
begin
  LastDay:= DaysInMonth(EncodeDate(aYear, aMonth, 1));
  dt:= EncodeDate(aYear, aMonth, LastDay);
  Result:= Format('%s %d',[NDAY[DayOfTheWeek(dt)], LastDay]);
end;

Código Delphi [-]
begin
  ShowMessage(LastDay(2, 2008))
end;

Saludos :)

A ver esta:

Código Delphi [-]
function LastDay(Year, Month: Integer): TDate;
begin
  Result := EncodeDate(Year + (Month div 12), (Month mod 12) + 1, 1) - 1;
end;

// Saludos