$HOROLOG $H
CLOCKTIME NEW SET Time=$PIECE($HOROLOG,",",2) SET Sec=Time#60 SET Totmin=Time\60 SET Min=Totmin#60 SET Milhour=Totmin\60 IF Milhour>12 { SET Hour=Milhour-12,Meridian=" pm" } ELSE { SET Hour=Milhour,Meridian=" am" } WRITE !,Hour,":",Min,":",Sec,Meridian QUIT
| Copyright © 1997-2010, InterSystems Corp. |
|
Last updated: 2003-12-10 14:45:08 | Source: RCOS_vhorolog.xml |