411 REFERENCE · Wikibooks
Rebol Programming/request-date
Reference material by Wikibooks contributors. This retains its source identity and is not 411 news reporting.
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
]