DATAS - Rotinas de manuseio - Como programar??

Delphi

07/08/2003

Senhores.
Estou precisando de fazer duas rotinas de manuseio de data e gostaria de saber a melhor (a forma correta) de faze-las.

1) Informada a Data01 (campo Tedit) e data02 (campo Tedit), como
retornar em um campo Tedit o numero de dias entre as duas datas?

2) Iinformada uma data e um numero de dias, obter uma nova data que seja a soma da data + numdias.

Fiz umas rotinas de teste mas, por incompatibilidades de campos, me pareceu muito grande.

Agradeço a ajuda para este principiante.

SDS


Rounilo

Rounilo

Curtidas 0

Respostas

Aroldo Zanela

Aroldo Zanela

07/08/2003

Colega,

Tenha em mente que os campos de datas são do tipo real, sendo que a parte inteira armazena a data e a parte decimal a hora. Então podemos:
1) Edit3.Text := IntToStr(Trunc(StrToDate(Edit1.Text))-Trunc(StrToDate(Edit2.Text)));

2) 
Var NovaData: TDateTime;
begin
  NovaData := VelhaData + nDias;
end;



GOSTEI 0
POSTAR