LiveCode Forums.

Code: Select all

function GetCommaFormat tWholePart
   put value(tWholePart) into tWholePart
   if tWholePart < 0 then
      put true into tNegative
      put abs(tWholePart) into tWholePart
   end if
   put empty into tFormattedWhole
   repeat until tWholePart < 1000
      put comma & char -3 to -1 of ("000" & tWholePart mod 1000) before tFormattedWhole
      put tWholePart div 1000 into tWholePart
   end repeat
   if tNegative is true then
      put "-" before tWholePart
   end if
   put tWholePart  before tFormattedWhole
   return tFormattedWhole
end GetCommaFormat

Code: Select all

on mouseUp
   get fld "f1"
   put 0 into charCount
   if  offset(".",it) <> 0 then put  offset(".",it) - 1 into startChar
   else put the number of chars of it into startChar
   repeat with y = startChar down to 1
      add 1 to charCount
      if charCount mod 3 =0 then put "," before char y of  it
   end repeat
   if char 1 of  it = "," then delete char 1 of it
   if char 1 to 2 of it = "-," then delete char 2 of it
   answer it
end mouseUp

Code: Select all

function addCommas pNum
   set the itemdelimiter to "."
   if the number of items in pNum > 1 then  put item 2 of pNum into tDecimal -- store the decimal part if it exists
   put item 1 of pNum + 0 into tMain -- did the plus zero to whomp any leading or trailing zeros in the number
      repeat with i = (the number of chars in tMain - 3) down to 3 step -3
         put comma after char i of tMain
      end repeat
   return tMain & "." & tDecimal
end addCommas

Code: Select all

function addCommas pNum
   local tDecimal
   set the itemdelimiter to "."
   if the number of items in pNum > 1 then put "." &  item 2 of pNum into tDecimal 
   put item 1 of pNum + 0 into tMain -- did the plus zero to whomp any leading or trailing zeros in the number
   repeat with i = (the number of chars in tMain - 3) down to 3 step -3
      put comma after char i of tMain
   end repeat
   return tMain & tDecimal
end addCommas

Code: Select all

function USCurrency tNumber, tPlaces
   if tPlaces is empty or tPlaces < 2 then
      put 2 into tPlaces
   end if
   if not isNumber(tNumber) then
      return "Error"
   end if
   If tNumber < 0 then
      put abs(tNumber) into tNumber
      put true into tNegative
   end if
   put round(tNumber,tPlaces) into tNumber
   set the itemdelimiter to "."
   put the number of items of tNumber into tItems
   if tItems = 1 then
      put ".0" after tNumber
   end if
   put item 1 of tNumber into tMain
   repeat with i = (the number of chars in tMain - 3) down to 3 step -3
      put comma after char i of tMain
   end repeat
   put item 2 of tNumber into tDecimal
   repeat until the number of chars of tDecimal = tPlaces
      put tDecimal & "0" into tDecimal
   end repeat
   if tNegative = true then put "-" before tMain
   return  "$" & tMain & "." & tDecimal
end USCurrency