Rotina para descobrir o ultimo dia do mes

Delphi

29/04/2003

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.


Isaac Cavalcanti

Isaac Cavalcanti

Curtidas 0

Respostas

Juliano Dias

Juliano Dias

29/04/2003

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;


GOSTEI 0
Aroldo Zanela

Aroldo Zanela

29/04/2003

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;



GOSTEI 0
POSTAR