FUNCTION Time12Hr
    PARAMETERS cTm
    LOCAL nHr

    IF PCOUNT()==0 THEN
        cTm = TIME()
    ENDIF
    nHr = VAL(LEFT(m.cTm,2))
    RETURN TRANSFORM((m.nHr+11)%12+1)+" "+IIF(m.nHr>=12,"PM","AM")
ENDFOR