Fórum subtraçào de datas #184063
24/09/2003
0
preciso pegar os dias exatos da diferença de duas datas,
Arc
Curtir tópico
+ 0
Responder
Posts
24/09/2003
Mmtoor
Retornar a Diferença de Dias Entre Datas
No Edit1 você insere a data inicial;
No Edit2 você insere a data final;
No Edit3 você terá a diferença de dias entre as duas datas.
Var
saida: real;
chegada: real;
begin
saida := StrToDate(edit1.Text);
chegada := StrToDate(edit2.Text);
edit3.text := FloatToStr(chegada - saida);
MMTOOR2003
No Edit1 você insere a data inicial;
No Edit2 você insere a data final;
No Edit3 você terá a diferença de dias entre as duas datas.
Var
saida: real;
chegada: real;
begin
saida := StrToDate(edit1.Text);
chegada := StrToDate(edit2.Text);
edit3.text := FloatToStr(chegada - saida);
MMTOOR2003
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)