Hallo!!
Hier mal ein Denkanstoß (s. auch Delphi Hilfe und suche im Forum nach den Begriffen...)
1.)
GetTickCount aufrufen (s. Hilfe) und in Variable speichern
2.) Timer setzen und beim OnTimer-Event:
GetTickCount nochmal aufrufen und in 2. Variable speichern
3.) V2 - V1 (müsste Zeitdifferenz in ms sein)
4.) ms in Sekunden oder MInuten umrechnen und mit STundenlohn multiplizieren..
5.) Ergebnis von 4.) in Edit-Feld anzeigen lassen
Grüße,
SCRaT
P.S: Auch interessant:
1.) Aktuelles Datum/Zeit in Variable (Typ DateTime) speichern
2.) Wieder Timer und im OnTimer-Event:
Variable2 (auch TDateTime) aktuelle Zeit/Datum zuweisen (V2 := NOW);
3.) Funktion
MinutesBetween(V2, V1) gibt Zeitdifferenz in Minuten aus (
Unit einbinden, Name steht in der Delphi-Hilfe, glaube DateUtils)
4.)weiter wie oben...