umgeher/qdate
0
Fork 0
Code Issues Pull requests Releases Activity

Add initial experiment with between/[2,3]

Browse source
This commit is contained in:
Jesse Gumm 2016-02-24 11:09:28 -06:00
parent cc9dee4e08
commit 69967d71ff
1 changed files with 9 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/qdate.erl
View file

@ -40,7 +40,9 @@
-export([ -export([
compare/2, compare/2,
compare/3 compare/3,
between/2,
between/3
]). ]).
-export([ -export([
@ -409,6 +411,12 @@ compare(A, Op, B) ->
'=>' -> Comp =:= 1 orelse Comp =:= 0 '=>' -> Comp =:= 1 orelse Comp =:= 0
end. end.
between(A, B) ->
between(unixtime(), A, B).
between(Date, A, B) ->
compare(Date, '>=', A) andalso compare(Date, '=<', B).
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Date Math %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%% Date Math %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%