Military time to regular time in different timezone

[Mux99]

Hi All

I would like to convert a list of military time in Column C to regular time in a different time zone (+3hr) and also deduct 45 minutes off the new calculated time.

Scedule
Title	Description	Time
Test1	Apple	620
Test2	Banana	1050
Test3	Orange	2015

<tbody>
</tbody>

After running the macro it should look like the below. Column D = +2 hours 15 minutes. Column E = +3 hours.

Schedule
Title	Description	Time	From	To
Test1	Apple	620	08:35	09:20
Test2	Banana	1050	13:05	13:50
Test3	Orange	2015	22:30	23:15

<tbody>
</tbody>

Thanks in advance

 

[Osvaldo Palmeiro]

Hi. Try.

Sub MilitaryTimeToRegularTime()
 Dim mh As Range
  For Each mh In Range("C3:C" & Cells(Rows.Count, 3).End(3).Row)
   mh.Offset(, 1).Value = TimeValue(Format(mh.Value, "0\:00")) + TimeValue("02:15")
   mh.Offset(, 2).Value = TimeValue(Format(mh.Value, "0\:00")) + TimeValue("03:00")
  Next mh
End Sub

And format D:E as desired.