Question

帮忙设计一个最简单的VB程序（查询当前时间和日期的）要代码

当前时间和日期查询，和电脑上的同步，不用动谢谢了
我已经画好了
帮忙写一下代码，谢谢

Answer 1

哪有那么麻烦啊？这样就可以了！我先在电脑上运行了的。

两个command,(分别是显示和清除）一个label来显示时间，一个timer.

属性设置：
label1清除内容，钟表的interva设为1000，表示1秒，enadled设为false表示为不可用。

Private Sub Command1_Click()
Timer1.Enabled = True
Label1.Caption = Date + Time
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
Label1.Caption = ""
End Sub

Private Sub Timer1_Timer()
Label1.Caption = Date + Time
End Sub

共三个命令。

Answer 2

Private Sub Command1_Click()
label1.caption=date '显示日期
label1.caption=time'显示时间
End Sub

Answer 3

简单显示：
Private Sub Command1_Click()
Label1.Caption = Now
End Sub

复杂点：
Private Sub Command1_Click()
Label1.Caption = "当前日期为：" & Year(Date) & "年" & Month(Date) & "月" & Day(Date) & "日" & vbCrLf & "当前时间为：" & Time
End Sub

Answer 4

Private Sub Command1_Click()
Label1.Caption = "当前日期为：" & Date
Label1.Caption = Label1.Caption & vbCrLf & "当前时间为：" & Time
End Sub