IsEmpty Function
рдкрд░рд┐рдХреНрд╖рдг рдЧрд░реНрдиреБрд╣реЛрд╕реН рдпрджрд┐ рднрд┐рдиреНрди рдЪрд▓рд▓реЗ рдЦрд╛рд▓реА рдорд╛рди рд╕рдорд╛рд╡реЗрд╢ рдЧрд░реЗрдХреЛ рдЦрдгреНрдбрдорд╛ рдЪрд▓ рд╕реНрдерд╛рдкрдирд╛ рд╣реБрдБрджреИрди рднрдиреНрдиреЗрдХреБрд░рд╛ рдЦрд╛рд▓реА рдорд╛рдирд▓реЗ рдмрддрд╛рдЙрдЫ ред
рд╡рд╛рдХреНрдп рд╕рдВрд░рдЪрдирд╛:
IsEmpty (Var)
рдорд╛рди рдлрд░реНрдХрд╛рдЙрдиреБрд╣реЛрд╕реН:
рдмреБрд▓рд┐рдПрди
рдкрд░рд╛рдорд┐рддрд┐рд╣рд░реВ:
Var: рдХреБрдиреИ рдЪрд▓ рдЬрд╕рд▓рд╛рдИ рддрдкрд╛рдИрдБ рдкрд░рд┐рдХреНрд╖рдг рдЧрд░реНрди рдЪрд╛рд╣рдиреБрд╣реБрдиреНрдЫ ред рдпрджрд┐ рдЪрд▓рд▓реЗ рдЦрд╛рд▓реА рдорд╛рди рд╕рдорд╛рд╡реЗрд╢ рдЧрд░рд╛рдЙрдЫ рднрдиреЗ рдкреНрд░рдХрд╛рд░реНрдпрд▓реЗ рд╕рддреНрдп рдорд╛рди рдлрд░реНрдХрд╛рдЙрдБрдЫ рдЕрдиреНрдпрдерд╛ рдкреНрд░рдХрд╛рд░реНрдпрд▓реЗ рдЭреБрдареЛ рдорд╛рди рдлрд░реНрдХрд╛рдЙрдБрдЫ ред
рдЙрджрд╛рд╣рд░рдг:
Sub ExampleIsEmpty
Dim sVar As Variant
sVar = Empty
REM рд▓реЗ рд╕рддреНрдп рдлрд░реНрдХрд╛рдЙрджрд╛ IsEmpty(sVar) рдореБрджреНрд░рдг рдЧрд░реНрджрдЫ ред
End Sub