51Testing软件测试论坛

标题: vbs中处理日期格式，请高人指点 [打印本页]

作者: csj 时间: 2010-8-20 10:48
标题: vbs中处理日期格式，请高人指点
例如date返回的是2010-8-20日，现在我想要08-20-2010，怎么弄啊？

作者: xhhuang1618 时间: 2010-8-20 11:03
标题: 回复 1# 的帖子
msgbox DatePart("m",date)&"-"&DatePart("d",date)&"-"&DatePart("yyyy",date)

作者: haven6 时间: 2010-8-20 11:16
上面的语句很好。给你提供更详细步骤
方法一
Dim datevar,a,b,c,d
datevar="2010-8-20"
a=year(datevar)
'msgbox a
b=month(datevar)
'msgbox b
c=day(datevar)
'msgbox c
d= b&"-"&c&"-"&a
msgbox d
方法二
Dim datevar
datevar="2010-8-20"
msgbox DatePart("m",datevar)&"-"&DatePart("d",datevar)&"-"&DatePart("yyyy",datevar)

作者: csj 时间: 2010-8-27 11:44
标题: 回复 3# 的帖子
大哥们看清楚了,我的日期要补0的啊,比如8月3号就是03-08-2010,

作者: xiatongbing 时间: 2010-8-27 12:38
加个判断，如果<10就用字符的方式加个0...

datevar="2010-8-20"
a=year(datevar)
if a <10 then
a = "0"&a
end if
msgbox a

唉，土法炼钢

作者: kukulsz 时间: 2010-8-27 15:21
笨方法：直接改系统的日期格式，在用Date函数就行，哈~

作者: 474241558 时间: 2010-8-27 15:59
标题: 回复 1# 的帖子
最笨的方法就是把年月日取出，然后在月日处理过程中加判断。
不足两位的加0。然后用字符串连接运算符连接起来。

作者: TIB 时间: 2010-8-27 16:58
dim dayvalue, monthvalue , yearvalue
dayvalue =right("0" &day(now),2)
msgbox "dayvalue =" &dayvalue

monthvalue =right("0" &month(now),2)
msgbox "monthvalue =" & monthvalue
yearvalue=right(year(now),2)
msgbox "yearvalue =" & yearvalue

作者: vernzhang1980 时间: 2010-8-30 11:24
我觉得６楼的朋友“直接改系统的日期格式，在用Date函数就行”是最简单的方法，哈哈！

作者: sspku 时间: 2010-11-19 16:52
最笨的方法就是自己拼接字符串

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)