Diferença de dias entre datas
12/12/2003
0
Jonnymarques
Posts
12/12/2003
Tnaires
Use a função DaysBetween. Ela retorna a diferença de dias entre duas datas q vc especificar.
Sucesso
12/12/2003
Maicongabriel
function DifDias(DataVenc:TDateTime; DataAtual:TDateTime): String;
var
Data: TDateTime;
dia, mes, ano: Word;
begin
if DataAtual < DataVenc then
begin
Result := ´A data data atual não pode ser menor que a data inicial´;
end else
begin
Data := DataAtual - DataVenc;
DecodeDate( Data, ano, mes, dia);
Result := FloatToStr(Data)+´ Dias´;
end;
end;Como usar...
12/12/2003
Rodrigo Costa
...
label1.Caption:=inttostr(Trunc(data1 - data2));
12/12/2003
Maicongabriel
...
label1.Caption:=inttostr(Trunc(data1 - data2));[/quote:43ace09144]
Tsc tsc...
Data negativa e sem tratamento de erros...
12/12/2003
Tnaires
Pra q ´reinventar a roda´? Usemos a função DaysBetween da API do Delphi e ficamos todos felizes...
Abraços
Clique aqui para fazer login e interagir na Comunidade :)
