Основы офисного программирования и язык VBA


Пример 4.3


'Класс Plan

'Свойство класса

Private CurMonth As Integer

'Закрытый массив, играющий служебную роль

Private Месяцы(1 To 12) As String

Private Sub Class_Initialize()

CurMonth = Month(Now)

Месяцы(1) = "Январь": Месяцы(2) = "Февраль": Месяцы(3) = "Март"

Месяцы(4) = "Апрель": Месяцы(5) = "Май": Месяцы(6) = "Июнь"

Месяцы(7) = "Июль": Месяцы(8) = "Август": Месяцы(9) = "Сентябрь"

Месяцы(10) = "Октябрь": Месяцы(11) = "Ноябрь": Месяцы(12) = "Декабрь"

End Sub

Public Property Get ТекущийМесяц() As String

ТекущийМесяц = Месяцы(CurMonth)

End Property

Public Property Let ТекущийМесяц(ByVal NewValue As String)

Dim i As Byte

i = 1

Do While i <= 12

If Месяцы(i) = NewValue Then

CurMonth = i

Exit Do

End If

i = i + 1

Loop

If i = 13 Then 'Неверно задан месяц

CurMonth = Month(Now)

End If

End Property




Начало  Назад  Вперед