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