vbs中处理日期格式，请高人指点

csj 发表于 2010-8-20 10:48:00

例如date返回的是2010-8-20日，现在我想要08-20-2010，怎么弄啊？

xhhuang1618 发表于 2010-8-20 11:03:23

回复 1# 的帖子

msgbox DatePart("m",date)&"-"&DatePart("d",date)&"-"&DatePart("yyyy",date)

haven6 发表于 2010-8-20 11:16:09

上面的语句很好。给你提供更详细步骤
方法一
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:56

回复 3# 的帖子

大哥们看清楚了,我的日期要补0的啊,比如8月3号就是03-08-2010,

xiatongbing 发表于 2010-8-27 12:38:45

加个判断，如果<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:12

笨方法：直接改系统的日期格式，在用Date函数就行，哈~

474241558 发表于 2010-8-27 15:59:04

回复 1# 的帖子

最笨的方法就是把年月日取出，然后在月日处理过程中加判断。
不足两位的加0。然后用字符串连接运算符连接起来。

TIB 发表于 2010-8-27 16:58:19

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:09

我觉得６楼的朋友“直接改系统的日期格式，在用Date函数就行”是最简单的方法，哈哈！

sspku 发表于 2010-11-19 16:52:23

最笨的方法就是自己拼接字符串

页: [1]

51Testing软件测试论坛 's Archiver