DefCur Statement

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

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


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

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

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

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

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

DefCur: рдореБрджреНрд░рд╛

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


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

DefCur c
Sub ExampleDefCur
    cCur=Currency ' cCur is an implicit currency variable.
End Sub