Time Range Calculation?

[Bdog]

I'm trying to find out if now() is between 9:00 AM and 5:00 PM I've tried
a few things but can't get it to work.

Thanks

[Andrew D. Newbould]

In message <uA************ **@TK2MSFTNGP14 .phx.gbl>, Bdog
<bd***@Hotmail. com> writes

I'm trying to find out if now() is between 9:00 AM and 5:00 PM I've tried
a few things but can't get it to work.

Have you tried:

IF Hour(Now) >= 9 AND Hour(Now) <= 17 THEN
' Do Something
END IF
--
Andrew D. Newbould E-Mail: ne********@NOSP AMzadsoft.com

ZAD Software Systems Web : www.zadsoft.com

[Bdog]

Thanks I'll try it, any idea on how to handle it if I want from 8:30 to
4:30?

Thanks

Barclay

"Andrew D. Newbould" <ne********@NOz adSPANsoft.com> wrote in message
news:uo******** ******@zadsoft. gotadsl.co.uk.. .

In message <uA************ **@TK2MSFTNGP14 .phx.gbl>, Bdog
<bd***@Hotmail. com> writes

I'm trying to find out if now() is between 9:00 AM and 5:00 PM I've trieda few things but can't get it to work.

Have you tried:

IF Hour(Now) >= 9 AND Hour(Now) <= 17 THEN
' Do Something
END IF
--
Andrew D. Newbould E-Mail: ne********@NOSP AMzadsoft.com

ZAD Software Systems Web : www.zadsoft.com

[Tom Shelton]

On 2005-06-08, Bdog <bd***@Hotmail. com> wrote:

Thanks I'll try it, any idea on how to handle it if I want from 8:30 to
4:30?

Thanks

Barclay

Barclay, look at the DateTime objects compare method...

Dim begin As New Date _
(DateTime.Now.Y ear, DateTime.Now.Mo nth, DateTime.Now.Da y, 8, 30, 0)
Dim end As New Date _
(DateTime.Now.Y ear, DateTime.Now.Mo nth, DateTime.Now.Da y, 16, 30, 0)

Dim currentTime As Date = Date.Now ()
If Date.Compare (currentTime, begin) >= 0 And _
Date.Compare (currentTime, end) <= 0 Then
' Do Cool Stuff
End If

If you don't want it to be inclusive, then remove the equal signs :)
--
Tom Shelton [MVP]

[Cor Ligthert]

Bdog,

I'm trying to find out if now() is between 9:00 AM and 5:00 PM I've
tried
a few things but can't get it to work.

I take for this the approach, that I first take the ticks from those values
and than compare those.

In my opinion is that the most easy way doing this.

I hope this helps,

Cor

[Andrew D. Newbould]

In message <u0************ **@TK2MSFTNGP14 .phx.gbl>, Cor Ligthert
<no************ @planet.nl> writes

Bdog,

I'm trying to find out if now() is between 9:00 AM and 5:00 PM I've
tried
a few things but can't get it to work.

I take for this the approach, that I first take the ticks from those values
and than compare those.

In my opinion is that the most easy way doing this.

I hope this helps,

Cor

Or just look at the other Date functions like Minute, Seconds, Month,
Day, Year etc.
--
Andrew D. Newbould E-Mail: ne********@NOSP AMzadsoft.com

ZAD Software Systems Web : www.zadsoft.com

[Cor Ligthert]

Andrew,

Or just look at the other Date functions like Minute, Seconds, Month, Day,
Year etc.

Than you have to compare every part indivially with the ticks you do it in
one time.

See this sample that I made for this question.

\\\
Dim datenow As DateTime = Now
Dim datefive As DateTime = _
New DateTime(Now.Ye ar, Now.Month, Now.Day, 17, 0, 0)
Dim datenine As DateTime = _
New DateTime(Now.Ye ar, Now.Month, Now.Day, 9, 0, 0)
If datenow.Ticks < datefive.Ticks AndAlso _
datenow.Ticks > datenine.Ticks Then
MessageBox.Show ("The time is between nine and five")
End If
///

Although I find your sample using the Microsoft.Visua lBasic namespace very
nice, does this go as well for minutes or even seconds.

Therefore if the problem is exactly as it is. I would go for your sample.
This ticks answer I write forever because it gives never problems. (For the
sample from Tom this is only an alternative showed because of the sentence
before )

Cor

[B-Dog]

Thanks for all your help guys, I'll give it a shot.

Barclay

"Cor Ligthert" <no************ @planet.nl> wrote in message
news:Oh******** ******@tk2msftn gp13.phx.gbl...

Andrew,

Or just look at the other Date functions like Minute, Seconds, Month, Day, Year etc.

Than you have to compare every part indivially with the ticks you do it in
one time.

See this sample that I made for this question.

\\\
Dim datenow As DateTime = Now
Dim datefive As DateTime = _
New DateTime(Now.Ye ar, Now.Month, Now.Day, 17, 0, 0)
Dim datenine As DateTime = _
New DateTime(Now.Ye ar, Now.Month, Now.Day, 9, 0, 0)
If datenow.Ticks < datefive.Ticks AndAlso _
datenow.Ticks > datenine.Ticks Then
MessageBox.Show ("The time is between nine and five")
End If
///

Although I find your sample using the Microsoft.Visua lBasic namespace very
nice, does this go as well for minutes or even seconds.

Therefore if the problem is exactly as it is. I would go for your sample.
This ticks answer I write forever because it gives never problems. (For

the sample from Tom this is only an alternative showed because of the sentence before )

Cor

[Jay B. Harlow [MVP - Outlook]]

Bdog,
I defined a TimeRange type that is useful to check to see if a DateTime
falls within a certain Time Range (for example between 8AM & 5PM). See:

http://groups-beta.google.com/group/...9aa87555043055

Using TimeRange you could do something like:

Static workHours As New TimeRange(#8:00 :00 AM#, #5:00:00 PM#)

If workHours.Conta ins(DateTime.No w) Then

End If

Hope this helps
Jay
"Bdog" <bd***@Hotmail. com> wrote in message
news:uA******** ******@TK2MSFTN GP14.phx.gbl...
| I'm trying to find out if now() is between 9:00 AM and 5:00 PM I've
tried
| a few things but can't get it to work.
|
| Thanks
|
|

[Phill. W]

"Bdog" <bd***@Hotmail. com> wrote in message
news:uA******** ******@TK2MSFTN GP14.phx.gbl...

I'm trying to find out if now() is between 9:00 AM and 5:00 PM

Format them all up as 24-hour times and compare - something like

sStart = dtStart.ToStrin g( "HH:mm" )
sEnd = dtEnd.ToString( "HH:mm" )
sNow = Now().ToString( "HH:mm" )

Select Case sNow
Case sStart To sEnd
' Yep!
Case Else
End Select

HTH,
Phill W.