Задать условия для SpinButton - VB
Формулировка задачи:
Здравствуйте, помогите задать правильно условия для SpinButton, а именно: если кликая SpinButton_SpinUp доходит до конца даты месяца, то начинать следует с начало.
как то так! Заранее благодарен за ответ!
Решение задачи: «Задать условия для SpinButton»
textual
Листинг программы
- Private Sub SpinButton1_SpinUp()
- Dim lEndMonthDay As Long, dDate As Date
- dDate = Date
- lEndMonthDay = Day(DateSerial(Year(dDate), Month(dDate) + 1, 0)) 'последний день месяца dDate
- If SpinButton1.Value > lEndMonthDay Then SpinButton1.Value = 1
- TextBox1.Value = SpinButton1.Value
- End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
