I am creating a simple form for a customer such as this one: http://www.pctech247.com/Reservations.jpg

Now I am trying to attach a class to this form with the following constants. The following is what I have in my ReservationClass.vb file.
"
    Private StartDate, EndDate, NumberDays As Integer
    Private Const KINGWEEK_Decimal As Decimal = 95D
    Private Const KINGWEEKEND_Decimal As Decimal = 105D
    Private Const QUEENWEEK_Decimal As Decimal = 85D
    Private Const QUEENWEEKEND_Decimal As Decimal = 95D
    Private Const DOUBELEWEEK_Decimal As Decimal = 69.95D
    Private Const DOUBLEWEEKEND_Decimal As Decimal = 79.95D
    Private Const RoomTax_Decimal As Decimal = 0.07D
    Private Const CustomerDiscount_Decimal As Decimal = 0.1D
    Private Const SummerRate_Decimal As Decimal = 0.25D

    Private DiscountBoolean As Boolean




    'Constructor

    'Sub New(ByVal checkinDate As Date, ByVal checkOutdate As Date)
    'Assign properties and calculate the pay.
    Me

    Private Property Total()
        Get

        End Get
        Set(ByVal value)

        End Set
    End Property

End Class

"

Now if the dates are selected on the weekend I need to discount by 25 percent and in May through September. As you can see that I have set with " Private Const SummerRate_Decimal As Decimal = 0.25D"

If someone checks AAA & AARP customers they receive 10% off which I defined in this "Private Const CustomerDiscount_Decimal As Decimal = 0.1D"

Now I don't know how I am suppose to attach this back to the form or even figure out what I need to do. I am very basic at this and I know that I need to get something back to the customer by Monday afternoon. Please help me out on this...