Prüfung des Datums in TextBox

Josef · 2006-07-04T08:01:05+00:00

Hallo! Wenn man in einer TextBox ein Datum mit der Vorgabe TTMMJJJJ eingibt, so sollte geprüft werden ob auch tatsächlich ein Datum eingegeben wurde. z.B. 04072006 und nicht 04070006 oder 04072060 oder 40720006. Kann hier bitte eine Prüfung mittels VBA vorgenommen werden und wenn ja wie würde hier bitte eine Lösung aussehen? Danke Josef

Hallo Josef,
noch eine Überarbeitete Form meines Codes:


Private Sub CommandButton1_Click()
Dim lngx As String
Dim lngy As String
Dim lngz As String
Dim Tag As Byte
Dim Monat As Byte
Dim Jahr As Byte
lngx = Left(Me.TextBox1.Value, 2)
lngy = Mid(Me.TextBox1.Value, 3, 2)
lngz = Right(Me.TextBox1.Value, 4)
If Not Len(Me.TextBox1.Value) = 8 Then GoTo Err1
Select Case lngx
Case "01" To "31"
Tag = 1
End Select
Select Case lngy
Case "01" To "12"
Monat = 1
End Select
Select Case lngz
Case "2000" To "2010"               ' Hier kannst du das Jahr eingrenzen
Jahr = 1
End Select
If Tag = 0 Then GoTo Err1
If Monat = 0 Then GoTo Err1
If Jahr = 0 Then GoTo Err1
datum = DateSerial(lngz, lngy, lngx)
If lngy = "02" And lngx > "29" Then GoTo Err2
If lngy = "04" Or lngy = "06" Or lngy = "09" Or lngy = "11" Then
If lngx > "30" Then GoTo Err3
End If
If datum < Date Then GoTo Err4
If datum > Date Then GoTo Err5
Exit Sub
Err1:
MsgBox "Falsches Datumsformat"
Exit Sub
Err2:
MsgBox "Der Februar hat maximal 29 Tage"
Exit Sub
Err3:
MsgBox "Dieser Monat hat nur 30 Tage"
Exit Sub
Err4:
MsgBox "Datum kleiner als Heute"
Exit Sub
Err5:
MsgBox "Datum größer als Heute"
Exit Sub
End Sub

Rückmeldung wäre nett.
Viele Grüße aus Köln.

Nochmal ich,
jetzt die Aktuellste Version des Codes :


Private Sub CommandButton1_Click()
Dim lngx As String
Dim lngy As String
Dim lngz As String
Dim Tag As Byte
Dim Monat As Byte
Dim Jahr As Byte
lngx = Left(Me.TextBox1.Value, 2)
lngy = Mid(Me.TextBox1.Value, 3, 2)
lngz = Right(Me.TextBox1.Value, 4)
If Not Len(Me.TextBox1.Value) = 8 Then GoTo Err1
Select Case lngy
Case "01", "03", "05", "07", "08", "10", "12"
Select Case lngx
Case Is > "31"
GoTo Err2
End Select
Case "02"
Select Case lngx
Case Is > "29"
GoTo Err3
End Select
Case "04", "06", "09", "11"
Select Case lngx
Case Is > "30"
GoTo Err4
End Select
Case Else
GoTo Err4
End Select
If lngz < "2000" Or lngz > "2050" Then GoTo Err5
datum = DateSerial(lngz, lngy, lngx)
If datum < Date Then GoTo Err6
If datum > Date Then GoTo Err7
'Anstelle der MessageBoxen kannst du eventuell andere Makros aufrufen.
Err1:
MsgBox "Falsches Datumsformat"
Exit Sub
Err2:
MsgBox "Dieser Monat hat nur 31 Tage"
Exit Sub
Err3:
MsgBox "Der Februar hat Maximal 29 Tage"
Exit Sub
Err4:
MsgBox "Dieser Monat hat nur 30 Tage"
Exit Sub
Err5:
MsgBox "Ungültiges Jahr"
Exit Sub
Err6:
MsgBox "Datum kleiner als Heute"
Exit Sub
Err7:
MsgBox "Datum größer als Heute"
End Sub

Rückmeldung wäre nett.
Viele Grüße aus Köln.

Forumthread: Prüfung des Datums in TextBox

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Prüfung des Datums in TextBox

Forumthread: Prüfung des Datums in TextBox

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread