Rechnen mit Zeiten in TextBox???

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub TextBox1_Change() Me.TextBox3.Value = Monatsstunden(Me.TextBox1.Value, Me.TextBox2.Value) End Sub Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean) Me.TextBox3.Value = Monatsstunden(Me.TextBox1.Value, Me.TextBox2.Value) End Sub Private Function Monatsstunden(Arbeitstage As String, WochenSollzeit As String) As String Dim SollWoche As Double, SollMonat As Double If Arbeitstage <> "" And WochenSollzeit <> "" Then 'Berechnung der Zeiten in Stunden (Dezimal) SollWoche = CDbl(Mid(WochenSollzeit, 1, 2)) + CDbl(Mid(WochenSollzeit, 4, 2)) / 60 SollMonat = Val(Arbeitstage) * SollWoche / 5 'Ausgabe der Monats-Soll-Stunden im Format h:mm Monatsstunden = Int(SollMonat) & ":" & Format((SollMonat - Int(SollMonat)) * 60, "00") End If End Function

Hallo Kasimir,
mit folgender Anpassung kann meine Funktion auch Wochenarbeitszeiten


Private Function Monatsstunden(Arbeitstage As String, WochenSollzeit As String) As String
Dim SollWoche As Double, SollMonat As Double
If Arbeitstage <> "" And WochenSollzeit <> "" Then
'Berechnung der Zeiten in Stunden (Dezimal)
SollWoche = CDbl(Mid(WochenSollzeit, 1, InStr(1, WochenSollzeit, ":") - 1)) + _
CDbl(Mid(WochenSollzeit, InStr(1, WochenSollzeit, ":") + 1, 2)) / 60
SollMonat = Val(Arbeitstage) * SollWoche / 5
'Ausgabe der Monats-Soll-Stunden im Format h:mm
Monatsstunden = Int(SollMonat) & ":" & Format((SollMonat - Int(SollMonat)) * 60, "00")
End If
End Function

Die Abweichungen Userform/Tabelle sind meiner Meinung nach auf einen Fehler in Peter's Formel zurückzuführen.Die als Ergebnis dargestellte Zahl ist die Stundenzahl in dezimaler Form mit Doppelpunkt als Trennzeichen. Peter's Formel für die Textbox3 müsste wie folgt sein:


TextBox3.Value = Format(Int(iZeit / 5 * iTage / 60) + (iZeit / 5 * iTage / 60 - _
Int(iZeit / 5 * iTage / 60)) * 60 / 100, "#0.00")

Allerdings kommt bei mir mit deinen Eingaben auch ein völlig anderes Ergebnis heraus:

Tabellenblattname: Test
A             B                 C
1  Tage  WochenSollzeit   MonatsSollzeit
2    10            8:25            16:50
Benutzte Formeln:
C2:  =B2/5*A2

In Zelle B2 ist die Eingabe eine Zeiteingabe (08:25:00). Die Zellen B2 und C2 sind mit dem benutzerdefinierten Format [h]:mm formatiert.
Gruss
Franz

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Rechnen mit Zeiten in TextBox???

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread