source: IHS-VA_UTILITIES-XB/trunk/XBDIFF.m@ 804

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
        ;