Задать условия для 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

5   голосов , оценка 3.6 из 5
Похожие ответы