Saber ultimo dia del mes

[morfeo21]

Que tal foro. Una pregutita , si me pueden ayudar .Deseo crear una funcion que al yo darle el mes y el año me devuelva el ultimo dia del mes indicado.
agradesco de antemano su ayuda .

[[Héctor Randolph]]

Hola Morfeo!

Hay una función en Delphi que te devuelve los días que hay en cada mes y está implementada de la siguiente forma:

Código Delphi [-]
{ The MonthDays array can be used to quickly find the number of
  days in a month:  MonthDays[IsLeapYear(Y), M]      }
const
  MonthDays: array [Boolean] of TDayTable =
    ((31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31),
     (31, 29, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31));

function DaysInAMonth(const AYear, AMonth: Word): Word;
begin
  Result := MonthDays[(AMonth = 2) and IsLeapYear(AYear), AMonth];
end;

La encuentras en la unidad Dateutils.pas

Un Saludo.

[morfeo21]

Gracias Hector .El dato que me diste soluciono mi problema.