parameter

( current-clock )→(->rational? )

(current-clock clock)→void?

clock:(->rational? )

= current-posix-seconds

procedure

( current-posix-seconds )→rational?

procedure

( today [#:tztz])→date?

tz:tz/c =(current-timezone )

procedure

( today/utc )→date?

> (parameterize ([current-clock (λ ()0)])

(list (today/utc )

(today #:tz"America/Chicago")))

'(#<date 1970年01月01日> #<date 1969年12月31日>)

procedure

( current-time [#:tztz])→time?

tz:tz/c =(current-timezone )

procedure

( current-time/utc )→time?

> (parameterize ([current-clock (λ ()0)])

(list (current-time/utc )

(current-time #:tz"America/Chicago")))

'(#<time 00:00:00> #<time 18:00:00>)

procedure

( now [#:tztz])→datetime?

tz:tz/c =(current-timezone )

procedure

( now/utc )→datetime?

> (parameterize ([current-clock (λ ()0)])

(list (now/utc )

(now #:tz"America/Chicago")))

'(#<datetime 1970年01月01日T00:00:00> #<datetime 1969年12月31日T18:00:00>)

procedure

( now/moment [#:tztz])→moment?

tz:tz/c =(current-timezone )

procedure

( now/moment/utc )→moment?

> (parameterize ([current-clock (λ ()0)])

(list (now/moment/utc )

(now/moment #:tz"America/Chicago")))

'(#<moment 1970年01月01日T00:00:00Z[Etc/UTC]>

#<moment 1969年12月31日T18:00:00-06:00[America/Chicago]>)