|
Last change
on this file since 12 was 12, checked in by Sam Habiel, 16 years ago |
|
adding my changes to the repository
|
|
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.
