module Time: sig
.. end
include Interval.S
val create_ending_after : ?zone:Zone.t -> Ofday.t * Ofday.t -> now:Time.t -> t
create_ending_after ?zone (od1, od2) ~now
returns the smallest interval (t1 t2)
with minimum t2
such that t2 >= now
, to_ofday t1 = od1
, and to_ofday t2 =
od2
. If zone is specified, it is used to translate od1 and od2 into times,
otherwise the machine's time zone is used. It is not guaranteed that contains (t1
t2) now
, which will be false iff there is no interval containing now
with
to_ofday t1 = od1
and to_ofday t2 = od1
.
val create_ending_before : ?zone:Zone.t -> Ofday.t * Ofday.t -> ubound:Time.t -> t
create_ending_before ?zone (od1, od2) ~ubound
returns the smallest interval (t1
t2)
with maximum t2
such that t2 <= ubound
, to_ofday t1 = od1
, and to_ofday
t2 = od2
. If zone is specified, it is used to translate od1 and od2 into times,
otherwise the machine's time zone is used.