Changeset 14 for ccr/trunk/p/CCRUTIL.m
- Timestamp:
- Jun 22, 2008, 8:04:01 PM (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
ccr/trunk/p/CCRUTIL.m
r12 r14 4 4 W "No Entry at Top!" Q 5 5 6 FMDTOUTC(DATE) ; Convert Fileman Date to UTC Date Format; PUBLIC; Extrinsic 7 N UTC,Y,M,D ; UTC, Year, Month, Day 6 FMDTOUTC(DATE,FORMAT) ; Convert Fileman Date to UTC Date Format; PUBLIC; Extrinsic 7 ; FORMAT is Format of Date. Can be either D (Day) or DT (Date and Time) 8 ; If not passed, or passed incorrectly, it's assumed that it is D. 9 ; FM Date format is "YYYMMDD.HHMMSS" HHMMSS may not be supplied. 10 ; UTC date is formatted as follows: YYYY-MM-DDThh:mm:ss_offsetfromUTC 11 ; UTC, Year, Month, Day, Hours, Minutes, Seconds, Time offset (obtained from Mailman Site Parameters) 12 N UTC,Y,M,D,H,MM,S,OFF 8 13 S Y=1700+$E(DATE,1,3) 9 14 S M=$E(DATE,4,5) 10 15 S D=$E(DATE,6,7) 11 S UTC=Y_"-"_M_"-"_D 12 Q UTC 16 S H=$E(DATE,9,10) 17 S MM=$E(DATE,11,12) 18 S S=$E(DATE,12,13) 19 S OFF=$$TZ^XLFDT ; See Kernel Manual for documentation. 20 ; If H, MM and S are empty, it means that the FM date didn't supply the time. 21 ; In this case, set H, MM and S to "00" 22 S:('$L(H)&'$L(MM)&'$L(S)) (H,MM,S)="00" 23 S UTC=Y_"-"_M_"-"_D_"T"_H_":"_MM_":"_S_OFF 24 I $L(FORMAT),FORMAT="DT" Q UTC ; Date with time. 25 E Q $P(UTC,"T") 13 26 ;
Note:
See TracChangeset
for help on using the changeset viewer.