If...Then...Else Statement
āϝāĻĻāĻŋ āĻĒā§āϰāĻĻāϤā§āϤ āĻāĻāĻāĻŋ āĻļāϰā§āϤ True āĻšā§ āϤāĻžāĻšāϞ⧠āĻāĻ āĻ āĻĨāĻŦāĻž āϤāϤā§āϧāĻŋāĻ āϏā§āĻā§āĻāĻŽā§āύā§āĻ āύāĻŋāϰā§āϧāĻžāϰāĻŖ āĻāϰāϤ⧠āĻĒāĻžāϰā§āύ āϝāĻž āĻāĻĒāύāĻŋ āĻāĻžāϞāύāĻž āĻāϰāϤ⧠āĻāĻžāύāĨ¤
āϏāĻŋāύāĻā§āϝāĻžāĻā§āϏ:
If condition=true Then Statement block [ElseIf condition=true Then] Statement block [Else] Statement block EndIf
Instead of Else If you can write ElseIf, instead of End If you can write EndIf.
āĻĒā§āϝāĻžāϰāĻžāĻŽāĻŋāĻāĻžāϰ:
āĻĒā§āϰāĻĻāϤā§āϤ āĻļāϰā§āϤā§āϰ āĻāĻĒāϰ āĻāĻŋāϤā§āϤāĻŋ āĻāϰ⧠If...Then āϏā§āĻā§āĻāĻŽā§āύā§āĻā§āϰ āĻŽāĻžāϧā§āϝāĻŽā§ āĻĒā§āϰā§āĻā§āϰāĻžāĻŽ āĻŦā§āϞāĻ āĻāĻžāϞāύāĻž āĻāϰāĻž āĻšā§āĨ¤ āϝāĻāύ LibreOffice āĻŦā§āϏāĻŋāĻā§ āĻāĻāĻāĻŋ If āϏā§āĻā§āĻāĻŽā§āύā§āĻ āĻĒāĻžāĻā§āĻž āϝāĻžā§, āϤāĻžāĻšāϞ⧠āĻļāϰā§āϤāĻāĻŋ āĻĒāϰā§āĻā§āώāĻž āĻāϰāĻž āĻšā§āĨ¤ āϝāĻĻāĻŋ āĻļāϰā§āϤāĻāĻŋ True āĻšā§, āϤāĻžāĻšāϞ⧠āĻĒāϰāĻŦāϰā§āϤ⧠Else āĻ āĻĨāĻŦāĻž ElseIf āϏā§āĻā§āĻāĻŽā§āύā§āĻ āĻĒāϰā§āϝāύā§āϤ āĻĒāϰāĻŦāϰā§āϤ⧠āϏāĻāϞ āϏā§āĻā§āĻāĻŽā§āύā§āĻ āĻāĻžāϞāύāĻž āĻāϰāĻž āĻšā§āĨ¤ āϝāĻĻāĻŋ āĻļāϰā§āϤāĻāĻŋ False āĻšā§ āĻāĻŦāĻ āĻāĻāĻāĻŋ ElseIf āϏā§āĻā§āĻāĻŽā§āύā§āĻ āĻ āύā§āϏāϰāĻŖ āĻāϰā§, āϤāĻžāĻšāϞ⧠LibreOffice āĻŦā§āϏāĻŋāĻā§ āĻĒāϰāĻŦāϰā§āϤ⧠āĻļāϰā§āϤāĻāĻŋ āĻĒāϰā§āĻā§āώāĻž āĻāϰāĻž āĻšā§ āĻāĻŦāĻ āĻļāϰā§āϤāĻāĻŋ True āĻšāϞ⧠āύāĻŋāĻā§āϰ āϏā§āĻā§āĻāĻŽā§āύā§āĻāĻāĻŋ āĻāĻžāϞāύāĻž āĻāϰāĻž āĻšā§āĨ¤ āϝāĻĻāĻŋ False āĻšā§ āϤāĻžāĻšāϞ⧠āĻĒā§āϰā§āĻā§āϰāĻžāĻŽāĻāĻŋ āĻšā§ āĻĒāϰāĻŦāϰā§āϤ⧠ElseIf āĻ āĻĨāĻŦāĻž Else āϏā§āĻā§āĻāĻŽā§āύā§āĻ āϏāĻš āĻŦāĻšāĻžāϞ āĻĨāĻžāĻā§āĨ¤ āĻĒā§āϰā§āĻŦā§ āĻĒāϰā§āĻā§āώāĻŋāϤ āĻā§āύ āĻļāϰā§āϤ True āύāĻž āĻšāϞ⧠Else āĻ āύā§āϏāϰāĻŖāĻāĻžāϰ⧠āϏā§āĻā§āĻāĻŽā§āύā§āĻ āĻāĻžāϞāύāĻž āĻāϰāĻž āĻšā§āĨ¤ āϏāĻāϞ āĻļāϰā§āϤ āĻŽā§āϞā§āϝāĻžā§āύ āĻāϰāĻž āĻšāϞā§, āϏāĻāĻļā§āϞāĻŋāώā§āĻ āϏā§āĻā§āĻāĻŽā§āύā§āĻ āĻāĻžāϞāύāĻž āĻāϰāĻž āĻšāϞā§, āĻĒā§āϰā§āĻā§āϰāĻžāĻŽāĻāĻŋ EndIf āĻ āύā§āϏāϰāĻŖāĻāĻžāϰ⧠āϏā§āĻā§āĻāĻŽā§āύā§āĻā§āϰ āϏāĻš āĻŦāĻšāĻžāϞ āĻĨāĻžāĻāĻŦā§āĨ¤
āĻāĻĒāύāĻŋ āĻŦāĻšā§ If...Then āϏā§āĻā§āĻāĻŽā§āύā§āĻ āύā§āϏā§āĻ āĻāϰāϤ⧠āĻĒāĻžāϰāĻŦā§āύāĨ¤
Else āĻāĻŦāĻ ElseIf āϏā§āĻā§āĻāĻŽā§āύā§āĻ āĻāĻā§āĻāĻŋāĻāĨ¤
GoTo āĻāĻŦāĻ GoSub āĻŦā§āϝāĻŦāĻšāĻžāϰ āĻāϰ⧠If...Then āĻŦā§āϞāĻā§āϰ āĻŦāĻžāĻāϰ⧠āϏā§āĻĨāĻžāύ āĻĒāϰāĻŋāĻŦāϰā§āϤāύ āĻāϰāϤ⧠āĻĒāĻžāϰā§āύ, āĻāĻŋāύā§āϤ⧠If...Then āĻāĻ āύā§āϰ āĻŽāϧā§āϝ⧠āύā§āĨ¤
āύāĻŋāĻā§āϰ āĻāĻĻāĻšāϰāĻŖā§āϰ āĻŽāĻžāϧā§āϝāĻŽā§ āĻāĻĒāύāĻŋ āĻāĻāĻāĻŋ āĻĒāύā§āϝā§āϰ āĻŽā§ā§āĻžāĻĻāĻāϤā§āϤā§āϰā§āĻŖā§āϰ āϤāĻžāϰāĻŋāĻ āϏāύā§āύāĻŋāĻŦā§āĻļ āĻāϰāĻžāϤ⧠āĻĒāĻžāϰā§āύ, āĻāĻŦāĻ āĻŽā§ā§āĻžāĻĻāĻāϤā§āϤā§āϰā§āĻŖā§āϰ āϤāĻžāϰāĻŋāĻ āĻ āϤāĻŋāĻā§āϰāĻŽ āĻāϰāϞ⧠āϤāĻž āύāĻŋāϰā§āϧāĻžāϰāĻŖ āĻāϰāϤ⧠āĻĒāĻžāϰā§āύāĨ¤
āĻāĻĻāĻžāĻšāϰāĻŖ:
Sub ExampleIfThenDate
Dim sDate As String
Dim sToday As String
sDate = InputBox("Enter the expiration date (MM.DD.YYYY)")
sDate = Right$(sDate, 4) + Mid$(sDate, 4, 2) + Left$(sDate, 2)
sToday = Date$
sToday = Right$(sToday, 4)+ Mid$(sToday, 4, 2) + Left$(sToday, 2)
If sDate < sToday Then
MsgBox "The expiration date has passed"
ElseIf sDate > sToday Then
MsgBox "The expiration date has not yet passed"
Else
MsgBox "The expiration date is today"
End If
End Sub