Diferença de dias entre datas

12/12/2003

5

Como faço para colocar em uma Label.Caption a diferença de dias entre duas datas?


Responder

Posts

12/12/2003

Tnaires

Opa jonny! Tudo jóia?

Use a função DaysBetween. Ela retorna a diferença de dias entre duas datas q vc especificar.
Sucesso


Responder

12/12/2003

Maicongabriel

A função ...

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...

Label1.Caption := DifDias(Data1, Data2);



Responder

12/12/2003

Rodrigo Costa

var data1,data2:Tdatetime;
...

label1.Caption:=inttostr(Trunc(data1 - data2));


Responder

12/12/2003

Maicongabriel

[quote:43ace09144=´Rodrigo Costa´]var data1,data2:Tdatetime;
...

label1.Caption:=inttostr(Trunc(data1 - data2));[/quote:43ace09144]

Tsc tsc...
Data negativa e sem tratamento de erros...


Responder

12/12/2003

Rodrigo Costa

Muito obrigado pelo seu comentário construtivo.


Responder

12/12/2003

Tnaires

Pessoal...

Pra q ´reinventar a roda´? Usemos a função DaysBetween da API do Delphi e ficamos todos felizes...

Abraços


Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira