Add date constructor.

* rent.scm (date): New function.

1 files changed, 4 insertions, 0 deletions

diff --git a/rent.scm b/rent.scm
index 4d4855e..db047b7 100644
--- a/rent.scm
+++ b/rent.scm
@@ -148,6 +148,10 @@ somewhere in @var{html}, a string."
 @code{#f} if @var{n} is 0 and @code{#t} otherwise."
   (not (zero? n)))
 
+(define* (date day month #:optional (year (date-year (current-date))))
+  "Construct a @code{<date>} object."
+  (make-date 0 0 0 0 day month year (date-zone-offset (current-date))))
+
 (define (date+ date days)
   "Add @var{days} number of days to @var{date}."
   (time-utc->date