标题: [问题求助] 这个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://bathome.net./) |
Powered by Discuz! 7.2 |