Пример 5.4

Option Explicit 'Класс Машина 'Свойства класса Private Марка As String Private ДатаВыпуска As Date Private Цвет As String

'Конструкторы класса

Private Sub Class_Initialize() Марка = "Форд" ДатаВыпуска = "20.07.1925" Цвет = "Вишневый" End Sub

Public Sub НоваяМашина(M As String, D As Date, C As String) Марка = M ДатаВыпуска = D Цвет = C End Sub

'Методы класса Public Sub PrintDataCar() Debug.Print "Марка = ", Марка Debug.Print "ДатаВыпуска = ", ДатаВыпуска Debug.Print "Цвет = ", Цвет

End Sub

Public Property Get МаркаМашины() As String МаркаМашины = Марка End Property

Public Property Get ЦветМашины() As String ЦветМашины = Цвет End Property

Public Property Get ДатаВыпускаМашины() As Date ДатаВыпускаМашины = ДатаВыпуска End Property