find if day or evening from time

[pb21]

I have the following function:

Public Function GetPeakPeriod(DateString As String, Time As String) As String
Dim d1 As Date
Dim Weekend As Boolean

Dim TimeConv As String
d1 = DateString

If Len(Time) > 5 Then
TimeConv = Left(Time, 2) & ":" & Mid(Time, 3, 2) & ":" & Right(Time, 2)
Else
TimeConv = Left(Time, 1) & ":" & Mid(Time, 2, 2) & ":" & Right(Time, 2)
End If
Weekend = IsWeekend(d1)

Select Case Weekend

Case True
GetPeakPeriod = "Weekend"
Case False
'some code to determine if day or evening

if time >= 0800 hrs and time <=1759hrs
GetPeakPeriod = "Day"

else
GetPeakPeriod = "Evening"

end Select

End Function

I would like to determine from the time if it is evening or day so if 18:00 hours or later till 0800 then output "evening" else "day".

regards in advance

 

[Shingouki]

Just change the code to this in your select expression.

if Time >= #08:00:00# And Time < #18:00:00#
GetPeakPeriod = "Day"

else
GetPeakPeriod = "Evening"
End If