(require (lib "19.ss" "srfi"))
(let ((today (current-date)))
(values
(date->string today)
;; `1' means `Monday' is the first day of the week:
(date-week-number today 1)
(date-week-day today)
(date-day today)
(date-year-day today)))
Current Rev: r1.1 - 05 May 2004 - 21:49 GMT - FranciscoSolsona, Revision History:Diffs | r1.1
