28 lines
758 B
Mathematica
28 lines
758 B
Mathematica
OCXF21 ;SLC/RJS,CLA - GENERATES CODE FOR 'Date' OPERATORS ;10/29/98 12:37
|
|
;;3.0;ORDER ENTRY/RESULTS REPORTING;**32**;Dec 17,1997
|
|
;; ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998
|
|
Q
|
|
;
|
|
;
|
|
;
|
|
AFTER(DATA,CVAL) ; AFTER DATE
|
|
;
|
|
Q $$GRT^OCXF20(DATA,"$$DT2INT("_CVAL_")") ; GREATER THAN
|
|
;
|
|
BEFORE(DATA,CVAL) ; BEFORE DATE
|
|
;
|
|
Q $$LESS^OCXF20(DATA,"$$DT2INT("_CVAL_")") ; LESS THAN
|
|
;
|
|
ON(DATA,CVAL) ; ON DATE
|
|
;
|
|
Q $$EQ^OCXF20(DATA,"$$DT2INT("_CVAL_")") ; EQUALS
|
|
;
|
|
DINCL(DATA,CVAL1,CVAL2) ; INCLUSIVE BETWEEN DATES
|
|
;
|
|
Q $$INCL^OCXF20(DATA,"$$DT2INT("_CVAL1_")","$$DT2INT("_CVAL2_")") ; INCLUSIVE BETWEEN
|
|
;
|
|
DEXCL(DATA,CVAL1,CVAL2) ; EXCLUSIVE BETWEEN DATES
|
|
;
|
|
Q $$EXCL^OCXF20(DATA,"$$DT2INT("_CVAL1_")","$$DT2INT("_CVAL2_")") ; EXCLUSIVE BETWEEN
|
|
;
|