关于提取时间的一个小问题

Question

兄弟被提时间难到了，请各为指点指点，需要得到的时间格式例 20040801
用
Private Sub Timer1_Timer()
Text15.Text = Date
End Sub
得到时间格式为 2004-8-1
而Text15.Text = Mid(Text15.Text, 1, 4) + Mid(Text15.Text, 6, 2)+Mid(Text15.Text, 8, 2)
如果是2004-10-10这种格式到可以，如果遇到2004-8-10或2004-8-2，这样月份或日不为两位就无法得到了，请教各位可以用其他什么方法嘛，小弟在这里先谢过了，急用呀

Answer 1

Date后面有.Day .Month什么的，自己取，再合并就好了。

Answer 2

抱歉，以为是.Net的了。VB6里好像也有类似的函数，来取得日，月，年。

Answer 3

Private Sub Timer1_Timer()
Text15.Text = format(Date,"yyyy-MM-dd")
End Sub

Answer 4

Private Sub Command1_Click()
Dim s As String
s = Format(Date, "yyyymmdd")
MsgBox sEnd Sub

Answer 5

Private Sub Timer1_Timer()
Text15.Text = format(Date,"yyyy-MM-dd")
End Sub

Answer 6

用Text15.Text = Year(Now) & Month(Now) & Day(Now)出来的数据还是有问题，比如说今天的数据出来就是 2004818，还是无法解决，需要出来的数据为20040818这样地，始终为8位

Answer 7

上面不是已经说了方法了吗，使用format函数Text15.Text = Format(Date,"yyyyMMdd")

Answer 8

Private Sub Timer1_Timer()
   Text15.Text = format(Date,"yyyy-MM-dd")
End Sub

Answer 9

9494
Private Sub Timer1_Timer()
   Text15.Text = format(Date,"yyyyMMdd")
End Sub
就可以了

Answer 10

哈哈哈哈！！！！！！！！！！！！！！！！！楼主真逗，如果
你担心取不到2004-10-10的这种格式，遇见象2004-8-2这样的日子
用
Private Sub Timer1_Timer()
Text15.Text = format(Date,"yyyy-MM-dd")
End Sub
这样取出来的2004-8-2也变成了2004-08-02上面刘银华兄台说半天拉~~哈哈哈逗死我了
如果非要变成20040802这样的就用
Private Sub Timer1_Timer()
Text15.Text = format(Date,"yyyyMMdd")
End Sub
楼主要多试，不要想当然~~~

Answer 11

starsoulxp(星魂.NET) 的答案是准确的!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Answer 12

Private Sub Timer1_Timer()
Text15.Text = Date
End Sub
得到时间格式为 2004-8-1
而Text15.Text = Mid(Text15.Text, 1, 4) + Mid(Text15.Text, 6, 2)+Mid(Text15.Text, 8, 2)
如果是2004-10-10这种格式到可以，如果遇到2004-8-10或2004-8-2，这样月份或日不为两位就无法得到了，请教各位可以用其他什么方法嘛，小弟在这里先谢过了，急用呀第一种方法是用日期格式format()
第二种方法 用函数 year(),month(),day()取