iSharkFly-Open
/
VistA-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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

This commit is contained in:
george 2008-08-29 19:19:16 +00:00
parent c2f09c1966
commit 1295221e0a
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
p/CCRUTIL.m
View File

@ -31,7 +31,9 @@ FMDTOUTC(DATE,FORMAT) ; Convert Fileman Date to UTC Date Format; PUBLIC; Extrins
S D=$E(DATE,6,7) S D=$E(DATE,6,7)
S H=$E(DATE,9,10) S H=$E(DATE,9,10)
S MM=$E(DATE,11,12) S MM=$E(DATE,11,12)
I $L(MM)=1 S MM="0"_MM
S S=$E(DATE,13,14) S S=$E(DATE,13,14)
I $L(S)=1 S S="0"_S
S OFF=$$TZ^XLFDT ; See Kernel Manual for documentation. 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. ; 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" ; In this case, set H, MM and S to "00"