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]"
Call "FmtNum" "[Num]" "3" "_" "@" "[NewNum]"
Return [NewNum] = 1_234_567_890@543
Enjoy