viewing paste Unknown #17568 | Text

Posted on the
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42
If NumSingleRoom > 0 Then
SingleRoom = NumSingleRoom & " Single Room"
lstRoomsBooked.AddItem (SingleRoom)
lstCostOfRoom.AddItem (SingleRoomCost)
Else
SingleRoom = " "
End If
 
If NumDoubleRoom > 0 Then
DoubleRoom = NumDoubleRoom & " Double Room"
lstRoomsBooked.AddItem (DoubleRoom)
lstCostOfRoom.AddItem (DoubleRoomCost)
Else
DoubleRoom = " "
End If
 
 
If NumFamilySuite > 0 Then
FamilySuite = NumFamilySuite & " Family Suite"
lstRoomsBooked.AddItem (FamilySuite)
lstCostOfRoom.AddItem (FamilySuiteCost)
Else
FamilySuite = " "
End If
 
 
 
 
FinalCost = ((SingleRoomCost * NumSingleRoom) + (DoubleRoomCost * NumDoubleRoom) + (FamilySuiteCost * NumFamilySuite)) * NumberOfNights
 
 
 
If NumRooms > 2 Or NumberOfNights > 6 Then
OverAllCost = FinalCost * 0.9
txtFinalCost.Text = "£" & OverAllCost
Else
txtFinalCost.Text = "£" & FinalCost
 
 
 
End If
End Sub
Viewed 318 times, submitted by unknown.