Check to See if Current Time is between hours

mvollmer · July 28th, 2004, 08:57 AM

Hey all,

I am almost positive I have seen this done before but I am struggling with it. I need to have a page that checks the current time and then depending on the time it will display certain things.

For example, if it is between 9AM and 11AM, it will show a link.

But I need it to check three different intervals (9-11, 1-4, 7-9). And if the current time is not between any of those hours (so like 6PM), then it just displays some text.

Any idea? Thanks again!

Mike

Michael W. Vollmer

mega · July 28th, 2004, 04:11 PM

uhh...
Select Case Hour(Now)
  Case 9, 10, 11
    Response.Write("<a href=#">blah</a>")
  Case 1, 2, 3, 4
    Response.Write("<a href=#">blahblah</a>")
  Case 7, 8, 9
    Response.Write("This is just text")
  Case Else
    Response.Write("Dummy text - dunno what went wrong")
End Select

- mega

mvollmer · July 28th, 2004, 04:13 PM

Wow! I had a feeling it was something very simple like that but I just could not get it. I will try this later and let you know how it works. Thanks in advance!

Michael W. Vollmer

mvollmer · July 28th, 2004, 04:29 PM

Just tried your example, but added 5 to the end of the line with 1, 2, 3, 4 so I could see if it works (it's only 4:30PM here) and it only shows the last line about the Dummy text. Any other ideas anybody?

Michael W. Vollmer

happygv · July 28th, 2004, 06:46 PM

In that case use CInt() method and range bound If there.

Code:

Dim CurHr
CurHr = Hour(Now)

If Cint(CurHr) >= 1 and Cint(CurHr) <= 4 then 
    Response.write "<a href='thislink'>Thislink</a>"
ElseIf Cint(CurHr) >= 7 and Cint(CurHr) <= 8 then 
    Response.write "<a href='thatlink'>Thatlink</a>"
ElseIf Cint(CurHr) >= 9 and Cint(CurHr) <= 11 then
    Response.write "<a href='thatlink'>Thatlink</a>"
Else
    Response.write "Some Text"
End If

Hope that helps.
Cheers!

_________________________
- Vijay G
Strive for Perfection

mvollmer · July 28th, 2004, 07:49 PM

That one seems to work! Thanks again sooo much. As always, you guys ROCK!

:D

Michael W. Vollmer