Public Function AddZero(strTmp As String) As String '添加0
Dim intCD,intCDC As Integer
intCD = Len(strTmp)
intCDC = 10 - intCD
If intCDC > 0 Then
Dim strZCD As String
strZCD = String(intCDC,"0")
ElseIf intCDC = 0 Then
AddZero = strTmp
Exit Function
Else
MsgBox "长度已超出10000000000位，请与系统管理员联系",vbCritical,"错误"
AddZero = ""
Exit Function
End If
AddZero = strZCD + strTmp
End Function
由 dawei
【声明】：北京站长网内容转载自互联网，其相关言论仅代表作者个人观点绝非权威，不代表本站立场。如您发现内容存在版权问题，请提交相关链接至邮箱：bqsm@foxmail.com，我们将及时予以处理。