date problem

[EyeTalion]

I'm testing to see if a date is current. This code works fine, except it returns the error message when todays date is chosen. I'm using the < sign, why is it returning the error message for todays date?

If CDate(txtIntDisStartDate.Text) < Now Then
lblErr.Text = "Display Start Date must be current"
Exit Sub
End If

[HAROLD HOFFMAN]

Try

If CDate(txtIntDisStartDate.Text) < Now.Date Then
lblErr.Text = "Display Start Date must be current"
Exit Sub
End If


This should compare just the date and not include the time

Harold Hoffman

[Athley]

HAROLD HOFFMAN is quite correct, your CDate convertion gives you a value wich has the time 00:00 and VERY often that will be smaller than the now value that gives you the time where you call the function. So either try what HAROLD suggested or maybe convert all dates to short dates with Date.ToShortDateString and compare strings.

[Pirate]

Dim tody As Date
Dim mydate As Date
mydate = tody.Today
If mydate = tody.Today Then
'put your code 
End If

would this helps !!

[EyeTalion]

thanks Harold, that worked...I need to check if a date is one day after another date selected...is this correct?

 If CDate(txtPreBidOpenDate.Text) = DateAdd(DateInterval.Day, 1, CDate(txtBidOpenDate.Text))

[EyeTalion]

thanks Harold, that worked...I need to check if a date is one day after another date selected...is this correct?

 If CDate(txtPreBidOpenDate.Text) = DateAdd(DateInterval.Day, 1, CDate(txtBidOpenDate.Text))

[HAROLD HOFFMAN]

I would probably use the following to make sure that you are comparing only the date component and not the time component if there is one.

If CDate(txtPreBidOpenDate.Text).Date = DateAdd(DateInterval.Day, 1, CDate(txtBidOpenDate.Text).Date)


Harold Hoffman

[EyeTalion]

thanks