Question

帮忙写一个很简单的查询当前时间和日期的vb代码，谢谢

帮忙写一个很简单的查询当前时间和日期的vb代码，谢谢
要与电脑上时间一样
不用动
我已经画好了

Answer 1

直接用时间函数now
Private Sub Command1_Click()
Label2.Caption = "当前时间为：" & Now
End Sub
这个是最简单的
你要哪种格式都可以用format函数来控制输出。如：
Private Sub Command1_Click()
Label2.Caption = "当前详细时间为" & Format(Now, "yyyy年mm月dd日hh时mm分ss秒")
End Sub
买本书看看，自己多试试

Answer 2

label2.caption=date & " " & time

Answer 3

调用时间函数就OK了。

Answer 4

msgbox now '直接返回系统时间
请问LZ是这个意思吗?

Answer 5

Now 函数
返回一个 Variant (Date)，根据计算机系统设置的日期和时间来指定日期和时间
调用方法:
d = Now

如果时间不动:
Private Sub Command1_Click()
Label2.Caption = Now
'或
'Label2.Caption = Format(Now, "yyyy年mm月dd日hh时mm分ss秒")
End Sub

如果时间动:加个Timer控件，设置Timer1.Interval = 1000（即1000毫秒即1秒，每秒钟时间更新一下），将与系统时间同步：
Private Sub Timer1_Timer()
Label2.Caption = Now
'或
'Label2.Caption = Format(Now, "yyyy年mm月dd日hh时mm分ss秒")
End Sub