Private Sub CommandButton3_Click(static a As Integer)
Holliday(a) = CInt(ComboBox1.Text)
a = a + 1
End Sub
Код:
Private Sub CommandButton3_Click ()
Static a As Integer
...
End Sub
For i = 70 To 92
While (Weekday(FirstOfNextMonth) = 1) Or (Weekday(FirstOfNextMonth) = 7)
For oa = 0 To p
While (FirstOfNextMonth = WDay(oa))
a(i) = FirstOfNextMonth
Exit For
Wend
Next oa
FirstOfNextMonth = FirstOfNextMonth + 1
Wend
............
............
............
FirstOfNextMonth = FirstOfNextMonth + 1
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 40