diff --git a/src/qdate.erl b/src/qdate.erl index 7d4e959..d6fe3ce 100644 --- a/src/qdate.erl +++ b/src/qdate.erl @@ -40,7 +40,9 @@ -export([ compare/2, - compare/3 + compare/3, + between/2, + between/3 ]). -export([ @@ -409,6 +411,12 @@ compare(A, Op, B) -> '=>' -> Comp =:= 1 orelse Comp =:= 0 end. +between(A, B) -> + between(unixtime(), A, B). + +between(Date, A, B) -> + compare(Date, '>=', A) andalso compare(Date, '=<', B). + %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%% Date Math %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%