Comparing date to string

[benjammind]

Hi,
I have a user form on a worksheet that contains 2 text boxes, one o
the text boxes is populated with a date by means of a calendar control
and the other textbox is populated with a string value that correspond
to the year (2005, 2006, 2007 etc) when the userform is initialised.
command button enters these 2 values onto the sheet.

I need to use the command button that when clicked will compare th
date value in the one textbox to the year string value in the othe
textbox [If that makes sense]. So, for example, preventing a date i
2006 being entered in 2005.

Can anyone help me out with the correct way of doing this? Should I b
using cDate to convert the date value to a string value befor
comparing the 2 string values?

Any help would be appreciated.
Be

 

[Rob Bovey]

Hi Ben,

The VBA function DatePart("yyyy", <your date here>) will return the year
portion of a specified date. You can then compare this against the year
entered by the user to determine if they are the same. Here's one way of
setting it up:

If DatePart("yyyy", TextBox1.Text) <> CLng(TextBox2.Text) Then
''' Error!
End If

--
Rob Bovey, Excel MVP
Application Professionals
http://www.appspro.com/

* Take your Excel development skills to the next level.
* Professional Excel Development
http://www.appspro.com/Books/Books.htm