daysbetween, hoursbetween?

[Dreas]

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?