No hay respuestas en este tema

[sir.dev.a.lot]

[TRUCO DELPHI] Ultimo dia del Mes.

delphi

function GetLastDayOfMonth(aYear, aMonth: Integer): Integer;
Const
  cDAYSINMONTHS: Array[1..12] Of Integer =
      (31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31);
begin
  Result := cDAYSINMONTHS[aMonth];
  If (aMonth = 2)      And
     IsLeapYear(aYear) Then
    Inc(Result);
end;

Saludos!