Hallo Freunde,
bei diesem Code (in VBA) kommt immer 0 heraus, vielleicht findet jemand von Euch den Fehler.
Besten Dank auch und freundliche Gruesse Harry
Private Sub TextBox6_AfterUpdate()
\'Berechnung der Anzahl der Übernachtungen
Dim D1 As String, D2 As String, U1 As Date, U2 As Date
If Label2 "Day" And Label12 "" Then
D1 = TextBox1.Text & "." & TextBox2.Text & "." & TextBox3.Text
D1 = CDate(U1)
D2 = TextBox3.Text & "." & TextBox4.Text & "." & TextBox5.Text
D2 = CDate(U2)
TextBox10.Text = U1 - U2
ElseIf Label2 = "Day" Then
D1 = TextBox2.Text & "." & TextBox1.Text & "." & TextBox3.Text
D1 = CDate(U1)
D2 = TextBox4.Text & "." & TextBox5.Text & "." & TextBox5.Text
D2 = CDate(U2)
TextBox10.Text = U1 - U2
End If
End Sub
