[VBA] Adding a number to time with custom formatting

[mrspz]

At the moment I have the following

Private Sub SpinButton2_SpinUp()   
TextBox_starttime.Value = Format(CDate(TextBox_starttime.Value) + 1 / 96)
End Sub

Which for the most part works fine, what's driving me crazy is that I have the textbox formatted as "13:00", however when I click the up arrow it changes the formatting when it carries out the addition. So it comes out as "01:15:00 PM" while I want it to appear simply as "13:15".

I've looked everywhere and have yet to find a solution.

Any help greatly appreciated.

 

[pgc01]

Hi
Welcome to the board

You forgot the formatting string in the Format() function.

Private Sub SpinButton2_SpinUp()
TextBox_Starttime.Value = Format(CDate(TextBox_Starttime.Value) + 1 / 96[B][COLOR=#b22222], "hh:mm"[/COLOR][/B])
End Sub

 

[pgc01]

Just a remark (doesn't change the result), in this case I'd use time functions, I think it would be easier to read:

TextBox_Starttime.Value = Format(TimeValue(TextBox_Starttime.Value) + TimeValue("00:15"), "hh:mm")

 

[mrspz]

Awesome! That's one less thing to stop me sleeping tonight