Rescatar ultimo dia de un mes

[BPL]

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...

[roman]

¿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

[[duilioisola]]

Si es OBTENER, como dice roman...

De la ayuda de Delphi 6:

DaysInAMonth function
Returns the number of days in a specified month of a specified year.

Unit
DateUtils

Category
date/time routines

function DaysInAMonth(const AYear, AMonth: Word): Word;

Description
Call DaysInAMonth to obtain the number of days in the specified month of the specified year.
AYear is a year between 1 and 9999 (inclusive).
AMonth is a month between 1 and 12 (inclusive).

En DelphiBasics

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

[ecfisa]

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

[roman]

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