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


Пример 4.1 - часть 2


'Внутренняя функция: возвращает в верхнем регистре

'последнюю букву слова W

ПоследняяБуква = UCase(Right(W, 1))

End Function

Public Property Get ВашеИмя() As String

ВашеИмя = Имя

End Property

Public Property Let ВашеИмя(ByVal vNewValue As String)

Имя = vNewValue

End Property

Public Property Get ВашеОтчество() As String

ВашеОтчество = Отчество

End Property

Public Property Let ВашеОтчество(ByVal vNewValue As String)

Отчество = vNewValue

End Property

Public Property Get ВашаФамилия() As String

ВашаФамилия = Фамилия

End Property

Public Property Let ВашаФамилия(ByVal NewValue As String)

Фамилия = NewValue

End Property

Public Property Get ВашаДатаРождения() As Date

ВашаДатаРождения = ДатаРождения

End Property

Public Property Let ВашаДатаРождения(ByVal NewValue As Date)

ДатаРождения = NewValue

End Property

Private Sub Class_Initialize()

Имя = "Адам"

Фамилия = "Человек"

ДатаРождения = #1/1/100#

End Sub




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