Gehalt aus Stundenzahl berechnen

[hans ditter]

Hallo liebe DP,
wieder mal steh ich vor einem Problem
Es geht darum, denn Verdienst an einem Tag zu berechnen. Dafür gibt der Nutzer Stundenlohn, Anfangszeit und Endzeit ein.
Ein Beispiel:

Std.lohn: 5 €/h
Anfang: 10:00
Ende: 12:30
Differenz: 2:30

Jetzt möchte ich ausrechnen lassen, wie viel man für 2:30 verdient hat. Aber mir ist definitiv nicht klar, wie ich das Programiertechnisch umsetzte.
Hoffe wieder auf so große Mithilfe aus der DP. Vielen Dank!

Euer hans ditter

[mkinzler]

2,5 * 5 € = 7,50 €

Am Besten Minuten zuerst in Industrieminuten umrechnen

[Klaus01]

2,5 x 5Euro?

30 Minuten / 60 Minuten = 0,5
plus 2 Stunden = 2,5

Grüße
Klaus

[hans ditter]

Ok... erstmal danke.
Aber wie kann ich denn aus der Zeit 2:30 nun die 30 Minuten "extrahieren"? Oder einfacher: Wie kann ich denn eine "normale" Zeitangabe in eine industrielle Zeitangabe umrechnen?

lg, hans ditter

[Matze]

Hallo,

suche hier mal nach Arbeitszeit. Da findest du einige Themen, u.a. das hier (hab's nur grob überflogen).
Oder auch direkt nach Industrieminuten.

Grüße, Matze

[Klaus01]

Hallo,

ich würde minutesBetween aus den DateTimeUtils verwenden.
Dann müsstest Du nur noch den Stundensatz auf einen Minutensatz umrechnen
und diesen mit den Minuten multiplizieren.

Grüße
Klaus

[himitsu]

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

[Sir Rufo]

Zitat von hans ditter:

Ok... erstmal danke.
Aber wie kann ich denn aus der Zeit 2:30 nun die 30 Minuten "extrahieren"? Oder einfacher: Wie kann ich denn eine "normale" Zeitangabe in eine industrielle Zeitangabe umrechnen?

lg, hans ditter

Ausdrucken und ganz vorsichtig mit der Schere an dem Doppelpunkt entlangschneiden.

StrToTime

TDateTime ist eigentlich ein Extended, also eine normale Zahl.
Die Tage stehen vor dem Komma, der Rest danach.

Multipliziere ich einen TDateTime mit 24 habe ich die Stunden.
StrToTime( '02:30' ) * 24 -> 2,5 Welch ein Wunder - ist hier im Forum ungezählte Male beschrieben worden.

[hans ditter]

Zitat von Sir Rufo:

Ausdrucken und ganz vorsichtig mit der Schere an dem Doppelpunkt entlangschneiden.

Kein Grund sarkastisch zu werden...
Nein, vielen Dank!!
Ich muss feststellen, dass ich mich mit dem Zeitformat wohl nochmal auseinandersetzen muss...

Auf jeden Fall vielen Dank,
lg hans ditter