'klass inimene

Private omanimi As String
Public synniaasta As Integer

Sub initial()

End Sub

Public Property Let nimi(uusnimi)
  omanimi = uusnimi
  Debug.Print "Pandi nimi"
End Property

Public Property Get nimi()
  Debug.Print "küsiti nimi "
  nimi = omanimi
End Property

Public Sub tervita()
  MsgBox "Mu nimi on " & omanimi
End Sub

Public Function vanus()
  vanus = Year(Date) - synniaasta
End Function



'---- kasutamine

Sub inimkatse()
  Dim poiss As New Inimene
  poiss.synniaasta = 1980
  Debug.Print poiss.synniaasta
  poiss.nimi = "Juku"
  Debug.Print poiss.nimi & ", " & poiss.vanus & " aastane."
  poiss.tervita
End Sub


' ---- väljund

 1980 
Pandi nimi
küsiti nimi 
Juku, 22 aastane.