' Datum auf Plausibilität prüfen
  ' Rückgabewert: formatierte Datumsangabe oder Leerstring,
  '               wenn ungültiges Datum
  Public Function CheckAndFormatDate(ByVal Datum As String) As String
    Dim Result As Boolean = False
    Dim TT As Short = 0
    Dim MM As Short = 0
    Dim JJ As Short = 0
    Dim FormatedDate As String = ""
 
    ' Ist überhaupt ein Datum eingetragen?
    If Datum.Replace(".", "").Trim.Length > 0 Then
 
      ' keine Punkte im Datum vorhanden
      If Datum.IndexOf(".") < 0 Then
 
        ' Eingabelänge mindestens 4-stellig
        If Datum.Length > 3 Then
          TT = Val(Datum.Substring(0, 2))
          MM = Val(Datum.Substring(2, 2))
 
          If Datum.Substring(4).Trim.Length = 0 Then
            ' Jahresangabe fehlt -> aktuelles Jahr annehmen
            JJ = Year(Now)
          Else
            JJ = Val(Datum.Substring(4))
          End If
          Result = True
        End If
      Else
 
        ' Eingabe enthält Punktangaben
        Dim Data() As String = Datum.Split(".")
 
        ' Tag ermitteln
        TT = Val(Data(0))
 
        ' Monat ermitteln
        If Data.Length > 0 Then
          MM = Val(Data(1))
 
          ' Jahr ermitteln
          JJ = Year(Now)
          If Data.Length > 1 AndAlso (Data(2).Trim.Length) > 0 Then JJ = _
            Val(Data(2))
          Result = True
        End If
      End If
 
      If Result Then
        ' Tag und Monat prüfen
        If TT > 0 And TT < 32 AndAlso MM > 0 And MM < 13 Then
          ' wenn Jahresangabe zweistellig
          ' 2000 annehmen, wenn kleiner 30 ansonsten 1900
          If JJ < 100 Then JJ = IIf(JJ < 30, 2000 + JJ, 1900 + JJ)
 
          ' wenn Tag größer als maximale Anzahl Tage im angegeben Monat...
          Dim calendar As New System.Globalization.GregorianCalendar
          Dim TMax = calendar.GetDaysInMonth(JJ, MM)
 
          ' ...Tagesangabe korrigieren
          If TT > TMax Then TT = TMax
 
          ' wenn alles OK - Datum formatieren (tt.mm.jjjj)
          FormatedDate = New DateTime(JJ, MM, TT).ToString("dd.MM.yyyy")
        End If
      End If
    End If
 
    Return FormatedDate
  End Function

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de