vb 显示日期时间

Question

不要用00:00:00 1.1 的方式显示

用1点2分3秒
1月2日

text1中显示时间
text2中显示日期

Answer 1

rtn=format(now,"h点m分s秒")

用下面这个：
Dim d As Date
d = "1-2 1:2:3"'用的时候替换成你要的时间
Text1.Text = Format(d, "h点m分s秒")
Text2.Text = Format(d, "m月d日")本回答被网友采纳

Answer 2

举个例子显示当前的日期时间：
y=year(now)
m=month(now)
d=day(now)
h=hour(now)
mi=minute(now)
se=second(now)
text1.txet=h & "时" & mi & "分" & se & "秒"
text2.text=y & "年" & m & "月" & d & "日"
如果不要年分则text2.text= m & "月" & d & "日"

。。
如果当前时间为2008-10-22 23:19:30
则text1中显示 23点19分30秒
text2中显示 2008年10月22日 或 10月22日

Answer 3

Text1.Text = Hour(Now) & "点" & Minute(Now) & "分" & Second(Now) & "秒"
Text2.Text = Month(Now) & "月" & Day(Now) & "日"

Answer 4

Text1.Text = Format(Now, "h点m分s秒")
Text2.Text = Format(Now, "mm月dd日")