source:
ccr/CCRUTIL.m@
11
| Last change on this file since 11 was 9, checked in by , 17 years ago | |
|---|---|
| File size: 333 bytes | |
| Rev | Line | |
|---|---|---|
| [9] | 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.
