diff --git a/p/CCRUTIL.m b/p/CCRUTIL.m index fe24e67..59af494 100644 --- a/p/CCRUTIL.m +++ b/p/CCRUTIL.m @@ -31,7 +31,9 @@ FMDTOUTC(DATE,FORMAT) ; Convert Fileman Date to UTC Date Format; PUBLIC; Extrins S D=$E(DATE,6,7) 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. ; In this case, set H, MM and S to "00"