DefDate Statement

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

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


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

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

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

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

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

DefDate:рдорд┐рддрд┐

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


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

Sub ExampleDefDate
    tDate=Date ' tDate рдЕрдиреНрддрд░реНрдирд┐рд╣рд┐рдд рдорд┐рддрд┐ рдЪрд▓ рд╣реЛ
End Sub