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

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

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

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

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

vernzhang1980 · 发表于 2010-8-30 11:24:09

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

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

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

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

kukulsz · 发表于 2010-8-27 15:21:12

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

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

唉，土法炼钢

csj · 发表于 2010-8-27 11:44:56

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

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)

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

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

		自动登录	找回密码
密码			(注-册)加入51Testing

[原创] vbs中处理日期格式，请高人指点

回复 1# 的帖子

回复 3# 的帖子

回复 1# 的帖子

站长推荐 /1