help on date

[mikester104]

Here is a hard one i have been stuckon for a while. I have a user form that
does a now statemnet to automatically fill a text box. However a user can
input a another date in the date issued textbox. What i want it to do is if
that date that the user enters in is to old then it iwll pop a msgbox up.

For example this being October can you have the date limit allow input for
August, September and October and flag any with dates before August as too
old to accept? Now this will have to be an xpression that will update from
the now statement. So if its now month is November then it will allow info
for November, October and September but flag any past dates. I know this is a
wierd one but i thought i was getting good at programming till this happend.
Thanks for anyone hlp on this.

 

[Dave Peterson]

I didn't build a userform, but this kind of thing may help:

Option Explicit
Sub testme()
Dim myDate As Date
Dim CutOffDate As Date

On Error Resume Next
myDate = CDate(InputBox(Prompt:="Enter any date", _
Default:=Format(Date, "mmmm dd, yyyy")))
If Err.Number <> 0 Then
MsgBox "not a date"
Err.Clear
Exit Sub
End If

CutOffDate = DateSerial(Year(Date), Month(Date) - 2, 1)

If myDate < CutOffDate Then
MsgBox "too early"
Else
'do the work
End If
End Sub