Determine if Now.TimeOfDay Is Between Two Times

[JohnVM]

Hey Guys,

I want to make a function that determines if Now.TimeOfDay is between two times?

Basically I want to make a function to determine if the current time is between 6AM and 6PM, and return True if it is and False if its not.

I've been having a hard time doing the comparison. Any help would be appreciated.

Thx.

[Joacim Andersson]

  Public Function IsDayTime() As Boolean
    Return DateTime.Now.TimeOfDay >= New TimeSpan(6, 0, 0) AndAlso DateTime.Now.TimeOfDay <= New TimeSpan(18, 0, 0)
  End Function

[Hack]

  Public Function IsDayTime() As Boolean
    Return DateTime.Now.TimeOfDay >= New TimeSpan(6, 0, 0) AndAlso DateTime.Now.TimeOfDay <= New TimeSpan(18, 0, 0)
  End Function

How would you add two parameters to the function and pass the begin/end time that you wanted to check, and feed that into your function with the TimeSpan thing?

[Joacim Andersson]

  Public Function IsDayTime(ByVal startTime As DateTime, ByVal endTime As DateTime) As Boolean
    Return DateTime.Now.TimeOfDay >= startTime.TimeOfDay AndAlso DateTime.Now.TimeOfDay <= endTime.TimeOfDay
  End Function

[Hack]

Ah......I had something like that going but I was trying to cram it into the TimeSpan thing, and that is where I was screwing myself up.

Thanks!

[Joacim Andersson]

Well TimeOfDay returns a TimeSpan. You could of course do it like this as well:

  Public Function IsDayTime(ByVal startTime As DateTime, ByVal endTime As DateTime) As Boolean
    Return DateTime.Now.TimeOfDay >= New TimeSpan(startDate.Ticks) AndAlso DateTime.Now.TimeOfDay <= New TimeSpan(endTime.Ticks)
  End Function

or if you want to be complicated:

  Public Function IsDayTime(ByVal startTime As DateTime, ByVal endTime As DateTime) As Boolean
    Return DateTime.Now.TimeOfDay >= New TimeSpan(startTime.Hours, startTime.Minutes, startTime.Seconds) AndAlso ...
  End Function

[Hack]

Nah, thats OK. The first way works just fine.