home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / magazine / pcmagazi / 1992 / 13 / stime2.prg < prev    next >
Text File  |  1991-07-17  |  315b  |  10 lines
  1. * STTIME.PRG
  2. * Convert military time into standard AM/PM format.
  3. *
  4. FUNCTION stime
  5. PARAMETER t           && Time in military 24-hour format
  6. vt = VAL(t)
  7. RETURN IIF(vt > 12, STR(vt - 12, 2) + SUBSTR(t,3) + " Pm", ;
  8.        IIF(vt = 12, t + " Pm", ;
  9.        IIF(vt < 1, '12' + SUBSTR(t,3) + " Am", t + " Am")))
  10.