Fórum Data #142536

05/03/2003

0

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

Responder

Posts

05/03/2003

Shikota

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;


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar