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;
Bevor Du den Timer startest mußt Du
mit
bil_zeit1:=now;
die Startzeit initialisieren.
Grüße
Klaus