Create time range based on time input - vba

Question

Greetings I would like to use a VBA to create a 30 minute time range (Column B) on worksheet "Inbound Fids". For example 1015 would become 0945-1045, 0015 would become 2345-0045. I am able to create this using the formula bar, but I have to add no less than five columns. The first added Column takes text and converts it into a time format =TIMEVALUE(LEFT(D2,2)&":"&MID(D2,3,2)). The second added column takes 30 minutes off the new column, =MOD(H2-0.5/24,1). The third added column adds 30 minutes to the first added column, =(H2+0.5/24). The fourth Column combines the 2nd and 3rd Column and converts it back to text, =TEXT(I2,"hh:mm")&"-"&TEXT(J2,"hh:mm"). The last column drops the Colon =SUBSTITUTE(K2,":",""). Can we work all this into a MACRO keeping the end result in Column B. I do realize that the format is not ideal, but we have to use military time where leading zeros will not be drop and not have a colon. Lastly, I would only want this to apply Column B where only cells with numbers are considered.

Answer 1

Try to paste this function to your vba editor and use it as a formula in your target cell
Function GET30MINRANGE(strTime As String) As String
Dim strRange, strHour, strMin, lowerBound, upperBound As String
Dim timeVal As Date
strMin = Mid(strTime, 3, 2)
strHour = Left(strTime, 2)
timeVal = Date + TimeValue(strHour & ":" & strMin)
lowerBound = Format(timeVal - TimeSerial(0, 30, 0), "hhnn")
upperBound = Format(timeVal + TimeSerial(0, 30, 0), "hhnn")
strRange = lowerBound & "-" & upperBound
GET30MINRANGE = strRange
End Function
Like so,
=GET30MINRANGE(B2)