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

Currency()     Numeric to dollar format                Apndxj.prg


Syntax:        Currency(<expN>)

Argument:      <expN> is a numeric value with up to 12 whole number
               digits to convert to a character string formatted as
               dollars.

Returns:       A character string formatted as money with embedded
               commas, two decimal places, and a floating dollar sign.
               Leading blanks are preserved.


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

   FUNCTION Currency
   PARAMETERS num_val
   PRIVATE outstr

   outstr = LTRIM(TRANSFORM(num_val, "999,999,999,999.99"))

   RETURN (SPACE(LEN(STR(num_val)) - LEN(outstr) + 1) + "$" + outstr)