Buscar

Diferença entre duas datas - retorna a quantidade de dias - novo

Código

Insira no form 03 Edit, e um Bitbtn.   no evento onclick do bitbtn digite:

var
v : extended;
begin
v := strtodate(edit1.text) - strtodate(edit2.text);

edit3.text := Floattostr(Abs(v));

end;

end.
 

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%


Detalhes da dica

Categoria: Data e hora
Adicionada dia: 24/04/07
Por: Severino Alves Passos
Visualizada: 5293 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009