Nested If-Elseif-Else loop involving dates in VBA

[bglanton]

Please help me write this code. Thanks!!

1. Ask the user to enter date.
2. If the user enters date between January – May
   1. Display: “Online Class Only!”
3. If the user enters date between June – July
   1. Display: “No class available!”
4. If the user enters date between August – November
   1. Display: “Two Class Options available”
   2. Ask the user to enter to make a choice, Option 1 for Monday/Wednesday Friday OR Option 2 for Tuesday/Thursday
   3. If the user selects Monday/Wednesday/Friday, display: “Class hours as 11:00-11:50pm”
   4. If the user selects Tuesday/Thursday, display: “Class hours as 2:15-3:30pm”
   5. Else display: “Weekend has no classes!”
5. In other cases, display: “Semester Break!”

 

[BiocideJ]

Something like this?

Sub ClassSchedules()
    userDate = InputBox("Please enter the date you would like to check:", "Class Schedules")
    
    
    Select Case Month(userDate)
    Case 1 To 5
        MsgBox "Online Class Only!", vbExclamation, "Response"
    Case 6 To 7
        MsgBox "No class available!", vbExclamation, "Response"
    Case 8 To 11
        userChoice = InputBox("Two class options available:" & vbCrLf & _
            "     Option 1: Mon/Wed/Fri 11:00pm - 11:50pm" & vbCrLf & _
            "     Option 2: Tue/Thu     2:15pm - 3:30pm" & vbCrLf & vbCrLf & _
            "Type either '1' OR '2'", "Choose an option")
        If userChoice <> 1 And userChoice <> 2 Then MsgBox "Weekend has no classes!", vbExclamation, "Response"
        
        MsgBox "You have chosen Option #" & userChoice, vbOKOnly + vbInformation
    Case Else
        MsgBox "Semester Break!", vbExclamation, "Response"
    End Select
    
    
        
End Sub