62 lines
1.3 KiB
Mathematica
62 lines
1.3 KiB
Mathematica
|
XBDIFF ; IHS/ADC/GTH - RETURN DIFFERENCE BETWEEN TWO DATE/TIMES ; [ 02/07/97 3:02 PM ]
|
||
|
|
;;4.0;XB;;Jul 20, 2009;Build 2
|
||
|
|
;
|
||
|
|
; Passed two date/times this routine returns the difference
|
||
|
|
; in days, hours, minutes, seconds separated by colons ":".
|
||
|
|
;
|
||
|
|
; The date/times must be passed in the variables X and X1.
|
||
|
|
; The result will be returned in X. X1 will be killed.
|
||
|
|
;
|
||
|
|
; If either X or X1 are invalid X will be returned as -1 and
|
||
|
|
; X1 will be killed.
|
||
|
|
;
|
||
|
|
; The date/times may be passed in $HOROLOG format or in
|
||
|
|
; internal FileMan format.
|
||
|
|
;
|
||
|
|
; See also, $$FMDIFF^XLFDT, and $$HDIFF^XLFDT.
|
||
|
|
;
|
||
|
|
START ;
|
||
|
|
NEW A,B,C,D,E,F,G
|
||
|
|
D EDIT
|
||
|
|
Q:X<0
|
||
|
|
S:X>X1 A=X,X=X1,X1=A
|
||
|
|
I X?5N1","5N S A=$P(X,",",1),B=$P(X,",",2) I 1
|
||
|
|
E D H^%DTC S A=%H,B=%T
|
||
|
|
I X1?5N1","5N S C=$P(X1,",",1),D=$P(X1,",",2) I 1
|
||
|
|
E S X=X1 D H^%DTC S C=%H,D=%T
|
||
|
|
S E=C-A S:D<B E=E-1,D=D+86400 S D=D-B,F=D\3600,D=D-(F*3600),G=D\60,D=D-(G*60)
|
||
|
|
S X=E_":"_F_":"_G_":"_D
|
||
|
|
KILL %H,%T,%Y,A,B,C,D,E,F,G,X1
|
||
|
|
Q
|
||
|
|
;
|
||
|
|
EDIT ; EDIT INPUT
|
||
|
|
D EDITX
|
||
|
|
Q:X<0
|
||
|
|
D EDITX1
|
||
|
|
Q:X<0
|
||
|
|
I X?5N1"."5N D Q
|
||
|
|
. I $P(X,".",2)>86399 S X=-1 KILL X1
|
||
|
|
. Q
|
||
|
|
S A=$P(X,".",2)
|
||
|
|
I +$E(A,1,2)<24,+$E(A,3,4)<60,+$E(A,5,6)<60 Q
|
||
|
|
E S X=-1 KILL X1
|
||
|
|
KILL A
|
||
|
|
Q
|
||
|
|
;
|
||
|
|
EDITX ; EDIT X
|
||
|
|
Q:X?5N1"."5N
|
||
|
|
Q:X?7N
|
||
|
|
Q:X?7N1"."1.6N
|
||
|
|
S X=-1
|
||
|
|
KILL X1
|
||
|
|
Q
|
||
|
|
;
|
||
|
|
EDITX1 ; EDIT X1
|
||
|
|
Q:X?5N1"."5N
|
||
|
|
Q:X?7N
|
||
|
|
Q:X?7N1"."1.6N
|
||
|
|
S X=-1
|
||
|
|
KILL X1
|
||
|
|
Q
|
||
|
|
;
|