AIN3701 Assignment 2- DUE DATE 13 JUNE 2025

AIN3701
Assignment 2

DUE DATE 13 JUNE 2025




Guiding you towards academic excellence.

, Step-by-step VBA Code.

How to set in Excel:

1. Open Bookings_Feb_2025.xlsx.
2. Press Alt + F11 to open the VBA Editor.
3. Insert a Module (Right-click VBAProject → Insert → Module).
4. Paste both procedures below into the module.
5. Close the editor.
6. Save as Macro-Enabled Workbook: YourStudentNumber_Surname_Q1.xlsm.
7. Add a button from the Developer tab → assign the macro Recalculate_Revenue
to it.




1. Function Procedure (Question 1(a))

vba
CopyEdit
Function CalculateRevenue(destination As String, passengerType As String, tickets As
Integer) As Currency
Const CT_ADULT As Currency = 1800
Const CT_CHILD As Currency = 1350
Const DBN_ADULT As Currency = 1500
Const DBN_CHILD As Currency = 1125
Const WIND_ADULT As Currency = 3500
Const WIND_CHILD As Currency = 2625


Dim ticketPrice As Currency


Select Case destination
Case "Cape Town"
If passengerType = "Adult" Then