Hello,
How can I compare today's date to 2 other dates? Example:

fDate = Left$(Date$, 2) & Mid$(Date$, 4, 2) & Right$(Date$, 4)
If fDate is equal to or greater than(=) Nov.1,2004 AND equal to or less
than(=<) Nov.26,2004 Then MsgBox "Warning!"

One way:

If Date = DateSerial(2004, 11, 1) And _
Date <= DateSerial(2004, 11, 26) Then MsgBox "Warning"


alternatively

If Date = #11/1/2004# And Date <= #11/26/2004# Then MsgBox "Warning"


In article ,
"Terri" wrote:

Hello,
How can I compare today's date to 2 other dates? Example:

fDate = Left$(Date$, 2) & Mid$(Date$, 4, 2) & Right$(Date$, 4)
If fDate is equal to or greater than(=) Nov.1,2004 AND equal to or less
than(=<) Nov.26,2004 Then MsgBox "Warning!"

What was wrong with the answer to your original post?

Don't use strings.

Dim dt as Date
dt = Date ' todays date as an example.
if Dt DateSerial(2004,11,1) and Dt < DateSerial(2004,11,26) then

End if

--
Regards,
Tom Ogilvy


"Terri" wrote in message
...
Hello,
How can I compare today's date to 2 other dates? Example:

fDate = Left$(Date$, 2) & Mid$(Date$, 4, 2) & Right$(Date$, 4)
If fDate is equal to or greater than(=) Nov.1,2004 AND equal to or less
than(=<) Nov.26,2004 Then MsgBox "Warning!"

On Thu, 21 Oct 2004 09:23:45 -0700, "Terri"
wrote:

Hello,
How can I compare today's date to 2 other dates? Example:

fDate = Left$(Date$, 2) & Mid$(Date$, 4, 2) & Right$(Date$, 4)
If fDate is equal to or greater than(=) Nov.1,2004 AND equal to or less
than(=<) Nov.26,2004 Then MsgBox "Warning!"

Here's one way. I simplified things a bit because I don't understand why you
constructed fdate the way you did. Also, I entered the two dates a bit
differently. But this seems to be equivalent:

=====================
Sub foo()
Dim fdate As Date, D1 As Date, D2 As Date

D1 = DateSerial(2004, 11, 1)
D2 = DateSerial(2004, 11, 26)

fdate = Date

If fdate = D1 And fdate <= D2 Then
MsgBox ("Warning")
End If

End Sub
=================


--ron

Tom,
Sorry for the re-post. I got an error on the 1st post and didn't realize it
actually posted. Also, I used your code example and it worked perfectly for
me. Many, many thanks!
Terri

"Tom Ogilvy" wrote:

What was wrong with the answer to your original post?

Don't use strings.

Dim dt as Date
dt = Date ' todays date as an example.
if Dt DateSerial(2004,11,1) and Dt < DateSerial(2004,11,26) then

End if

--
Regards,
Tom Ogilvy


"Terri" wrote in message
...
Hello,
How can I compare today's date to 2 other dates? Example:

fDate = Left$(Date$, 2) & Mid$(Date$, 4, 2) & Right$(Date$, 4)
If fDate is equal to or greater than(=) Nov.1,2004 AND equal to or less
than(=<) Nov.26,2004 Then MsgBox "Warning!"