daysbetween, hoursbetween?

[Dreas]

Hi,

erstmal allen vielen Dank für die Hilfe.
xineohp, dein letzter Vorschlag klingt sehr einleuchtend und sollte wohl auch funktionieren.
Ich habe aber in der Zwischenzeit etwas rumgegraben und eine Lösung mit function (auch mit frac) gebastelt.

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DateUtils, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Timer1: TTimer;
    Label2: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Image1: TImage;
    Panel1: TPanel;
    Panel3: TPanel;
    procedure FormActivate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);

  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  a,b,c,d,Zeile:String;

implementation

{$R *.dfm}

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;

function DateTimeDiff(date1, date2: TDateTime): string;
var days, hours, minutes, secs: integer;
  difference: real;
begin
  difference:=date2-date1;
  days:=round(difference-Frac(difference));
  difference:=Frac(difference)*24;
  hours:=round(difference-Frac(difference));
  difference:=Frac(difference)*60;
  minutes:=round(difference-Frac(difference));
  difference:=Frac(difference)*60;
  secs:=round(difference-Frac(difference));
  result:=IntToStr(days)+' Tage, '+IntToStr(hours)+' Stunden, '+#13#10 +IntToStr(minutes)+
  ' Minuten und '+IntToStr(secs)+' Sekunden';
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin

label3.Caption:= DateTimeToStr(now);
label1.caption:=(datetimediff(strtodatetime(a), ((now))));

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;

label4.caption:=(a);
label6.Caption:=(b);
label7.Caption:=(c);
label8.Caption:=(d);
end;

end.

Durch den timer wird das ganze jetzt sogar laufend aktualisiert.
Und mit den Sekunden ist auch etwas action auf der Form.

Programm läuft, ich bin zufrieden.

Vielen Dank nochmal für Eure Mühen!