Dim str As String = "0101"str = str.substring(0,str.length-2) & format(val(right(str, 2))+1, "00")msgbox(str)
加好友 
发短信
Post By：2016/1/27 14:46:00 [只看该作者]
