Private Sub Form_Load()
 
  Me.txtDatum.Text = Format(Now, "DD.MM.YYYY mm:ss")
 
End Sub
 
 
Private Sub UpDown1_DownClick()
 
  Dim Wert
  Dim iSelStart As Integer
  Dim iSelLaenge As Integer
  Dim sTemp As String
  Dim sDatum As String
  Dim sDatumNeu As String
 
  iSelStart = Me.txtDatum.SelStart
  iSelLaenge = Me.txtDatum.SelLength
  Wert = Me.txtDatum.SelText
 
  If IsNumeric(Wert) = False Then
    MsgBox "Fehler"
  Else
    If CInt(Wert) - 1 >= 0 Then
      Wert = Wert - 1
      sDatum = "-" & Me.txtDatum.Text & "-"
      sDatumNeu = Left(sDatum, iSelStart + 1)
      sDatumNeu = sDatumNeu & Wert
      sDatumNeu = sDatumNeu & Mid(sDatum, iSelStart + iSelLaenge + 2)
      Me.txtDatum.Text = Mid(sDatumNeu, 2, Len(sDatumNeu) - 2)
      Me.txtDatum.SelStart = iSelStart
      Me.txtDatum.SelLength = Len(Wert)
    Else
      MsgBox "Fehler"
    End If
  End If  
 
End Sub
 
 
Private Sub UpDown1_UpClick()
 
  Dim Wert
  Dim iSelStart As Integer
  Dim iSelLaenge As Integer
  Dim sTemp As String
  Dim sDatum As String
  Dim sDatumNeu As String
 
  iSelStart = Me.txtDatum.SelStart
  iSelLaenge = Me.txtDatum.SelLength
  Wert = Me.txtDatum.SelText
 
  If IsNumeric(Wert) = False Then
    MsgBox "Fehler"
  Else
      Wert = Wert + 1
      sDatum = "-" & Me.txtDatum.Text & "-"
      sDatumNeu = Left(sDatum, iSelStart + 1)
      sDatumNeu = sDatumNeu & Wert
      sDatumNeu = sDatumNeu & Mid(sDatum, iSelStart + iSelLaenge + 2)
      Me.txtDatum.Text = Mid(sDatumNeu, 2, Len(sDatumNeu) - 2)
      Me.txtDatum.SelStart = iSelStart
      Me.txtDatum.SelLength = Len(Wert)
  End If
 
End Sub