Profil von MacLeod2021

MacLeod2021

16.06.2022, 15:46

Guten Tag Community,

ich habe eine UserForm erstellt, und darin möchte ich eine Zeit Erfassung Ausgeben lassen.

Ich arbeite im Schicht-Wechsel.

z.B. von 18:30 - 02:30 - 0:30 Pause = 07:30 = 7,5 Std.

Hier mein Code Zurzeit:

Private Sub CommandButton1_Click()
Dim pause As Double

pause = CDbl(CDate(TextBox2.Value)) - CDbl(CDate(TextBox1.Value))

If pause >= 0.167 Then TextBox3.Value = "00:15"
If pause >= 0.250033333333333 Then TextBox3.Value = "00:30"
If pause >= 0.375233333333333 Then TextBox3.Value = "00:45"
If pause >= 0.416833333333333 Then TextBox3.Value = "01:00"

TextBox4.Value = Format(CDate(TextBox2.Value) - CDate(TextBox1.Value) - CDate(TextBox3.Value), "hh:mm")
'TextBox4 = WorksheetFunction.Text(CDate(TextBox2.Value) + CDate(TextBox1.Value), "[hh]:mm")


End Sub

Private Sub UserForm_Initialize()
 TextBox1.Value = Format("18:30", "hh:mm")
 TextBox2.Value = Format("02:30", "hh:mm")
 TextBox3.Value = Format(Date, "hh:mm")
  
Label5.Caption = Format(Date, "dd.mm.yyyy")
Label6.Caption = Format(Time, "hh:mm:ss")
End Sub

Kann mir einer Weiter helfen?

Gruß

MacLeod

...zum Beitrag

Antwort

von MacLeod2021

18.06.2022, 17:54

Hallo,

danke für deine Rückantwort. Sorry das ich mich so Spät zurück melde.

Habe mit der if schleife versucht, dabei bin ich auf einen anderen Weg gekommen bzw.

habe es einfach mit +24 (24 Stunden) versucht. Hat geklappt, bis auf, das die Pausen nicht abgezogen wird.

Private Sub CommandButton1_Click()
Dim pause As Double

pause = CDbl(CDate(TextBox2.Value)) - CDbl(CDate(TextBox1.Value))

If pause >= 0.167 Then TextBox3.Value = "00:15"
If pause >= 0.250033333333333 Then TextBox3.Value = "00:30"
If pause >= 0.375233333333333 Then TextBox3.Value = "00:45"
If pause >= 0.416833333333333 Then TextBox3.Value = "01:00"

'TextBox4.Value = Format(CDate(TextBox2.Value) - CDate(TextBox1.Value) + 24 - CDate(TextBox3.Value), "hh:mm")
TextBox4.Value = Format(CDate(TextBox2.Value) - CDate(TextBox1.Value) - CDate(TextBox3.Value), "hh:mm")

End Sub

Private Sub UserForm_Initialize()
  TextBox1.Value = Format("18:30", "hh:mm")
  TextBox2.Value = Format("2:30", "hh:mm")
  TextBox3.Value = Format(Date, "hh:mm")

Label5.Caption = Format(Date, "dd.mm.yyyy")
Label6.Caption = Format(Time, "hh:mm:ss")
End Sub

Kannst du mir in den Punkt etwas helfen?(Code)

Muss damit sagen, dass ich noch Anfänger bin, was mit VBA zu tun hat.

Gruß

MacLeod

...zur Antwort