[原创]十进制转换成十六进制函数
<TABLE width="98%" border=0><TR>
<TD class=bw><FONT>/*================================================================*/<BR>//十进制转换成十六进制函数<BR>//参数：long al_<I>value</I>（十进制数）<BR>//返回值：string（十六进制字符串）<BR>/*================================================================*/<BR>string ls_str = {<I>'</I>0<I>'</I>,<I>'</I>1<I>'</I>,<I>'</I>2<I>'</I>,<I>'</I>3<I>'</I>,<I>'</I>4<I>'</I>,<I>'</I>5<I>'</I>,<I>'</I>6<I>'</I>,<I>'</I>7<I>'</I>,<I>'</I>8<I>'</I>,<I>'</I>9<I>'</I>,<I>'</I>A<I>'</I>,<I>'</I>B<I>'</I>,<I>'</I>C<I>'</I>,<I>'</I>D<I>'</I>,<I>'</I>E<I>'</I>,<I>'</I>F<I>'</I>}<BR>string ls_rtn<BR>long ll_h,ll_l,ll_<I>value</I><BR><BR>ls_rtn =<I>'</I><I>'</I><BR>do while long(string(truncate(al_<I>value</I>/256,0))) > 0 //计算是256的n次方<BR> ll_<I>value</I> = mod(al_<I>value</I>,256)<BR> if al_<I>value</I> > 0 then<BR>ll_h = int(ll_<I>value</I>/16) //取高位<BR>ll_l = mod(ll_<I>value</I>,16) //取高位<BR>ls_rtn = ls_str + ls_str + ls_rtn<BR> else<BR>ls_rtn = ls_rtn + <I>'</I>00<I>'</I><BR> end if<BR> al_<I>value</I> = long(string(truncate(al_<I>value</I>/256,0)))<BR>loop<BR>if al_<I>value</I> > 0 then<BR> ll_h = int(al_<I>value</I>/16) //取高位<BR> ll_l = mod(al_<I>value</I>,16) //取高位<BR> ls_rtn = ls_str + ls_str + ls_rtn<BR>end if<BR>/*================================================================*/<BR>//以下为补位处理，返回长度为3位的字符串，不足补0 (wangnet 2004-2-2)<BR>/*================================================================*/<BR>long ll_len<BR>for ll_len = 1 to 3<BR> if len(ls_rtn) = 3 then exit<BR> ls_rtn = <I>'</I>0<I>'</I> + ls_rtn <BR>next<BR><BR>return ls_rtn</FONT></TD></TR></TABLE>
页:
[1]