Fórum Calculando data!!!!!! Help!!! PARTE 2 (NÃO DEU) #162793

27/05/2003

0

Tenho mais problemas pela frente
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

Ronithd

Responder

Posts

27/05/2003

Oberdan

procedure TForm1.Button1Click(Sender: TObject);
Var
a:real;
begin
a := (StrtoDate(Edit1.Text) - StrtoDate(Edit2.Text));
Edit3.Text := FloatToStr(a);
end;



[]
Oberdan


Responder

Gostei + 0

27/05/2003

Marconi

No seu programa voce está transformando a diferença de data em número, mas esta depois reconvertendo este número em data. Por isso é que está conseguindo uma data maluca.

A correção que o Oberdan fez vai funcionar.

Marconi


Responder

Gostei + 0

27/05/2003

Cabelo

Tente trabalhar com datas completas com dia mes e ano, assim da certo


Responder

Gostei + 0

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

Aceitar