Prob mit Timer

[marabu]

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