Stundenlohn * Time? Möglich?

[scrat1979]

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...