If...Then...Else Statement
рдПрдХ рд╡рд╛ рдПрдХрднрдиреНрджрд╛ рдмрдвреА рдХрдерди рдЦрдгреНрдбрд╣рд░реВ рдкрд░рд┐рднрд╛рд╖рд┐рдд рдЧрд░реНрджрдЫ рдЬрд╕рд▓рд╛рдИ рдпрджрд┐ рдЕрд╡рд╕реНрдерд╛ рд╕рддреНрдп рдЫ рднрдиреЗ рддрдкрд╛рдИрдБрд▓реЗ рдорд╛рддреНрд░ рдХрд╛рд░реНрдпрд╛рдиреНрд╡рдпрди рдЧрд░реНрди рдЪрд╛рд╣рдиреБрд╣реБрдиреНрдЫ ред
рд╡рд╛рдХреНрдп рд╕рдВрд░рдЪрдирд╛:
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.
рдкрд░рд╛рдорд┐рддрд┐рд╣рд░реВ:
рдпрджрд┐...рддреНрдпрд╕рдкрдЫрд┐рдХрдердирд╣рд░реВ рдХрд╛рд░реНрдпрд╛рдиреНрд╡рдпрди рдЧрд░реНрдиреЗ рдХрд╛рд░реНрдпрдХреНрд░рдо рдЦрдгреНрдбрд╣рд░реВ рджрд┐рдПрдХрд╛ рдЕрд╡рд╕реНрдерд╛рд╣рд░реВрдорд╛ рдирд┐рд░реНрднрд░ рд░рд╣рдиреНрдЫрди ред рдЬрдм рдЖрдзрд╛рд░рднреВрдд LibreOfficeрд▓реЗрдпрджрд┐рдорд╛ рдХрдерди рдкрд░рд┐рдХреНрд╖рдг рдЧрд░реНрди рджрд┐рдПрдХреЛ рдЕрд╡рд╕реНрдерд╛рд▓рд╛рдИ рд╕рд╛рдордирд╛ рдЧрд░реНрджрдЫ ред рдпрджрд┐ рдЕрд╡рд╕реНрдерд╛ рд╕рддреНрдп рднрдПрдХреЛ рдЦрдгреНрдбрдорд╛ рд╕рдмреИ рд╢реНрд░реГрдЩреНрдЦрд▓рд╛ рдХрдердирд╣рд░реВ рдЕрд░реНрдХреЛ рдЕрддрд┐рд░рд┐рдХреНрдд рд╡рд╛ рдЕрддрд┐рд░рд┐рдХреНрдд рдпрджрд┐рдХрдерди рд╕рдореНрдо рдХрд╛рд░реНрдпрд╛рдиреНрд╡рдпрди рдЧрд░реНрджрдЫ ред рдпрджрд┐ рдЕрд╡рд╕реНрдерд╛ рдЭреВрдЯреЛ рднрдПрдХреЛ рдЦрдгреНрдбрдорд╛ рд░ рдЕрддрд┐рд░рд┐рдХреНрдд рдпрджрд┐рдорд╛ рдХрдердирд╣рд░реВрд▓реЗ рдкрдЫреНрдпрд╛рдЙрдЫрдиреН рднрдиреЗ,рдЖрдзрд╛рд░рднреВрдд LibreOfficeрд▓реЗ рдЕрд░реНрдХреЛ рдЕрд╡рд╕реНрдерд╛рд╣рд░реВ рдкрд░рд┐рдХреНрд╖рдг рдЧрд░реНрджрдЫрди рд░ рдпрджрд┐ рдЕрд╡рд╕реНрдерд╛рд╣рд░реВ рд╕рддреНрдп рднрдПрдХреЛ рдЦрдгреНрдбрдорд╛ рджрд┐рдПрдХрд╛ рдХрдердирд╣рд░реВрд▓реЗ рдХрд╛рд░реНрдпрд╛рдиреНрд╡рдпрди рдЧрд░реНрджрдЫрдиреН ред рдпрджрд┐ рдЭреБрдареЛ рднрдпреЛ рднрдиреЗ рдХрд┐рдд рдЕрд░реНрдХреЛ рдЕрддрд┐рд░рд┐рдХреНрдд рдпрджрд┐ рдпрд╛рдд рдЕрддрд┐рд░рд┐рдХреНрддрдХрдердирд▓реЗ рдХрд╛рд░реНрдпрдХреНрд░рдо рд╕реБрдЪрд╛рд░реВ рдЧрд░реНрджрдЫ ред рдХрдердирд╣рд░реВрд▓реЗ рджрд┐рдПрдХрд╛рдЕрддрд┐рд░рд┐рдХреНрддрдХрд╛рд░реНрдпрд╛рдиреНрд╡рдпрди рдорд╛рддреНрд░ рдЧрд░рд╛рдЙрдЫ рдпрджрд┐ рдЕрдШрд┐рд▓реНрд▓реЛ рдкрдЯрдХ рдкрд░рд┐рдХреНрд╖рдг рдЧрд░рд┐рдПрдХрд╛ рдЕрд╡рд╕реНрдерд╛рд╣рд░реВ рд╕рддреНрдп рдирднрдП рдкрдирд┐ ред рддреНрдпрд╕рдкрдЫрд┐рдХрд╛ рд╕рдмреИ рдЕрд╡рд╕реНрдерд╛рд╣рд░реВ рдореБрд▓реНрдпрд╛рдЩрдХрди рдЧрд░рд┐рдиреНрдЫрди рд░ рдХрд╛рд░реНрдпрд╛рдиреНрд╡рдпрди рднрдПрдХрд╛ рд╕рдмреИ рдЕрдиреБрд░реВрдк рдХрдердирд╣рд░реВ, рдХрд╛рд░реНрдпрдХреНрд░рдорд▓реЗ рджрд┐рдПрдХрд╛ рдЕрддрд┐рд░рд┐рдХреНрдд рдпрджрд┐ рд╕рдмреИ рдХрдерди рд╕рдБрдЧ рд╕реБрдЪрд╛рд░реВ рдЧрд░рд╛рдЙрдЫ ред
рддрдкрд╛рдИрдБ рдмрд╣реБ рдпрджрд┐ ...рддреНрдпрд╕рдкрдЫрд┐ рдХрдердирд╣рд░реВ рдиреЗрд╖реНрдЯ рдЧрд░реНрди рд╕рдХреНрдиреБрд╣реБрдиреНрдЫ ред
рдЕрддрд┐рд░рд┐рдХреНрдд рд░ рдЕрддрд┐рд░рд┐рдХреНрдд рдпрджрд┐ рдХрдердирд╣рд░реВ рдРрдЪреНрдЫрд┐рдХ рд╣реБрдиреН ред
рдпрджрд┐...рддреНрдпрд╕рдкрдЫрд┐ рдЦрдгреНрдбрдорд╛ рдЙрдлреНрд░рдирд▓рд╛рдИ ,рдорд╛ рдЬрд╛рдиреБрд╣реЛрд╕реН рд░ рдЧреЛ рд╕рдм рдкреНрд░рдпреЛрдЧ рдЧрд░реНрди рд╕рдХреНрдиреБрд╣реБрдиреНрдЫ, рддрд░ рдпрджрд┐...рддреНрдпрд╕рдкрдЫрд┐ рдмрдиреМрдЯрдорд╛ рдЙрдлреНрд░рди рд╣реБрдБрджреИрди ред
рджрд┐рдПрдХрд╛ рдЙрджрд╛рд╣рд░рдгрд▓реЗ рддрдкрд╛рдИрдБрд▓реЗ рдорд┐рддрд┐ рдирд╛рдШреЗрдХрд╛ рдЙрддреНрдкрд╛рджрдирдХреЛ рдкреНрд░рд╡рд┐рд╖реНрдЯ рдЧрд░реНрдирд▓рд╛рдИ рд╕рдХреНрд╖рдо рдмрдирд╛рдЙрдЫрдиреН рд░ рдорд┐рддрд┐ рдирд╛рдШреЗрд░ рдкрд╛рд╕ рднрдПрдХрд╛рд╣рд░реВрд▓рд╛рдИ рдЧрдгрдирд╛ рдЧрд░реНрджрдЫрдиреН ред
рдЙрджрд╛рд╣рд░рдг:
Sub ExampleIfThenDate
Dim sDate As String
Dim sToday As String
sDate = рдЖрдЧрдд рдмрд╛рдХрд╕("рд╕рдорд╛рдкрди рдорд┐рддрд┐ рдкреНрд░рд╡рд┐рд╖реНрдЯ рдЧрд░реНрдиреБрд╣реЛрд╕реН(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 "рд╕рдорд╛рдпрд╛рд╡рдзреА рдорд┐рддрд┐ рдкрд╛рд╕ рднреИрд╕рдХреНрдпреЛ"
ElseIf sDate > sToday Then
MsgBox "рд╕рдордпрд╛рд╡рдзреА рдорд┐рддрд┐рдЕрд╣рд┐рд▓реЗ рд╕рдореНрдо рдмрд┐рддреЗрдХреЛ рдЫреИрди "
Else
MsgBox "рд╕рдордпрд╛рд╡рдзреА рдорд┐рддрд┐ рдЖрдЬ рд╣реЛ"
End If
End Sub