51Testing软件测试论坛

标题: 获取日期时间的时候少了个0,怎么办啊? [打印本页]

作者: powell505 时间: 2009-3-11 16:57
标题: 获取日期时间的时候少了个0,怎么办啊?
用date函数获取当前日期,结果为"2009-3-11"
但是从表格中取出来的时间是"2009-03-11",不好比较啊!
怎么才能使他们格式一致啊?
谢谢!

作者: powell505 时间: 2009-3-11 17:47
已经用split函数解决,各位如果有更好的办法,请不吝赐教,谢谢各位大虾!

作者: angelna 时间: 2009-3-11 21:04
好像cdata函数可以转换成相应的日期格式

作者: zhang_yajin 时间: 2009-3-11 21:18
也可以用formatdata(好像是)把两个日期都强制转化成同一种格式来比较

作者: ls_721521 时间: 2009-3-12 09:42
正则也行吧

作者: lix43420 时间: 2009-3-12 10:01

原帖由 powell505 于 2009-3-11 16:57 发表
用date函数获取当前日期,结果为"2009-3-11"
但是从表格中取出来的时间是"2009-03-11",不好比较啊!
怎么才能使他们格式一致啊?
谢谢!

不用正则可以通过以下方法:
Dim datetime1,datetime2
datetime1="2009-3-11"
datetime1=split(datetime1,"-",-1,1)
datetime2=cstr(datetime1(0))+"-"+right("00"+cstr(datetime1(1)),2)+"-"+right("00"+cstr(datetime1(2)),2)
msgbox(datetime2) 'return "2009-03-11"
是不是觉得很笨,还是建议正则吧,好好学习一下,一起努力!!!

作者: powell505 时间: 2009-3-12 12:49
呵呵,多谢楼上几位大虾指点,学习了,

作者: wensy 时间: 2009-3-14 00:44
正则如何去做呢，有人写一下么

作者: ls_721521 时间: 2009-4-30 11:14
"2009-(3|03)-11"

作者: lijinshui 时间: 2009-4-30 12:25
date1 = FormatDateTime(Date, 2)
DataTable("AA", dtLocalSheet) = date1
msgbox date1

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