Private Sub SpinButton1_SpinUp()
Dim datDate As Date
datDate = TextBox1.Value
TextBox1.Value = DateAdd("d", 1, datDate)
End Sub
Private Sub SpinButton1_SpinDown()
Dim datDate As Date
datDate = TextBox2.Value
TextBox2.Value = DateAdd("d", -1, datDate)
End Sub
Private Sub TextBox2_Change()
TextBox1.Value = FormatDateTime(TextBox2, vbLongDate)
End Sub
Private Sub SpinButton1_SpinDown()
TextBox1 = FormatDateTime(DateValue(Mid(TextBox1, InStr(TextBox1, ",") + 1)) - 1, vbLongDate)
End Sub
Private Sub SpinButton1_SpinUp()
TextBox1 = FormatDateTime(DateValue(Mid(TextBox1, InStr(TextBox1, ",") + 1)) + 1, vbLongDate)
End Sub