这个VBS代码日期值错误出在哪？

cshiq

1. Function FormateDate()
   
2. datestr = Split (Date,"/")
   
3. If Len(datestr(1)) = 1 Then
   
4. months = "0"&datestr(1)
   
5. End If
   
6. 
   
7. If Len(datestr(2)) = 1 Then
   
8. dates = "0" &datestr(2)
   
9. End If
   
10. FormateDate = datestr(0) & months & dates
    
11. End Function

复制代码

输出当前年四位数、月日各两位数格式的数字，如“20120920”
现在问题是在1-9日可以正常输出，在10-31日，只输出年、月数字，上例的话，它只输出“201209”。
请行家帮忙修正一下。

apang

1. Function FormateDate()
   
2.    datestr = Split (Date,"/")
   
3.    If Len(datestr(1)) = 1 Then
   
4.       months = "0"&datestr(1)
   
5.    Else
   
6.       months = datestr(1)
   
7.    End If
   
8. 
   
9.    If Len(datestr(2)) = 1 Then
   
10.       dates = "0" &datestr(2)
    
11.    Else
    
12.       dates = datestr(2)
    
13.    End If
    
14.    FormateDate = datestr(0) & months & dates
    
15. End Function

复制代码

cshiq

感谢热心的apang兄，感谢批处理之家。没想到求助问题这么快就得到帮助解决了。
非常感谢！