subtraçào de datas
preciso pegar os dias exatos da diferença de duas datas,
Arc
Curtidas 0
Respostas
Mmtoor
24/09/2003
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
GOSTEI 0