Verbleibende Zeit berechnen
04.04.2019 15:21:40
Tim
dank eurer Unterstützung war es mir heute möglich eine Zeitberechnung zu erstellen. Die dazugehörigen Zeiten zu Arbeitsbeginn, Arbeitsende und Pausenzeit als Ganzzahl lese ich in eine Listbox ein. Anschließend soll er mir zur aktuellen Uhrzeit, die verbleibenden Stunden bis zum Arbeitsende berechnen. Das alles funktioniert sehr gut.
Jetzt liegt die Herausforderung darin, dass die Pausenzeit abgezogen werden muss, wenn die aktuelle Zeit vor 11:30 Uhr liegt, jedoch bekomme ich das nicht umgesetzt.
Bsp.:Wenn aktuelle Zeit Mit folgendem Code habe ich es ergebnislos probiert.
Private Sub CommandButton1_Click()
Dim i As Integer
Dim Stunden As Double
Dim Pause As Date
Pause = CDate("11:30")
Stunden = 0
With ListBox1
For i = 0 To .ListCount - 1
If .Selected(i) Then
'Stunden = Stunden + Round((DateDiff("n", Time, .List(i, 3)) / 60), 2)
Stunden = Stunden + Round((DateDiff("n", IIf(Time > Pause, Stunden - .List(i, 5), Time), _
.List(i, 3)) / 60), 2)
End If
Next i
End With
TextBox2 = VBA.Format(Stunden, "#0.00")
Label9.Caption = Time
End Sub
Anzeige