求！把当前系统日期时间（年月日时分秒）转换为字符串的VB代码

Question

例如2007年10月25日10点30分40秒 转换为（20071025103040）的形式，请高手指教！
请问aaronchi
Cdtoc= cstr(year(datetime)) & cstr(month(datetime)) & cstr(day(datetime)) & ?????????
年月日有了，后面的时分秒是什么那！

Answer 1

在窗体上建一个按钮一个文本框，然后把下面的这段代码复制到按钮代码里，单击按钮就行了

a = CStr(Now)
b = "-: "

For i = 1 To Len(b)
a = Replace(a, Mid(b, i, 1), "")
Next

Text1.Text = a

Answer 2

呵呵.. 你这个可能不是标准的时间格式了,可能已经是字符串的形式了...我给你个好玩的方法:

Dim a$, b$
a = "2007年10月25日10点30分40秒"
b = "年月日点分秒"
For i = 1 To Len(b)
a = Replace(a, Mid(b, i, 1), "")
Next
Print a

Answer 3

写一个函数，以后需要的话用这个函数就可以了

Function Cdtoc(datetime)
Cdtoc= cstr(year(datetime)) & cstr(month(datetime)) & .....
end function本回答被提问者采纳

Answer 4

试一下数据类型的强制转换

Answer 5

hour
minute
second