TTime aka TDateTime = Tag-Komma-Tagesanteil
* 24 = Stunden-Komma-Stundenanteile
Solange nicht über Mitternacht hinaus gearbeitet wird:
Geld := (StrToTime(Ende) - StrToTime(Anfang)) * 24 * Stundenlohn;
.
ansonsten
Delphi-Quellcode:
t1 := StrToTime(Anfang);
t2 := StrToTime(Ende);
if t2 < t1 then t2 := t2 + 1;
Geld := (t2 - t1) * 24 * Stundenlohn;
Wenn man noch das Datum mit einbezieht, dann die erste Rechnenvariante und StrToDateTime.
[edit]
och manno