Sub Datumsprüfung()
Dim d As Date
On Error GoTo fehler
Beginn:
d = InputBox("Geben Sie das Lieferdatum ein!", _
"Datum eingeben")
If IsDate(d) And d Sub Datumsprüfung()
Dim d As Date
On Error GoTo fehler
Beginn:
d = InputBox("Geben Sie das Lieferdatum ein!", _
"Datum eingeben")
If Not IsDate(d) Then GoTo fehler
If IsDate(d) And Year(d) Year(Date) Then
MsgBox "Nur Eingaben im aktuellen Jahr möglich"
GoTo Beginn
End If
d = d + 14
MsgBox "Das Zahlungsziel ist der: " & d
Exit Sub
fehler:
MsgBox "Sie haben kein gültiges Datum eingegeben!"
GoTo Beginn
End Sub
Option Explicit
Sub Datumsprüfung()
Dim d As String
On Error GoTo fehler
Beginn:
d = InputBox("Geben Sie das Lieferdatum ein!", "Datum eingeben")
If StrPtr(d) = 0 Then Exit Sub 'Abbrechen gedrückt
If Not IsDate(d) Then GoTo fehler
'Abfrage ob es ein Datum ist und ob das Jahr das aktuelle Jahr ist
If IsDate(d) And Year(d) Year(Date) Then
MsgBox "Nur Eingaben im aktuellen Jahr möglich"
GoTo Beginn
End If
d = CDate(d) + 14 'String(d) in ein Datum umwandeln + 14 Tage
MsgBox "Das Zahlungsziel ist der: " & d
Exit Sub
fehler:
MsgBox "(" & d & ") ist kein gültiges Datum !", vbCritical, "Sie haben kein gültiges Datum _
eingegeben!"
GoTo Beginn
End Sub