Changeset 116 for ccr/trunk

Timestamp:

Aug 29, 2008, 3:19:16 PM (16 years ago)

Author:

George Lilly

Message:

another fix to date format. this time where minute or second are one digit

File:

• ccr/trunk/p/CCRUTIL.m (modified) (1 diff)

ccr/trunk/p/CCRUTIL.m

@@ -32 +32 @@
           S H=$E(DATE,9,10)
           S MM=$E(DATE,11,12)
+          I $L(MM)=1 S MM="0"_MM
           S S=$E(DATE,13,14)
+          I $L(S)=1 S S="0"_S
           S OFF=$$TZ^XLFDT ; See Kernel Manual for documentation.
           ; If H, MM and S are empty, it means that the FM date didn't supply the time.