进制转换四(DEC->BIN)十进制转二进制

/*===================十进制转二进制函数gf_dectobin=====================
  函数名：gf_dectobin
  参数说明：
           string类型     1、s_dec      十进制字符串

  注意事项：
  功能：将十进制字符串转换为二进制字符串。
  返回值：二进制的字符串。非法十进制字符串返回-1；空串返回Null
  作者：费贤智
  日期：2005/2/4
  =======================================================================*/
long ll_temp
string ls_return
if not match(s_dec,"[0-9]") then return "-1"//非法十进制字符串
ll_temp=long(s_dec)//将数字字符串转换为long类型；2006-11-15
if ll_temp=0 then return "0"//如果是10进制的0则直接返回“0”，因为0在二进制中也是0；2006-11-15
do while ll_temp>0 //如果大于0
 ls_return=string(mod(ll_temp,2))+ls_return//逐位取出十进制中的字符并取2的模，十进制转二进制的算法核心；2006-11-15
 ll_temp=long(ll_temp/2)//取余数，以便下一步继续取2的模；2006-11-15
loop
return "B"+ls_return//二进制以B开头区别十进制数，pb不支持直接表示二进制因而返回字符串；2006-11-15