Rebol 编程/request-date

用法

REQUEST-DATE /offset xy /date when 

描述

请求一个日期。

REQUEST-DATE 是一个函数值。

细化

• /offset
  • xy -- (类型：任何)
• /date
  • when -- 默认日期 (类型：任何)

源代码

request-date: func [
    "Requests a date." 
    /offset xy 
    /date when "Default date"
][
    result: when 
    base: today: any [when now/date] 
    either date-lay [calc-month base/month] [init] 
    either offset [inform/offset date-lay xy] [inform date-lay] 
    result
]