Function AddX(val,digit) //参数,第一个:处理的变量;第二个:处理后的位数
if isnull(val) then val="" end if
Dim Ret:Ret=CStr(val)
if(Len(Ret)>digit)then
Ret=right(Ret,digit)
else
Ret=Replace(Space(digit-Len(Ret))," ","0")&Ret //“0”是补位的替代字符
end if
AddZero=Ret
End Function
本文介绍了一种处理变量并限定其位数的方法。通过FunctionAddX函数实现对输入变量val的处理,确保处理后的变量长度符合指定的位数digit。如果处理后的变量长度超过digit,则截取最后digit位;如果不足,则在前面补充0以达到指定长度。
3万+

被折叠的 条评论
为什么被折叠?



