Format Numbers With Function NB

[virger]

Save this function like "FmtNum"

Code: Select all

{NeoBook Function}
Version=5,80
Language=NeoBook
Param=[%nn]|Number|Num To Process
Param=[%dc]|Number|Num Of Decimals
Param=[%sep]|Text|Type Separ
Param=[%dp]|Text|Decimal Point
Param=[%ret]|Variable|Return Number
{End}
.. Puede usarse Trunc, Round
math "[%nn]" "[%dc]" "[%nn]"

strparse "[%nn]" "," "[%nm]" "[%c]"
strlen "[%nm1]" "[%ln]"
if "[%ln]" ">" "2"
   Loop "[%ln]-2" "2" "[%c]"
        StrIns "[%sep]" "[%nm1]" "[%c]" "[%nm1]"
        math "[%c]-2" "" "[%c]"
   endloop
endif

setvar "[%ret]" "[%nm1][%dp][%nm2]"
clearvariables "[%nn],[%nm1],[%nm2],[%c],[%ln]"

setvar "[Num]" "1234567890.54321"

Call "FmtNum" "[Num]" "3" "_" "@" "[NewNum]"

Return [NewNum] = 1_234_567_890@543

Enjoy

[Neosoft Support]

That's very cool. Thanks Virger!