Click above to get retro games delivered to your door ever month!

AmPm()         Time string to 12-format                Examplep.prg


Syntax:        AmPm(<expC>)

Argument:      <expC> is a time string in the form: HH:MM:SS.

Returns:       An 11-byte character string in 12-hour am/pm format.

Library:       EXTEND.LIB


----------------------------------- Example --------------------------------

   ? AmPm("13:14:00")               && Result:  1:14:00 pm
   ? AmPm("09:15:00")               && Result: 09:15:00 am


--------------------------------- Source Code ------------------------------

   FUNCTION AmPm

   PARAMETERS cl_time

   RETURN IF(        VAL(cl_time) < 12, cl_time + " am",;
              IF(    VAL(cl_time) = 12, cl_time + " pm",;
                 STR(VAL(cl_time) - 12, 2) + SUBSTR(cl_time, 3) + " pm" ))