[Acc97] Datum prüfen

Computer: Software & Programmierung Microsoft Access
#1

Hallo!

Ich möchte gerne eine Funktion realisieren, nach dem Muster:

okay = Datumkorrekt(tag, monat, jahr)

ein Ja oder Nein liefert, ob ein plausibles Datum übergeben wurde oder Blödsinn wie der 32.12.200 oder der 30.2.2001.

Bevor ich nun anfange, lauter einzelne IF-Abfragen zu basteln: Es müßte doch auch mit einer der eingebauten Access-Funktionen klappen (ohne das unschöne „On Error“ zu benutzen)?

Gruß,
Claudio

#2

Was hast du gegen „On Error“ - kurz und schmerzlos:

Public Function DatumKorrekt(Jahr, Monat, Tag)
Dim D As Date
On Error Resume Next
D = CDate(Jahr & "-" & Monat & "-" & Tag)
DatumKorrekt = Err.Number = 0
End Function

Reinhard

#3

Was hast du gegen „On Error“ - kurz und schmerzlos:

Okay, überredet :smile:

Danke Dir!
Claudio