[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!