DefSng Statement

рдпрджрд┐ рдХреНрдпрд╛рд░реЗрдХреНрдЯрд░ рдкреНрд░рдХрд╛рд░-рдШреЛрд╖рдгрд╛ рд╡рд╛ рд╢рдмреНрджрдХреБрдЮреНрдЬреА рдирд┐рд░реНрджрд┐рд╖реНрдЯ рдирднрдПрдорд╛,рдЕрдХреНрд╖рд░ рджрд╛рдпрд░рд╛ рдЕрдиреБрд╕рд╛рд░, DefSng рдХрдердирд▓реЗ рдкреВрд░реНрд╡рдирд┐рд░реНрдзрд╛рд░рд┐рдд рдЪрд▓ рдкреНрд░рдХрд╛рд░ рд╕реЗрдЯ рдЧрд░реНрджрдЫ ред

рд╡рд╛рдХреНрдп рд╕рдВрд░рдЪрдирд╛:


Defxxx рдХреНрдпрд╛рд░реЗрдХреНрдЯрд░ рджрд╛рдпрд░рд╛рез[, рдХреНрдпрд╛рд░реЗрдХреНрдЯрд░ рджрд╛рдпрд░рд╛реи[,...]]

рдкрд░рд╛рдорд┐рддрд┐рд╣рд░реВ:

рдХреНрдпрд╛рд░реЗрдХреНрдЯрд░ рджрд╛рдпрд░рд╛: рдпрд╕рдХрд╛ рд▓рд╛рдЧрд┐ рддрдкрд╛рдИрдБрд▓реЗ рд╕реЗрдЯ рдЧрд░реНрди рдЪрд╛рд╣рдиреБрднрдПрдХрд╛ рдкреВрд░реНрд╡рдирд┐рд░реНрдзрд╛рд░рд┐рдд рдбреЗрдЯрд╛ рдкреНрд░рдХрд╛рд░ рдЪрд▓рд╣рд░реВрдХреЛ рджрд╛рдпрд░рд╛ рдирд┐рд░реНрджрд┐рд╖реНрдЯ рдЧрд░реНрдиреЗ рдЕрдХреНрд╖рд░рд╣рд░реВ ред

xxx: рд╢рдмреНрджрдХреБрдЮреНрдЬреА рдЬрд╕рд▓реЗ рдкреВрд░реНрд╡рдирд┐рд░реНрдзрд╛рд░рд┐рдд рдЪрд▓ рдкреНрд░рдХрд╛рд░ рдкрд░рд┐рднрд╛рд╖реАрдд рдЧрд░реНрджрдЫ:

рд╢рдмреНрджрдХреБрдЮреНрдЬреА: рдкреВрд░реНрд╡рдирд┐рд░реНрдзрд╛рд░рд┐рдд рдЪрд▓ рдкреНрд░рдХрд╛рд░

DefSng: рдПрдХрд▓

рдЙрджрд╛рд╣рд░рдг:


рдЪрд▓ рдкреНрд░рдХрд╛рд░рд╣рд░реВрдХреЛрд▓рд╛рдЧрд┐ REMрдЙрдкрд╕рд░реНрдЧ  рдкрд░рд┐рднрд╛рд╖рд╛:
DefBool b
DefDate t
DefDbl d
DefInt i
DefLng l
DefObj o
DefVar v

DefSng s
Sub ExampleDefSng
    sSng=Single ' sSng рдЕрдиреНрддрд░реНрдирд┐рд╣рд┐рдд рдПрдХрд▓ рдЪрд▓ рд╣реЛ
End Sub

Please support us!