Account Entry
Option Explicit
Private mvarentryDate As Date
Private mvaramount As Currency
Public Property Let amount(ByVal vData As Currency)
mvaramount = vData
End Property
Public Property Get amount() As Currency
amount = mvaramount
End Property
Public Property Let entryDate(ByVal vData As Date)
mvarentryDate = vData
End Property
Public Property Get entryDate() As Date
entryDate = mvarentryDate
End Property
Get Joy of Patterns: Using Patterns for Enterprise Development, The now with the O’Reilly learning platform.
O’Reilly members experience books, live events, courses curated by job role, and more from O’Reilly and nearly 200 top publishers.
