LiveCode Forums.

Code: Select all

function fmtNum pNum, pCurrency, pSeparator, pDecimal, pDecPlaces
   
   -- Syntax: fmtNum pNum [,pCurrency[,pSeparator[,pDecimal]]]
   
   if pNum is not a number then 
      return "ERR: Not a number"   -- return exist this routine
   end if
   
   if char 1 of pNum = "-" then
      put "-" into prefix
      put char 2 to -1 of pNum into pNum
   end if
   
   
   -- is Decimal = . then use decimal
   if pDecimal="" then 
      -- put "" into pDecimal
      set the numberFormat to "0"
   else
      -- otherwise don't use decimal
      -- put "." into pDecimal
      set the numberFormat to "0.00"
   end if
   
   -- force format onto number parameter
   add 0 to pNum
   
   
   
   if pDecPlaces is not empty then
      if pDecPlaces is a number then 
         put round(pnum,pDecPlaces) into pnum
      end if
   end if
   
   
   
   set the itemDelimiter to "."
   
   -- Integer.Decimal
   
   put item 1 of pNum into pInteger
   put item 2 of pNum into holdDecimal
   
   -- if the seperator not empty then use it otherwise don't
   if pSeparator is not empty then 
      repeat with x = length(pInteger)-3 to 3 step -3
         
         put pSeparator before char x+1 of pInteger
         
      end repeat
   end if
   
   
   
   return (pCurrency && prefix & pInteger & pDecimal & holdDecimal)
   
end fmtNum