Не срабатывает код в одном текстовом поле - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д