Adding 8 hours to a time.

[Ark68]

In my userform, I enter 8:00 into textbox 'cu2_start'. This represents 8:00 AM.

 etc_cu2 = format(CDate(cu2_start.Value), "0.00000")

This line converts the text time to a decimal time value ... in this case etc_cu2 = "0.33333"

hj = etc_cu2 + 8
cu2_end.Value = format(hj, "hh:mm")

I am failing with my attempts with the code above to add 8 hours to 'etc_cu2' in order to have 16:00 (4:00 PM) into textbox cu2_end. 'cu2_end' displays as 08:00 with this code.

Can anyone suggest a solution to the problem I am having?

 

[MARK858]

Possibly...

hj = etc_cu2 + 8 / 24

or

hj = DateAdd("h", 8, etc_cu2)

 

[Ark68]

Hi Mark ...
Yep! That was exactly what I was needing. Thank you!