timable

7.5

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 udpated logs

1 Procedures extended from srfi/19

(require timable/srfi)

package: timable

Examples:

> (require srfi/19)
> (require timable/srfi)
> (hours-ago 5)
(date* 19 0 3 6 12 2019 5 339 #f -25200 288000000 "")
> (time-in-range? (current-time) (hours-ago/time 1) (hours-from-now/time 1))
#t
> (last-oclock (current-date))
(date* 0 0 8 6 12 2019 5 339 #f -25200 0 "")
> (last-oclock/time (current-time))
(tm:time 'time-utc 0 1575644400)
> (oclocks-between (hours-ago 2) (hours-ago 5))
(list
(date* 0 0 3 6 12 2019 5 339 #f -25200 0 "")
(date* 0 0 4 6 12 2019 5 339 #f -25200 0 "")
(date* 0 0 5 6 12 2019 5 339 #f -25200 0 "")
(date* 0 0 6 6 12 2019 5 339 #f -25200 0 ""))
> (oclocks-between/time (hours-ago/time 2) (hours-ago/time 5))
(list
(tm:time 'time-utc 0 1575626400)
(tm:time 'time-utc 0 1575630000)
(tm:time 'time-utc 0 1575633600)
(tm:time 'time-utc 0 1575637200))
> (beginning-date (current-date))
(date* 0 0 0 6 12 2019 5 339 #f -25200 0 "")
> (beginning-date/month (current-date))
(date* 0 0 0 1 12 2019 0 334 #f -25200 0 "")
> (beginning-date/year (current-date))
(date* 0 0 0 1 1 2019 2 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 2019-12-06>
> (current-datetime)
#<datetime 2019-12-06T08:00:19.639044922>
> (current-moment)
#<moment 2019-12-06T08:00:19.640334961-07:00[America/Denver]>
> (current-datetime/utc)
#<datetime 2019-12-06T15:00:19.641475098>
> (current-moment/utc)
#<moment 2019-12-06T15:00:19.642197021Z[Etc/UTC]>
> (require gregor)
> (prev-day (now))
#<datetime 2019-12-05T08:00:19.644229004>
> (prev-month (now))
#<datetime 2019-11-06T08:00:19.645990967>
> (at-beginning/month (now))
#<datetime 2019-12-01T00:00:00>
> (at-end/month (now))
#<datetime 2019-12-31T23:59:59.999999999>

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-datetime/utc) → moment?

an alias procedure of now/utc.

procedure
(current-moment/utc) → moment?

an alias procedure of now/moment/utc.

3 Procedures converting date/time types

(require timable/convert)

package: timable

Examples:

> (require gregor)
> (->sql-timestamp (today))
(sql-timestamp 2019 12 6 0 0 0 0 #f)
> (->sql-timestamp (now))
(sql-timestamp 2019 12 6 8 0 19 961310059 #f)
> (->sql-timestamp (now/moment))
(sql-timestamp 2019 12 6 8 0 19 962986084 -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.

4 udpated logs

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	udpated logs