Board logo

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

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

  1. Function FormateDate()
  2. datestr = Split (Date,"/")
  3. If Len(datestr(1)) = 1 Then
  4. months = "0"&datestr(1)
  5. End If
  6. If Len(datestr(2)) = 1 Then
  7. dates = "0" &datestr(2)
  8. End If
  9. FormateDate = datestr(0) & months & dates
  10. End Function
复制代码
输出当前年四位数、月日各两位数格式的数字,如“20120920”
现在问题是在1-9日可以正常输出,在10-31日,只输出年、月数字,上例的话,它只输出“201209”。
请行家帮忙修正一下。
作者: apang    时间: 2012-9-20 07:52

  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.    If Len(datestr(2)) = 1 Then
  9.       dates = "0" &datestr(2)
  10.    Else
  11.       dates = datestr(2)
  12.    End If
  13.    FormateDate = datestr(0) & months & dates
  14. End Function
复制代码

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

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




欢迎光临 批处理之家 (http://bathome.net./) Powered by Discuz! 7.2