Sub GreetMe()
If Time < 0.5 Then MsgBox “Good Morning” Else MsgBox “Good Afternoon”
End Sub
Sub GreetMe()
If Time < 0.5 Then
MsgBox “Good Morning”
Else
MsgBox “Good Afternoon”
End If
End Sub
Sub GreetMe2()
Dim Msg As String
If Time < 0.5 Then Msg = “Morning”
If Time >= 0.5 And Time < 0.75 Then Msg = “Afternoon”
If Time >= 0.75 Then Msg = “Evening”
MsgBox “Good “ & Msg
End Sub
Sub GreetMe3()
Dim Msg As String
If Time < 0.5 Then
Msg = “Morning”
End If
If Time >= 0.5 And Time < 0.75 Then
Msg = “Afternoon”
End If
If Time >= 0.75 Then
Msg = “Evening”
End If
MsgBox “Good “ & Msg
End Sub
Sub GreetMe4()
Dim Msg As String
If Time < 0.5 Then
Msg = “Morning”
Else
If Time >= 0.5 And Time < 0.75 Then
Msg = “Afternoon”
Else
Msg = “Evening”
End If
End If
MsgBox “Good “& Msg
End Sub
Sub GreetMe5()
Dim Msg As String
If Time < 0.5 Then
Msg = “Morning”
ElseIf Time >= 0.5 And Time < 0.75 Then
Msg = “Afternoon”
Else
Msg = “Evening”
End If
MsgBox “Good “ & Msg
End Sub
No comments:
Post a Comment