I was just trying to make a lib for the following function
Code: Select all
ProcedureDLL.s FormatNum(Number.s,Group.l,DecDig.l,DecSep.s,GrpSep.s,Neg.l);Format Number String
Protected Buffer.s, NF.NUMBERFMT
Buffer.s=Space(255)
NF\NumDigits=DecDig
NF\LeadingZero=0
NF\Grouping=Group
NF\lpDecimalSep=@DecSep
NF\lpThousandSep=@GrpSep
NF\NegativeOrder=Neg
GetNumberFormat_(0,0,Number,NF,@Buffer,Len(Buffer))
ProcedureReturn Buffer
EndProcedure
Code: Select all
Debug FormatNum("1000000",3,0,".",",",1)
Debug FormatNum("-1000000",3,2,".",",",0)
any help is appreciated
thank you