Функция переводит число в любую другую систему (до тридцатишестиричной)


global type f_dec2numsys from function_object
end type

forward prototypes
global function string f_dec2numsys (long in_num, integer out_digits, integer numbersystem, string uplower)
end prototypes

global function string f_dec2numsys (long in_num, integer out_digits, integer numbersystem, string uplower);//FUNCTION f_Dec2NumSys
// ( In_Num in number /* ????? ?? ????????? 10 */
// , Out_Digits in number /* =< 30 - ?????????? ???????? ? ???. ????? */
// , NumberSystem in number /* =< 36 - ??????? ?????????, ? ??????? ???? ????????????? ????? In_Num */
// , UpLower in varchar2 /* U[pper] ??? L[ower] - ???????, ???????? ??????. Default - 'L' */
// ) return char /* ???: ????? ? ??????? ????????? ?? ????????? NumberSystem. */
// /* or null if input parameter ERROR */

string sCodesUpper = '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ' ;
string sNumber_str = '' ;
long nTrancnum
integer nNdigits
integer nNS
integer i

nTrancnum = In_Num ;
nNdigits = Out_Digits ;
nNS = NumberSystem ;
if ( NumberSystem > 36 ) or ( NumberSystem < 1 ) then
return ''
end if;
if ( Out_Digits > 30 ) then
nNdigits = 30
end if;
for i = 1 TO nNdigits
sNumber_str = Mid(sCodesUpper, MOD(Mod(nTrancnum,nNS),nNS)+1, 1) + sNumber_str
nTrancnum = Truncate( nTrancnum /nNS,0 ) ;
next
if Upper(Mid(UpLower,1,1)) = 'L' then
sNumber_str = Upper(sNumber_str) ;
end if;
return sNumber_str ;
end function