Помогите, дата достала.

[Vini]

Привет!
Надо проверить дату полученную от юзера на предмет
не ранее 1 Апреля 2003 и не будущее.

Что то никак не найду функции для организации этого процесса.
Помогите.

[skiperski]

Код: Выделить всё

d = CDate(<user_date>)
If (DateSerial(2003, 4, 0) < d And d < Now) Then
...

Или немного конкретнее

Код: Выделить всё

If (d < CDate("2003-04-01")) Then
    Msg = "Дела давно минувших дней, преданья старины глубокой..."
ElseIf (d > Now) Then
    Msg = "Машина будущего ещё не изобретена"
Else
    ...
End If


[Vini]

Премного благодарен!
Это как раз то что надо.