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