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.

[TABLE="class: grid, width: 500"]
<tbody>[TR]
[TD]Scedule[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]Title[/TD]
[TD]Description[/TD]
[TD]Time[/TD]
[/TR]
[TR]
[TD]Test1[/TD]
[TD]Apple[/TD]
[TD]620[/TD]
[/TR]
[TR]
[TD]Test2[/TD]
[TD]Banana[/TD]
[TD]1050[/TD]
[/TR]
[TR]
[TD]Test3[/TD]
[TD]Orange[/TD]
[TD]2015[/TD]
[/TR]
</tbody>[/TABLE]


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

[TABLE="class: grid, width: 500"]
<tbody>[TR]
[TD]Schedule[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]Title[/TD]
[TD]Description[/TD]
[TD]Time[/TD]
[TD]From[/TD]
[TD]To[/TD]
[/TR]
[TR]
[TD]Test1[/TD]
[TD]Apple[/TD]
[TD]620[/TD]
[TD]08:35[/TD]
[TD]09:20[/TD]
[/TR]
[TR]
[TD]Test2[/TD]
[TD]Banana[/TD]
[TD]1050[/TD]
[TD]13:05[/TD]
[TD]13:50[/TD]
[/TR]
[TR]
[TD]Test3[/TD]
[TD]Orange[/TD]
[TD]2015[/TD]
[TD]22:30[/TD]
[TD]23:15[/TD]
[/TR]
</tbody>[/TABLE]

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.