Guten Morgen.
Du musst zwischen der Zeit in Minuten (2 Stunden = 120 Minuten) und dem Minutenanteil einer Zeitangabe der Form HH:MM:SS unterscheiden. Du hast das Timer-Interval leider nicht dokumentiert, aber von deinem Code ausgehend scheinst du in der globalen Variable bil_zeit1 die Zeit in Sekunden zu zählen. Natürlich könntest du den Minutenanteil so berechnen:
min := Format('%.2d', [bil_zeit1 div 60 mod 60]);
Aber es geht auch noch einfacher:
Delphi-Quellcode:
procedure TAuszahlbuch.bil_ti1Timer(Sender: TObject);
var
entg1, geld: Double;
begin
geld := 4.10; // besser außerhalb des event handlers festlegen
bil_zeit1 := bil_zeit1 + 1;
bilz1.Caption := TimeToStr(bil_zeit1 / SecsPerDay);
entg1 := (bil_zeit1 / MinsPerHour / SecsPerMin) * geld;
bilp1.Caption := FloatToStr(geldrunden(entg1, 2));
end;
Besser wäre aber du würdest ausschließlich mit den in Delphi üblichen Datentyp TDateTime arbeiten, da auf den Timer nicht unbedingt Verlass ist und die selbst gezählte Zeit irgendwann von der Systemzeit abweichen wird. Dazu muss bil_zeit1 als TDateTime deklariert werden und der Anfangswert einfach auf Now() gesetzt werden. Das Timer-Event würde dann so aussehen:
Delphi-Quellcode:
uses
DateUtils;
const
stdEntgelt = 4.10;
var
bil_zeit1: TDateTime;
procedure TAuszahlbuch.bil_ti1Timer(Sender: TObject);
var
dtDiff: TDateTime;
begin
dtDiff := Now - bil_zeit1;
bilz1.Caption := TimeToStr(dtDiff);
bilp1.Caption := Format('%m', [dtDiff / OneHour * stdEntgelt]);
end;
Getippt und nicht getestet.
Grüße vom marabu