source: ccr/trunk/CCRUTIL.m@ 11

Last change on this file since 11 was 6, checked in by George Lilly, 16 years ago
File size: 333 bytes
Line 
1CCRUTIL ;CCRCCD/SMH - Various Utilites for generating the CCR/CCD;06/15/08
2 ;;0.1;CCRCCD;;Jun 15, 2008;
3
4 W "No Entry at Top!" Q
5
6FMDTOUTC(DATE) ; Convert Fileman Date to UTC Date Format; PUBLIC; Extrinsic
7 N UTC,Y,M,D ; UTC, Year, Month, Day
8 S Y=1700+$E(DATE,1,3)
9 S M=$E(DATE,4,5)
10 S D=$E(DATE,6,7)
11 S UTC=Y_"-"_M_"-"_D
12 Q UTC
13 ;
Note: See TracBrowser for help on using the repository browser.