Time / tid

prøv det her :

var
  Tid : TDateTime;
begin
  Tid := StrToTime(Edit2.Text) - StrToTime(Edit1.Text);
end;


Jens B

Edit1 = 12.00
Edit2 = 13.00

men resultatet bliver
1899-12-30

UNDSKYLD, jeg havde konvateret til Date.

Tak for hjælpen - borrisholt

Compilos

Jeg tror godt jeg ved hvad du har gjort galt ...


problemet er at du har brugt DateToStr for at konvetere det tilbage til en Streng igen ... Du skal bruge TimeToStr() ...

altså :

var
  Tid : TDateTime;
begin
  Tid := StrToTime(Edit2.Text) - StrToTime(Edit1.Text);
  Caption := TimeToStr(Tid);
end;

Jens B