timable

7.6

top ← prev up next →

timable

Yanying Wang <yanyingwang1@gmail.com>

(require timable)

package: timable

extend racket’s various time/date libs and make them be able to work together more smoothly.

source code: https://gitlab.com/yanyingwang/timable
notes: This lib is very experimental and not stable, I may change the procedure names along with the time of learning racket lang.

1 Procedures extended from srfi/19

2 Procedures extended from gregor

3 Procedures converting date/time types

4 Changelog

1 Procedures extended from srfi/19

(require timable/srfi)

package: timable

Examples:

> (require srfi/19)
> (require timable/srfi)
> (hours-ago 5)
(date* 5 55 3 15 2 2020 6 45 #f -25200 973000000 "")
> (time-in-range? (current-time) (hours-ago/time 1) (hours-from-now/time 1))
#t
> (last-oclock (current-date))
(date* 0 0 8 15 2 2020 6 45 #f -25200 0 "")
> (last-oclock/time (current-time))
(tm:time 'time-utc 0 1581778800)
> (oclocks-between (hours-ago 2) (hours-ago 5))
(list
(date* 0 0 3 15 2 2020 6 45 #f -25200 0 "")
(date* 0 0 4 15 2 2020 6 45 #f -25200 0 "")
(date* 0 0 5 15 2 2020 6 45 #f -25200 0 "")
(date* 0 0 6 15 2 2020 6 45 #f -25200 0 ""))
> (oclocks-between/time (hours-ago/time 2) (hours-ago/time 5))
(list
(tm:time 'time-utc 0 1581760800)
(tm:time 'time-utc 0 1581764400)
(tm:time 'time-utc 0 1581768000)
(tm:time 'time-utc 0 1581771600))
> (beginning-date (current-date))
(date* 0 0 0 15 2 2020 6 45 #f -25200 0 "")
> (beginning-date/month (current-date))
(date* 0 0 0 1 2 2020 6 31 #f -25200 0 "")
> (beginning-date/year (current-date))
(date* 0 0 0 1 1 2020 3 0 #f -25200 0 "")
> (date->string (date-parse "2018-01-01 11:11:11 +0800"))
"Mon Jan 01 11:11:11+0800 2018"
> (date->string (date-parse "2018/01/01 12"))
"Mon Jan 01 12:00:00-0700 2018"

value
unix-epoch-time : time?

returns the unix epoch time, which is 1970-01-01T00:00:00Z.

value
unix-epoch-date : date?

returns the unix-epoch-time in date type.

procedure
(hours-ago n) → date?
n : number?

an alias procedure of hours-ago/date

procedure
(hours-ago/time n) → time?
n : number?

returns a time of n hours ago.

procedure
(hours-ago/date n) → date?
n : number?

returns a date of n hours ago.

procedure
(hours-from-now n) → date?
n : number?

an alias procedure of hours-from-now/date

procedure
(hours-from-now/time n) → time?
n : number?

returns a time of n hours from now on.

procedure
(hours-from-now/date n) → date?
n : number?

returns a date of n hours from now on.

procedure
(time-in-range? time1 time2 time3) → boolean?
  time1 : time?
  time2 : time?
  time3 : time?

an alias procedure of time-in-range<>?

procedure
(time-in-range<>? time1 time2 time3) → boolean?
  time1 : time?
  time2 : time?
  time3 : time?

Is time1 in the range of time2 and time3?

procedure
(time-in-range==? time1 time2 time3) → boolean?
  time1 : time?
  time2 : time?
  time3 : time?

an alias procedure of time-in-range=<>=?

procedure
(time-in-range=<>=? time1 time2 time3) → boolean?
  time1 : time?
  time2 : time?
  time3 : time?

Is time1 in the range of time2 and time3(is in if time1 equals time2 or time3)?

procedure
(time-in-range=<>? time1 time2 time3) → boolean?
  time1 : time?
  time2 : time?
  time3 : time?

Is time1 in the range of time2 and time3(is in if time1 equals time2)?

procedure
(time-in-range<>=? time1 time2 time3) → boolean?
  time1 : time?
  time2 : time?
  time3 : time?

Is time1 in the range of time2 and time3(is in if time1 equals time3)?

procedure
(beginning-date d) → date?
d : date?

beginning-date is an alias procedure of beginning-date/day.

procedure
(beginning-date/day d) → date?
d : date?

beginning-date/day returns a new date which is the first date of the day of d.

procedure
(beginning-date/month d) → date?
d : date?

beginning-date/month returns a new date which is the first date of the month of d.

procedure
(beginning-date/year d) → date?
d : date?

beginning-date/year returns a new date which is the first date of the year of d.

procedure
(end-date d) → date?
d : date?

end-date is an alias procedure of end-date/day.

procedure
(end-date/day d) → date?
d : date?

end-date/day returns a new date which is the end date of the day of d.

procedure
(end-date/month d) → date?
d : date?

end-date/month returns a new date which is the end date of the month of d.

procedure
(end-date/year d) → date?
d : date?

end-date/year returns a new date which is the endt date of the year of d.

procedure
(previous-date/day d) → date?
d : date?

returns a new date which is the same date of yesterday of d.

procedure
(date-parse str) → date?
str : string?

try to returns a date with parsing the string str.

procedure
(previous-date/month d) → date?
d : date?

returns a new date which is the same date of last month of d.

procedure
(last-oclock/time d) → time?
d : time?

returns a new time which is the recently last oclock time of d.

procedure
(last-oclock/date d) → date?
d : date?

returns a new date which is the recently last oclock time of d.

procedure
(last-oclock d) → date?
d : date?

an alias procedure of last-oclock/date.

procedure
(oclocks-between d1 d2) → list?
d1 : date?
d2 : date?

an alias procedure of oclocks-between/date.

procedure
(oclocks-between/time t1 t2) → list?
t1 : time?
t2 : time?

returns a list of all the time oclocks between t1 and t2.

procedure
(oclocks-between/date d1 d2) → list?
d1 : date?
d2 : date?

returns a list of all the date oclocks between d1 and d2.

procedure
(time-utc->date->string t [format-string]) → string?
t : time?
format-string : string? = "~c"

convert the time to date and then to string with format-string of PLT-specific extensions(string->date).

procedure
(time-utc->string t [format-string]) → string?
t : time?
format-string : string? = "~c"

an alias procedure of time-utc->date->string.

2 Procedures extended from gregor

(require timable/gregor)

package: timable

Examples:

> (require timable/gregor)
> (current-date)
#<date 2020-02-15>
> (current-datetime)
#<datetime 2020-02-15T08:55:06.319195068>
> (current-moment)
#<moment 2020-02-15T08:55:06.32048999-07:00[America/Denver]>
> (current-moment/utc)
#<moment 2020-02-15T15:55:06.322062988Z[Etc/UTC]>
> (require gregor)
> (prev-day (now))
#<datetime 2020-02-14T08:55:06.324354004>
> (prev-month (now))
#<datetime 2020-01-15T08:55:06.325955078>
> (next-month (now))
+months: arity mismatch;
the expected number of arguments does not match the given
number
  expected: 2 plus an optional argument with keyword
#:resolve-offset
  given: 1
  arguments...:
   #<datetime 2020-02-15T08:55:06.327266113>
> (prev-year (now))
#<datetime 2019-02-15T08:55:06.328079102>
> (at-beginning/month (now))
#<datetime 2020-02-01T00:00:00>
> (at-end/month (now))
#<datetime 2020-02-29T23:59:59.999999999>
> (at-beginning/day (now))
#<datetime 2020-02-15T00:00:00>
> (at-end/year (now))
#<datetime 2020-12-31T23:59:59.999999999>
> (parse/datetime "2018-02-14 12:30:45")
#<datetime 2018-02-14T12:30:45>
> (parse/datetime "2018/02-14 12-30 45")
#<datetime 2018-02-14T12:30:45>

procedure
(->utc-offset/hours m) → number?
m : moment?

return a number stands for the utc offset hours. While ->utc-offset returns the seconds.

procedure
(current-date) → date?

an alias procedure of today.

procedure
(current-datetime) → datetime?

an alias procedure of now.

procedure
(current-moment) → moment?

an alias procedure of now/moment.

procedure
(current-moment/utc) → moment?

an alias procedure of now/moment/utc.

procedure
(at-beginning/day d) → (or/c datetime? moment?)
d : (or/c datetime? moment?)

the day beginning time of d.

procedure
(at-end/day d) → (or/c datetime? moment?)
d : (or/c datetime? moment?)

the day end time of d.

procedure
(parse/datetime str) → datetime?
str : string?

try to parse str and return a datetime for it.

3 Procedures converting date/time types

(require timable/convert)

package: timable

Examples:

> (require gregor)
> (->sql-timestamp (today))
(sql-timestamp 2020 2 15 0 0 0 0 #f)
> (->sql-timestamp (now))
(sql-timestamp 2020 2 15 8 55 6 641410889 #f)
> (->sql-timestamp (now/moment))
(sql-timestamp 2020 2 15 8 55 6 643538086 -7)
> (->sql-timestamp (now))
(sql-timestamp 2020 2 15 8 55 6 644554932 #f)
> (->sql-timestamp (now/moment #:tz "Asia/Shanghai"))
(sql-timestamp 2020 2 15 23 55 6 645382080 8)
> (today/sql)
(sql-date 2020 2 15)
> (now/sql)
(sql-timestamp 2020 2 15 8 55 6 646592041 #f)
> (now/moment/sql #:tz "Asia/Shanghai")
(sql-timestamp 2020 2 15 8 55 6 647514893 -7)

procedure
(date->sql-timestamp d) → sql-timestamp?
d : date?

convert d from gregor date to sql-timestamp.

procedure
(datetime->sql-timestamp d) → sql-timestamp?
d : datetime?

convert d from gregor datetime to sql-timestamp.

procedure
(moment->sql-timestamp d) → sql-timestamp?
d : moment?

convert d from gregor moment to sql-timestamp.

procedure
(->sql-timestamp d) → sql-timestamp?
d : (or/c date? datetime? moment?)

convert d from gregor moment to sql-timestamp.

procedure
(current-datetime/sql d) → sql-timestamp?
d : datetime?

return current-datetime in sql-timestamp type.

procedure
(current-moment/sql d) → sql-timestamp?
d : moment?

return current-moment in sql-timestamp-tz type.

procedure
(today/sql d) → sql-date?
d : date?

return today in sql-date type.

4 Changelog

add parse/datetime ... to gregor lib. –2019/12/16
add now/sql now/moment/sql today/sql ... to convert lib.
rename timeless to timable and add support to gregor and sql-timestamp.
splited from chive and name it to timeless only support srfi/19 lib.
refactor chive from chez scheme version to racket.

top ← prev up next →

1	Procedures extended from srfi/ 19
2	Procedures extended from gregor
3	Procedures converting date/ time types
4	Changelog