Date Function in VB

[gailann27]

hey guys,
I am trying to use a dateadd function when they put in a check in date let say 08/31/07
and today is 08/16/07 is suppose to prompt then the they are not within the 15 days to cancel there item

Dim Resv As Date
' this is the codes i have so far:
Resv = (DateAdd("d", 15, txtitem.Text))
If Not (Resv <= txtitem) Then
  MsgBox "Sorry Cancellation is not within the 15 Days Cancellation Period", 
  txtitem.SetFocus
  Exit Sub
End If

Any suggests.....

[kadghar]

hey guys,
I am trying to use a dateadd function when they put in a check in date let say 08/31/07
and today is 08/16/07 is suppose to prompt then the they are not within the 15 days to cancel there item

Dim Resv As Date
this is the codes i have so far:
Resv = (DateAdd("d", 15, txtitem.Text))
If Not (Resv <= txtitem) Then
MsgBox "Sorry Cancellation is not within the 15 Days Cancellation Period",
txtitem.SetFocus
Exit Sub
End I

Any suggests.....

Hi,
First of all, i hope txitem is a date, I really dont feel like i understood you perfectly well, but i think that what we have is that a reservation must be done at least 15 days before the check in date.

Lets say that txtItem is where you write the check in date. so..

Dim Resv As Date
Resv = (DateAdd("d", 15, txtitem.Text))
'now resv is 15 days before the check in date
If Not (Resv <= Date) Then
' Here is where i think you were wrong, i used Date (that it's today's date)
MsgBox "Sorry Cancellation is not within the 15 Days Cancellation Period", 
txtitem.SetFocus
Exit Sub

Hope this helps

[megatoke]

Hi
I think what is happening is that you are tring to compare two strings and not a numeric value. Try using the Datevalue() function to convert your dates to a numeric value.

ie:
If Datevalue(txtItem.text) >= (Datevalue(txtItem.text) + 15) then

End if

[Killer42]

Yes, you need to be very careful comparing dates or other numeric values in strings - VB will do an alphabetic comparison, which probably won't achieve what you want.