From 69967d71ff1c1dff5ead6922cb09b47719cf4be8 Mon Sep 17 00:00:00 2001
From: Jesse Gumm <gumm@sigma-star.com>
Date: Wed, 24 Feb 2016 11:09:28 -0600
Subject: [PATCH] Add initial experiment with between/[2,3]

---
 src/qdate.erl | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

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       %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%