Assigning the Hour of the day to a variable

[duskwood47]

So im creating a spin button that connects to a macro. The button would increment a cell by 1 based on the hour of the day and what day of the week it is.

The code im using is:

Sub OneClick()
Dim strTime
Dim LWeekday As Integer


strTime = Time
LWeekday = Weekday(vbUseSystemDayOfWeek)






Select Case OneClickTest


Case strTime = 9 And LWeekday = "1"
Range("C3").Value = Range("C3") + 1


Case strTime = 10 And LWeekday = "1"
Range("C3").Value = Range("C4") + 1




End Select


End Sub

However im having two issues. The first is i dont think ive coded it right to get the hour of the day and the second is it only allows the spin control to increment, would i have to create a 2nd button to decrease the number by one?

Any help is appreciated.