Не срабатывает код в одном текстовом поле - VB

Узнай цену своей работы

Формулировка задачи:

Ребята подскажите что можно сделать? в этом коде не срабатывает код (подчеркнул) только если закоментароваь код один изних работает.

Решение задачи: «Не срабатывает код в одном текстовом поле»

textual
Листинг программы
Private Sub Spin1_SpinUp()
dDate = Date
    lEndMonthDay = Day(DateSerial(Year(dDate), Month(dDate) + 1, 0)) 'последний день месяца dDate
       If Spin1.Value > lEndMonthDay Then Spin1.Value = 1: Text6.Text = Spin1.Value: Exit Sub
             Text6.Text = Text6.Text + 1
         
End Sub

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

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