Ever wanted to add commas to your numbers. Say you got 100000 as a displaying number and you want to convert it to 100,000? Here's the code. proc/applycommas(number)
number=num2text(number,1000000)
var/digits=length(number)
var/remaining=0
var/returnnumber
while(digits>=1)
if(digits>3)
var/end=","+copytext(number,digits-2,digits+1)
var/get=end
returnnumber=get+returnnumber
remaining=(length(get)-1)+remaining
digits-=3
else
var/get=copytext(number,1,(length(number)+1)-remaining)
returnnumber=get+returnnumber
digits=0
return returnnumber