Hi Leute,
Ich habe 2 Daten und möchte die zeit zwischen ihnen auslesen.
Habs bislang so probiert:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
Tage,t1,t2 : Tdatetime;
zeit :Ttime;
s1,s2:string;
begin
Label1.Caption:=Timetostr(Now);
Label2.Caption:=Datetimetostr(Now);
s1:=datetimetostr(now);
s2:='03.06.2010 18:34:30';
Label3.Caption:=s1 + ' ' + s2;;
t1:=strtodatetime(s1);
t2:=strtodatetime(s2);
Tage:=t1 - t2;
Label4.Caption:=datetimetostr(Tage);
end;
Dies funktioniert aber nicht, es ergiebt immer das gleiche: 4.1.1900 .....
wo liegt der fehler?
lg
Wallwriht
als hinweis noch: Die label 1-3 sind zur hilfe um die einzelnen Daten zu zeigen.