Code Erklärung
11.10.2005 09:22:54
Darren
Kann mir jemand den Code ein wenig auslegen?
Sub t()
Dim datStart As Date, datEnde As Date, datTime1 As Date, datTime2 As Date
Dim dblTage As Double, dblZeit As Double, dblGesamt As Double, dblRest As Double, dblAnzeige As Double
Dim intZähler As Integer, intTag As Integer
With Sheets("Tabelle1")
datStart = .Range("A1")
datTime1 = TimeSerial(Hour(.Range("A2")), Minute(.Range("A2")), Second(.Range("A2")))
datEnde = .Range("B1")
datTime2 = TimeSerial(Hour(.Range("B2")), Minute(.Range("B2")), Second(.Range("B2")))
End With
dblTage = (datEnde - datStart) * 24
dblZeit = (datTime2 - datTime1) * 24
dblGesamt = dblTage + dblZeit
dblRest = dblGesamt
dblAnzeige = 14 - (datTime1 * 24)
intZähler = 1
intTag = 1
Do
If dblRest <= 0 Then Exit Do
MsgBox "Tag " & intTag & " / Schicht " & intZähler & " / " & dblAnzeige & " Stunden"
dblRest = dblRest - dblAnzeige
If dblRest > 8 Then
dblAnzeige = 8
Else
dblAnzeige = dblRest
End If
intZähler = intZähler + 1
If intZähler > 3 Then
intTag = intTag + 1
intZähler = 1
End If
Loop
End Sub