Text1.Text = Format(Date, "yyyy年mm月dd日") & Format(Time, "hh时mm分ss秒")
温馨提示：答案为网友推荐，仅供参考
第1个回答 2015-07-13
可以用Now(),不过只是获取当前时间,
如果要与系统时间同步,还需要用个定时器Timer()来执行获取系统时间：
Print Date; "日期"
Print Time; "时间"
Print Now; "日期和日间"
Print Format(Now, "yyyy年mm月dd日 hh时mm分ss秒")
Print Year(Now); "年"
Print Month(Now); "月"
Print Day(Now); "日"
Print Hour(Now); "时"
Print Minute(Now); "分"
Print Second(Now); "秒"
private sub form_load()
text1.text=year(now)
text2.text=month(now)
text3.text=day(now)
text4.text=hour(now)
text5.text=minute(now)
text6.text=second(now)
end sub.
如果要与系统时间同步,还需要用个定时器Timer()来执行获取系统时间：
Print Date; "日期"
Print Time; "时间"
Print Now; "日期和日间"
Print Format(Now, "yyyy年mm月dd日 hh时mm分ss秒")
Print Year(Now); "年"
Print Month(Now); "月"
Print Day(Now); "日"
Print Hour(Now); "时"
Print Minute(Now); "分"
Print Second(Now); "秒"
private sub form_load()
text1.text=year(now)
text2.text=month(now)
text3.text=day(now)
text4.text=hour(now)
text5.text=minute(now)
text6.text=second(now)
end sub.
第2个回答 2010-07-18
日期:Date
时间:Time
日期时间: Now
如:
Private Sub Command1_Click()
Print Now
End Sub本回答被提问者采纳
时间:Time
日期时间: Now
如:
Private Sub Command1_Click()
Print Now
End Sub本回答被提问者采纳
第3个回答 2010-07-18
time是现时时间DATE是当天曰期,你刚入门吧这简单都不会呀
第4个回答 2010-07-18
vb中不知道，我用的是VC，这里和楼主说下，有很多语句似乎两种语言是一样的
CTIME a;
a.GetCurrentTime();
CTIME a;
a.GetCurrentTime();
相似回答