Increase decrease time with a spin button

Hi all,

I am trying to create code to increase and decrease the time using a spin button. I am unsure how to do this. I have the following code to increase and decrease date but i am unsure how to do it for the time. Any help is much appreciated?

Private Sub UserForm_Initialize()
Reg17.Text = Format(Date, "dd/mm/yyyy")
End Sub

Private Sub spInviteAtt_SpinDown()
Reg17.Text = Format(CDate(Reg17.Text) - CDate(spInviteAtt.SmallChange), "dd/mm/yyyy")
End Sub

Private Sub spInviteAtt_SpinUp()
Reg17.Text = Format(CDate(Reg17.Text) + CDate(spInviteAtt.SmallChange), "dd/mm/yyyy")
End Sub

Similar to what you did for Reg17.Text, only use "Now" instead of "Date". Once you have the time in there you can add and subtract from it just like you did for your date.

Here's a generic example:

x = Format(Now, "h:mm:ss")

Hi there,

I tried this but i got a match type error 13:

Reg17.Text = Format(Now, "h:mm:ss")
End Sub

Private Sub SpinButton1_SpinDown()
Reg17.Text = Format(Now(Reg17.Text) - Now(SpinButton1.SmallChange), "h:mm:ss")
End Sub

Private Sub SpinButton1_SpinUp()
Reg17.Text = Format(Now(Reg17.Text) + Now(SpinButton1.SmallChange), "h:mm:ss")
End Sub

I don't know what spInviteAtt.SmallChange is, but you wouldn't put it inside Now. Now is literally a string of text.

When you used CDate, you were casting spInviteAtt.SmallChange as a Date/Time variable, regardless of what variable type it actually is. The same casting works for time. So this code should work:

Private Sub UserForm_Initialize()
Reg17.Text = Format(Now, "h:mm:ss")
End Sub

Private Sub spInviteAtt_SpinDown()
Reg17.Text = Format(CDate(Reg17.Text) - CDate(spInviteAtt.SmallChange), "h:mm:ss")
End Sub

Private Sub spInviteAtt_SpinUp()
Reg17.Text = Format(CDate(Reg17.Text) + CDate(spInviteAtt.SmallChange), "h:mm:ss")
End Sub

Unfortunately i still cannot get the code to work. I think it has something to do with i am dealing with time and there are 60 seconds in a minute. spInviteDate.small change basically refers to the spinbutton small change value, which is set at 1. I think in this case 1 will not = 1 minute because in time you need to divide by 60 or something.

Managed to get this code to work to increase the clock by 15 mins and decrease by 15mins:

Private Sub UserForm_Initialize()
Reg17.Text = "12:00"
End Sub

Private Sub spInviteAtt_SpinUp()
' 0.0007 = 1 minute
Reg17.Text = Format(CDate(Reg17.Text) + 0.0105, "hh:nn")
End Sub

Private Sub spInviteAtt_SpinDown()
' 0.0007 = 1 minute
If Reg17.Text = "00:00" Then
Reg17.Text = "23:45"
Else:
Reg17.Text = Format(CDate(Reg17.Text) - 0.01, "hh:nn")
End If
End Sub