- XBDIFF ; IHS/ADC/GTH - RETURN DIFFERENCE BETWEEN TWO DATE/TIMES ; [ 02/07/97 3:02 PM ]
- ;;3.0;IHS/VA UTILITIES;;FEB 07, 1997
- ;
- ; 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
- ;
- XBDIFF ; IHS/ADC/GTH - RETURN DIFFERENCE BETWEEN TWO DATE/TIMES ; [ 02/07/97 3:02 PM ]
- +1 ;;3.0;IHS/VA UTILITIES;;FEB 07, 1997
- +2 ;
- +3 ; Passed two date/times this routine returns the difference
- +4 ; in days, hours, minutes, seconds separated by colons ":".
- +5 ;
- +6 ; The date/times must be passed in the variables X and X1.
- +7 ; The result will be returned in X. X1 will be killed.
- +8 ;
- +9 ; If either X or X1 are invalid X will be returned as -1 and
- +10 ; X1 will be killed.
- +11 ;
- +12 ; The date/times may be passed in $HOROLOG format or in
- +13 ; internal FileMan format.
- +14 ;
- +15 ; See also, $$FMDIFF^XLFDT, and $$HDIFF^XLFDT.
- +16 ;
- START ;
- +1 NEW A,B,C,D,E,F,G
- +2 DO EDIT
- +3 IF X<0
- QUIT
- +4 IF X>X1
- SET A=X
- SET X=X1
- SET X1=A
- +5 IF X?5N1","5N
- SET A=$PIECE(X,",",1)
- SET B=$PIECE(X,",",2)
- IF 1
- +6 IF '$TEST
- DO H^%DTC
- SET A=%H
- SET B=%T
- +7 IF X1?5N1","5N
- SET C=$PIECE(X1,",",1)
- SET D=$PIECE(X1,",",2)
- IF 1
- +8 IF '$TEST
- SET X=X1
- DO H^%DTC
- SET C=%H
- SET D=%T
- +9 SET E=C-A
- IF D<B
- SET E=E-1
- SET D=D+86400
- SET D=D-B
- SET F=D\3600
- SET D=D-(F*3600)
- SET G=D\60
- SET D=D-(G*60)
- +10 SET X=E_":"_F_":"_G_":"_D
- +11 KILL %H,%T,%Y,A,B,C,D,E,F,G,X1
- +12 QUIT
- +13 ;
- EDIT ; EDIT INPUT
- +1 DO EDITX
- +2 IF X<0
- QUIT
- +3 DO EDITX1
- +4 IF X<0
- QUIT
- +5 IF X?5N1"."5N
- Begin DoDot:1
- +6 IF $PIECE(X,".",2)>86399
- SET X=-1
- KILL X1
- +7 QUIT
- End DoDot:1
- QUIT
- +8 SET A=$PIECE(X,".",2)
- +9 IF +$EXTRACT(A,1,2)<24
- IF +$EXTRACT(A,3,4)<60
- IF +$EXTRACT(A,5,6)<60
- QUIT
- +10 IF '$TEST
- SET X=-1
- KILL X1
- +11 KILL A
- +12 QUIT
- +13 ;
- EDITX ; EDIT X
- +1 IF X?5N1"."5N
- QUIT
- +2 IF X?7N
- QUIT
- +3 IF X?7N1"."1.6N
- QUIT
- +4 SET X=-1
- +5 KILL X1
- +6 QUIT
- +7 ;
- EDITX1 ; EDIT X1
- +1 IF X?5N1"."5N
- QUIT
- +2 IF X?7N
- QUIT
- +3 IF X?7N1"."1.6N
- QUIT
- +4 SET X=-1
- +5 KILL X1
- +6 QUIT
- +7 ;
