Fórum Calculando data!!!!!! Help!!! PARTE 2 (NÃO DEU) #162793
27/05/2003
0
Ja peguei a Bíblia do Delphi e ja di uma boa lida em toda Classe TDate, mais ainda nao consegui.
Fiz o que vcs me explicaram
[b:8d7ce69a6b]Data final - data inicial...
o delphi trabalha assim ....
ele é um valor decimal..
onde a parte inteira é os dias, e a parte decimal é as horas....
dai ... data 1 - data 2 devolve em dias a diferença das datas....[/b:8d7ce69a6b]
Abaixo segue meu código (é bem simples, mais é para vcs verem como está meu pensamento.
[b:8d7ce69a6b]procedure TForm1.BitBtn1Click(Sender: TObject);[/b:8d7ce69a6b]
[b:8d7ce69a6b]begin[/b:8d7ce69a6b]
Label1.Caption:= DateToStr(StrToDate(Edit1.Text) - StrToDate(Edit2.Text));
end;
E fica 15/05/03 - 10/05/03 = [color=red:8d7ce69a6b]4/1/1900[/color:8d7ce69a6b]
Eu também ja tentei criar uma variável integer mais me da o mesmo resultado
Agradeço desde ja
[]s Roni
Ronithd
Curtir tópico
+ 0Posts
27/05/2003
Oberdan
Var
a:real;
begin
a := (StrtoDate(Edit1.Text) - StrtoDate(Edit2.Text));
Edit3.Text := FloatToStr(a);
end;
[]
Oberdan
Gostei + 0
27/05/2003
Marconi
A correção que o Oberdan fez vai funcionar.
Marconi
Gostei + 0
27/05/2003
Cabelo
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)