[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