Rebol Programming/request-date

= USAGE: = REQUEST-DATE /offset xy /date when

= DESCRIPTION: = Requests a date.

REQUEST-DATE is a function value. = REFINEMENTS =
 * /offset
 * xy -- (Type: any)
 * /date
 * when -- Default date (Type: any)

= SOURCE CODE = 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 ]