Rotina para descobrir o ultimo dia do mes

Question

Pessoal alguem tem alguma funcao ou rotina para que eu possa fazer uma verifica��o se a data atual e o ultimo dia do m�s? e como eu poderia colocar isso de forma que o sistema digamos de alguns em alguns segundos verificasse isso, para que se no caso do micro �dormir� ligado ele possa executar a opera��o, obrigado.

Juliano Dias · Answer

function Ultdia(): TDateTime; //�ltimo dia do m�s

function TDM.Ultdia: TDateTime;
var
Present: TDateTime;
Ano, Mes, Dia : Word;
begin
Present:= Date;
DecodeDate(Present, Ano, Mes, Dia);
Present := Present + (32 - Dia);
DecodeDate(Present, Ano, Mes, Dia);
Present := EncodeDate(Ano, Mes, 01 ) -1;
DecodeDate(Present, Ano, Mes, Dia);
Result:=Present;
end;

Aroldo Zanela · Answer

DateUtil da RxLib (Atual projeto Jedi - Open Source)

function IsLeapYear(AYear: Integer): Boolean;
begin
  Result := (AYear mod 4 = 0) and ((AYear mod 100 <> 0) or (AYear mod 400 = 0));
end;

function DaysPerMonth(AYear, AMonth: Integer): Integer;
const
  DaysInMonth: array[1..12] of Integer =
    (31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31);
begin
  Result := DaysInMonth[AMonth];
  if (AMonth = 2) and IsLeapYear(AYear) then Inc(Result); { leap-year Feb is special }
end;

F�rum Rotina para descobrir o ultimo dia do mes #156496