Const Statement
рдЕрдЪрд▓рдХреЛ рд░реВрдкрдорд╛ рд╕реНрдЯреНрд░рд┐рдЩрдХреЛ рдкрд░рд┐рднрд╛рд╖рд╛ рдЧрд░реНрджрдЫ ред
рд╡рд╛рдХреНрдп рд╕рдВрд░рдЪрдирд╛:
Const рдкрд╛рда = рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐
рдкрд░рд╛рдорд┐рддрд┐рд╣рд░реВ:
рдкрд╛рда: рдХреБрдиреИ рдЕрдЪрд▓ рдирд╛рдо рдЬрд╕рд▓реЗ рдорд╛рдирдХ рдЪрд▓ рдирд╛рдорд╛рдВрдХрди рд╕рдореНрдореЗрд▓рдирд╣рд░реВрд▓рд╛рдИ рдкрдЫреНрдпрд╛рдЙрдЫ ред
рдЕрдЪрд▓ рдПрдЙрдЯрд╛ рдЪрд▓ рд╣реЛ рдХрд╛рд░реНрдпрдХреНрд░рдордХреЛ рдкрдарди рдХреНрд╖рдорддрд╛ рдмрдврд╛рдЙрдирд▓рд╛рдИ рдорджреНрджрдд рдЧрд░реНрджрдЫ ред рдЕрдЪрд▓рд╣рд░реВ рд╡рд┐рд╢реЗрд╖ рдкреНрд░рдХрд╛рд░рдХреЛ рдЪрд▓рдХрд╛ рд░реВрдкрдорд╛ рдкрд░рд┐рднрд╛рд╖рд┐рдд рднрдПрдХрд╛ рд╣реБрдБрджреИрдиреНрди рддрд░ рддреНрдпреЛ рдирднрдП рдкрдирд┐ рд╕рдЩреНрдХреЗрддрдорд╛ рд╕реНрдерд╛рдирдЧреНрд░рд╛рд╣реНрдпрддрд╛рд╣рд░реВрдХреЛ рд░реВрдкрдорд╛ рдкреНрд░рдпреЛрдЧ рдЧрд░рд┐рдПрдХрд╛ рд╣реБрдиреНрдЫрдиреН ред рдпрд┐рдиреАрд╣рд░реВ рд▓рд╛рдИ рдПрдХрдкрдЯрдХ рдорд╛рддреНрд░ рдЕрдЪрд▓рдХреЛ рд░реВрдкрд╛рдо рдкрд░рд┐рднрд╛рд╖рд┐рдд рдЧрд░реНрди рд╕рдХрд┐рдиреНрдЫ рд░ рдпрд╕рд▓рд╛рдИ рдкрд░рд┐рдорд╛рд░реНрдЬрди рдЧрд░реНрди рд╕рдХрд┐рдБрджреИрди ред рджрд┐рдПрдХрд╛ рдХрдердирд╣рд░реВ рдЕрдЪрд▓ рдкрд░рд┐рднрд╛рд╖рд╛ рдЧрд░реНрди рдкреНрд░рдпреЛрдЧ рдЧрд░рд┐рдиреНрдЫ:
CONST ConstName=рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐
рдпреЛ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐рдХреЛ рдкреНрд░рдХрд╛рд░ рдЕрдкреНрд░рд╛рд╕рдВрдЧрд┐рдХ рд╣реЛ ред рдпрджрд┐ рдХрд╛рд░реНрдпрдХреНрд░рдо рд╕реБрд░реБ рдЧрд░рд┐рдПрдХреЛ рдЦрдгреНрдбрдорд╛ рдЖрдзрд╛рд░рднреВрддLibreOfficeрд▓реЗ рдХрд╛рд░реНрдпрдХреНрд░рдо рд╕рдЩреНрдХреЗрддрд▓рд╛рдИ рдЖрдиреНрддрд░рд┐рдХ рд░реВрдкрдорд╛ рд░реВрдкрд╛рдиреНрддрд░рдг рдЧрд░реНрджрдЫ рддреНрдпрд╕рдХрд╛рд░рдг рдкреНрд░рддреНрдпреЗрдХ рд╕рдордп рдЕрдЪрд▓ рдкреНрд░рдпреЛрдЧ рд╣реБрдиреНрдЫ рдкрд░рд┐рднрд╛рд╖рд┐рдд рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐рд▓реЗ рдпрд╕рд▓рд╛рдИ рдмрджрд▓реНрдЫ ред
рдЙрджрд╛рд╣рд░рдг:
Sub ExampleConst
Const iVar = 1964
MsgBox iVar
Const sVar = "рдХрд╛рд░реНрдпрдХреНрд░рдо", рджреЛрдмреНрдмрд░рдХреЛ рд░реВрдкрдорд╛dVar = рез.режреж
MsgBox sVar & " " & dVar
End Sub