A Conditional Example For VB6
The If-Then-Else used to change the month ...
Next_week = Today + 7
If Next_week > 30 Then
Month = “May”
Next_week = Next_week - 30
Else
End If
An alternative ...
Next_week = Today + 7
Month = “April”
If Next_week > 30 Then
Month = “May”
Next_week = Next_week - 30
End If
Another alternative …
Next_week = Today + 7
Month = “April”
If Next_week > 30 Then Month = “May”
If Next_week > 30 Then Next_week = Next_week - 30