Date less than Today

[Noz2k]

I need to specify that the date value entered in a textbox cannot be greater than todays date, and was wondering if anybody could help?

 

[MrKowz]

Maybe something along these lines?

If Textbox1.Value > Date Then
    MsgBox "Please enter a date earlier than today: " & Date
    Exit Sub
Else
    'Your Code
End If

 

[Noz2k]

Sorry, I should have explained better.

I have tried using that, but the date value entered is in the format dd/mm/yyyy which I think is what is preventing this from working.

 

[MrKowz]

Try:

If Textbox1.Value > Format(Date, "dd/mm/yyyy") Then
    MsgBox "Please enter a date earlier than today: " & Date
    Exit Sub
Else
    'Your Code
End If

 

[Noz2k]

Knew, I was missing something. Perfect thanks

 

[Noz2k]

No sorry, my mistake, I only changed the year when checking.

I think the problem I have is that the value entered into the textbox isn't being recognised as a date.

So in essence it is reading the date as the number 21032011.

It's seeing 22/03/2010 as greater than 21/03/2011.


Not to worry I corrected the code myself using CDate.

Code is now

If CDate(Textbox.Value) > Format(Date, "dd/mm/yyyy") Then
    MsgBox "Date cannot be in the future. Today is " & Date

 

[MrKowz]

Then we need to convert that number into a date by using DateSerial and some string functions to strip out the day, month, year.

If DateSerial(Right$(Textbox1.Value, 4), Mid$(Textbox1.Value, 3, 2), Left$(Textbox1.Value, 2)) > Date Then
    MsgBox "Please enter a date earlier than today: " & Date
    Exit Sub
Else
    'Your Code
End If

 

[Noz2k]

It's ok, I just used CDate which seems to have done the trick.

Thanks very much for your help though