14 lines
333 B
Mathematica
14 lines
333 B
Mathematica
CCRUTIL ;CCRCCD/SMH - Various Utilites for generating the CCR/CCD;06/15/08
|
|
;;0.1;CCRCCD;;Jun 15, 2008;
|
|
|
|
W "No Entry at Top!" Q
|
|
|
|
FMDTOUTC(DATE) ; Convert Fileman Date to UTC Date Format; PUBLIC; Extrinsic
|
|
N UTC,Y,M,D ; UTC, Year, Month, Day
|
|
S Y=1700+$E(DATE,1,3)
|
|
S M=$E(DATE,4,5)
|
|
S D=$E(DATE,6,7)
|
|
S UTC=Y_"-"_M_"-"_D
|
|
Q UTC
|
|
;
|