Data

Delphi

05/03/2003

Ola,

Como faço para subtrair datas.Exemplo.

Edit1.Text= 10/02/2003
Edit2.Text= 10/04/2003

O que faço para que no edit3.text apareça a diferencia desses periodos em quantidades de dias.

Grato.

elcilei@brfree.com.br


Anonymous

Anonymous

Curtidas 0

Respostas

Shikota

Shikota

05/03/2003

Ola, Como faço para subtrair datas.Exemplo. Edit1.Text= 10/02/2003 Edit2.Text= 10/04/2003 O que faço para que no edit3.text apareça a diferencia desses periodos em quantidades de dias. Grato. elcilei@brfree.com.br



var dataini,datafin :tdate ;
dif:real;
begin

dataini :=strtodate( DBEdit8.text); // primeira data
datafin := strtodate (DBEdit9.text); // segunda data
dif := datafin - dataini;
DBEditDias.text := floattostr(dif);
end;


GOSTEI 0
POSTAR