O'Reilly logo

Joy of Patterns: Using Patterns for Enterprise Development, The by Brandon Goldfedder

Stay ahead with the world's most comprehensive technology and business learning platform.

With Safari, you learn the way you learn best. Get unlimited access to videos, live online training, learning paths, books, tutorials, and more.

Start Free Trial

No credit card required

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

With Safari, you learn the way you learn best. Get unlimited access to videos, live online training, learning paths, books, interactive tutorials, and more.

Start Free Trial

No credit card required