如何将输入的全角数字转换成半角并保存到数据库（pb）

//函数功能：将字符串中的半角字符转换成全角字符
//入口参数：in_str——准备进行转换的半角字符串 类型string
//返回值： 转换成功的全角字符串 类型string
string c_return=""
long l0,l1,l2,l3,l4,i,c_leng,l_asc
i=1
c_leng=len(in_str)
do while i<=c_leng
l_asc=asc(in_str)
if l_asc<=128 then
if l_asc>=33 and l_asc<=126 then
l1=int((l_asc+41856)/(16*16*16))
l0=mod((l_asc+41856),(16*16*16))
l2=int(l0/(16*16))
l0=mod(l0,(16*16))
l3=int(l0/16)
l4=mod(l0,16)
c_return=c_return+char(l1*16+l2)+char(l3*16+l4)
else
c_return=c_return+left(in_str,1)
end if
in_str=replace(in_str,1,1,"")
i=i+1
else
c_return=c_return+left(in_str,2)
in_st