source:
ccr/trunk/CCRUTIL.m@
11
| Last change on this file since 11 was 6, checked in by , 16 years ago | |
|---|---|
| File size: 333 bytes | |
| Line | |
|---|---|
| 1 | CCRUTIL ;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 | |
| 6 | FMDTOUTC(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.
