Belegging: code

• In EUR:
  Public Class eur
  Private p_waarde As Long
  Private p_percent As Single
  Public Property waarde() As Long
  Get
    Return p_waarde
  End Get
  Set(ByVal Value As Long)
    p_waarde = Value
  End Set
  End Property
  Public Property percent() As Long
  Get
    Return p_percent
  End Get
  Set(ByVal Value As Long)
    p_percent = Value
  End Set
  End Property
  Public ReadOnly Property bef() As Long
  Get
    Return Int(p_waarde * 40.3399 + 0.5)
  End Get
  End Property
  Public Sub vervaldag()
  Dim intrest As Long
    intrest = Int(p_waarde * p_percent) / 100
    p_waarde += intrest
  End Sub
  End Class
• In BEF:
  Public Class bef
  Private bedrag As Long
  Private p_percent As Single
  Public Property waarde()
  Get
    Return bedrag
  End Get
  Set(ByVal Value)
    bedrag = Value
  End Set
  End Property
  Public Property percent()
  Get
    Return p_percent
  End Get
  Set(ByVal Value)
    p_percent = Value
  End Set
  End Property
  Public Sub vervaldag()
  Dim intrest As Long
  intrest = Int(bedrag * p_percent / 100)
  bedrag += intrest
  End Sub
  End Class

[Controls en klassen in .NET] - [VB Web] - [hlrnet] - [copyright]