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