MoneyDisplay

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|643\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
SoCoder -> Snippet Home -> Variables

Jayenkai	Created : 19 July 2010 Language : Blitz Max MoneyDisplay
Just needed this, thought others might want it. Function MoneyDisplay$(fn,ftxt2$="$") ftxt$="" ftxt3$=fn fx=0 For fn=Len(ftxt3$) To 1 Step -1 ftxt$=Mid$(ftxt3$,fn,1)+ftxt$ fx=fx+1 If fx=3 And fn>1 Then ftxt$=","+ftxt$;fx=0 Next Return ftxt2$+ftxt$ End Function --v As always, if you've got anything better/quicker, post it here!

Comments