Private Sub zeitberechnung()
'alt DTPicker
Dim i As Date
Dim j As Date
Dim t As Date
Dim t1 As Date
Dim a, b As Date
 
'neu

Dim y, x, c, v, k, l As Date

 
'alt
i = UserForm1.DTPicker3.Value
j = UserForm1.DTPicker4.Value
t = UserForm1.DTPicker1.Value
t1 = UserForm1.DTPicker2.Value
 
'neu

y = TextBox9.Value
x = TextBox10.Value
c = TextBox11.Value
v = TextBox12.Value
 
 
k = y + c
l = x + v

 
'alt
a = t + i
b = t1 + j
 
'If b < a Then
 '   MsgBox ("Enddatum darf nicht kleiner sein als Startdatum")
'Else
    'neu
    TextBox13.Value = Format(((l - k) * 24) * 60, "*000")
    'alt
    Label3.Caption = Format(((b - a) * 24) * 60, "*000")
'End If
 
End Sub