VBA Codes to seggregate hours into 12

[Hanumantharayappa Y H]

Hi friends,

I have datetime field in column M

I will take only Hour field from there.

After that if an hour is between

0-2 then "0AM-2AM"

3-4 means "2AM-4AM"

5-6 Means "4AM - 6 AM"


.....Like that it follows

the last one will be "10PM-12 AM".

Kindly help me to get VBA Code.

Regds,

Hanu

 

[Luke M]

If you really need a VB solution:

Function TimeCode(myDate As Date) As String
Dim myHour As Long
Dim roundTime As Date

roundTime = WorksheetFunction.Floor(myDate, 2 / 24)

TimeCode = Format(roundTime, "hAM/PM") & " - " & Format(roundTime + 2 / 24, "hAM/PM")
End Function

Or, even faster, the regular formula:
=TEXT(FLOOR(M2,2/24),"hAM/PM")&" - "&TEXT(FLOOR(M2,2/24)+2/24,"hAM/PM")

 

[Hanumantharayappa Y H]

Thanks Luke