Dim bakname As String, aa As String, bb As String, cc As String, dd As String, ee As String aa = Right(Year(Now()), 2) bb = IIf(Len(Month(Now())) = 1, "0" & Month(Now()), Month(Now())) cc = IIf(Len(Day(Now())) = 1, "0" & Day(Now()), Day(Now())) dd = IIf(Len(Hour(Time)) = 1, "0" & Hour(Time), Hour(Time)) ee = IIf(Len(Minute(Time)) = 1, "0" & Minute(Time), Minute(Time)) bakname = aa & "-" & bb & "-" & cc & "-" & dd & "-" & ee
TO Gelim(Gelim):如何用FORMAT呢????
//取出来的时间是 11/10/2003 相当于11日/10月/2003年 //如何将把它转化为 2003-10-11的时间格式呢??用VB来做的 既然是年-月-日,就应该用:Format(mydate, "yyyy-mm-dd") Dim mydate As Date mydate = Now mydate = Format(mydate, "yyyy-mm-dd") MsgBox mydate//楼上方法也可以呀,但时间不对呀,因为它得出是结果是2003-11-10 把你的代码贴上
aa = Right(Year(Now()), 2)
bb = IIf(Len(Month(Now())) = 1, "0" & Month(Now()), Month(Now()))
cc = IIf(Len(Day(Now())) = 1, "0" & Day(Now()), Day(Now()))
dd = IIf(Len(Hour(Time)) = 1, "0" & Hour(Time), Hour(Time))
ee = IIf(Len(Minute(Time)) = 1, "0" & Minute(Time), Minute(Time))
bakname = aa & "-" & bb & "-" & cc & "-" & dd & "-" & ee
//如何将把它转化为 2003-10-11的时间格式呢??用VB来做的
既然是年-月-日,就应该用:Format(mydate, "yyyy-mm-dd") Dim mydate As Date
mydate = Now
mydate = Format(mydate, "yyyy-mm-dd")
MsgBox mydate//楼上方法也可以呀,但时间不对呀,因为它得出是结果是2003-11-10
把你的代码贴上
Format(mydate, "yyyy-dd-mm") 不就行了 已经测试过了 哈哈