解决文本型0001+1=2的问题的一个函数

时　间:2017-02-14 08:16:15
作　者:MDZZ   ID：47512  城市：南京
摘　要:解决文本型0001+1=2的问题的一个函数。
正　文:

      大家有没有试过把0001 这样的字符串加1呢？测试结果会出现2，但是我们怎么保留0出现0002呢？有人说用format，但是比如这样的01009，用format不也复杂吗？如下图：

想了半天，没想到什么好的解决办法，干脆写个函数把。如下：

Function 测试函数( a  As String) As String 
Dim b As String 
Dim i As Integer: Dim l As Integer: Dim x
As Integer 
  
i = Len(a) 
For x = 1 To i 
If Mid(a, x, 1) = 0 Then 
l = l + 1 
'获得从第一位开始有几个0 
Else 
Exit For 
End If 
Next 
b = Right(a, i - l) + 1 
If Len(b) = Len(Right(a, i - l)) Then  '如果位数没有变化 
测试函数 = Left(a, l) & b 
Else 
测试函数 = Left(a, l - 1) & b 
End If 
End Function 

测试结果: