Solution required

[Hassan]

Hi All,

I have a full movement report of a vehicle and I have to check the status of
movement, following are the statuses

If vehicle Movmed from 05:30 to 13:30 then Its "1st Trip"
if vehicle moved from 13:30 to 21:30 then its "2nd Trip"
if vehicle moved from 21:30 to 05:30 then its "Private"
if vehicle moved before 05:30 to after 05:30 then its "Private / 1st"
if vehicle start before 13:30 and off after 13:30 then its "1st / 2nd"
if vehicle start before 21:30 and off after 21:30 then its "2nd / Private"

Thanks in advance

Hassan

 

[Patrick Molloy]

Option Explicit
Sub test()
MsgBox GetPeriods("05:30", "13:30")
MsgBox GetPeriods("13:30", "21:30")
End Sub

Function GetPeriods(startTime As String, stopTime As String) As String
Dim text1 As String
Dim text2 As String
text1 = GetPeriod(startTime)
text2 = GetPeriod(stopTime)
If text1 = text2 Then
GetPeriods = text1
Else
GetPeriods = text1 & " / " & text2
End If
End Function
Function GetPeriod(stime As String) As String
Select Case CDate(stime)
Case Is < CDate("05:30")
GetPeriod = "Private"
Case Is <= CDate("13:30")
GetPeriod = "1st Trip"
Case Is <= CDate("21:30")
GetPeriod = "2nd Trip"
Case Else
GetPeriod = "Private"
End Select
End Function