批处理之家 - Powered by Discuz! Board

标题: [问题求助] 这个VBS代码日期值错误出在哪？ [打印本页]

作者: cshiq 时间: 2012-9-20 06:46 标题: 这个VBS代码日期值错误出在哪？

Function FormateDate()
datestr = Split (Date,"/")
If Len(datestr(1)) = 1 Then 
months = "0"&datestr(1)
End If 

If Len(datestr(2)) = 1 Then
dates = "0" &datestr(2)
End If 
FormateDate = datestr(0) & months & dates
End Function
复制代码

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

作者: apang 时间: 2012-9-20 07:52

Function FormateDate()
   datestr = Split (Date,"/")
   If Len(datestr(1)) = 1 Then
      months = "0"&datestr(1)
   Else
      months = datestr(1)
   End If

   If Len(datestr(2)) = 1 Then
      dates = "0" &datestr(2)
   Else
      dates = datestr(2)
   End If
   FormateDate = datestr(0) & months & dates
End Function 
复制代码

作者: cshiq 时间: 2012-9-20 08:18

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

欢迎光临批处理之家 (http://bbs.bathome.net/)