Hi,
kann mir jemand verklickern wie ich mit Hilfe von daysbetween die richtige Tagesdifferenz unter Berücksichtigung der aktuellen Uhrzeit ermitteln kann? Ebenso für hoursbetween unter Berücksichtigung des aktuellen Tages.
So geht es nicht:
Delphi-Quellcode:
function ZeileLesen(const Datum: String; Num: Word; var Zeile: String): Boolean;
var
TextDatei: TStringList;
begin
Result := False;
TextDatei := TStringList.Create;
try
TextDatei.LoadFromFile(Datum);
if Num > (TextDatei.Count - 1) then Exit;
Zeile := TextDatei[Num];
Result := True;
finally
TextDatei.Free;
end;
end;
procedure TForm1.FormActivate(Sender: TObject);
begin
begin
if ZeileLesen('Datum.txt', 0, Zeile) then a:=(Zeile);
end;
begin
if ZeileLesen('Datum.txt', 1, Zeile) then b:=(Zeile);
end;
begin
if ZeileLesen('Datum.txt', 2, Zeile) then c:=(Zeile);
end;
begin
if ZeileLesen('Datum.txt', 3, Zeile) then d:=(Zeile);
end;
label3.Caption:=(a);
Tage:= DaysBetween(Now, StrToDate(b));
label1.Caption:=InttoStr(Tage)+' Tage und';
Stunden:= HoursBetween(time, StrToTime(c));
label2.Caption:=InttoStr(Stunden)+' Stunden';
label4.Caption:=(d);
end;
Hier werden die Tage und die Stunden irgendwie unabhängig ausgegeben.
Bsp.:
Datum aus txt-Datei (Zeile1) ist: 19.08.2004
Uhrzeit aus txt-Datei ist (Zeile2): 06
Datum Now: 20.08.2004
Uhrzeit time: 01
ergibt: 1 Tag und 4 Stunden
Da stimmt doch was nicht! Wie muss ich das richtig machen?