如何获得系统时间?

[liuyi3000]

如何获得系统时间?

[liuyi3000]

cuizm(射天狼)
自己运行,像系统的吗？

对就是要他自己运行

[Gelim]

now()

[Gelim]

外加一个TIMER控件就OK

[liuyi3000]

我要的是象右下方系统时间一样的自动会走的

[felix]

time函数即可

[sysmaster]

用now()

eg：

Private Sub Form_Load()
Label1.Caption = Now()
End Sub

[easydone]

statusbar控件中可以设的。

[守城小轩]

print now()

[liuyi3000]

我想让系统时间自己运行
上面的只能是得到时间不能让他自己运行啊

[c55]

用timer组件自动刷新行吗
我是新手，这是我自己想的．
不知道有没有其他更好的办法

[射天狼]

自己运行,像系统的吗？

[射天狼]

Option Explicit

Private Sub Form_Load()
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
Label1.Caption = Format(Time, "hh:mm:ss")
End Sub

[bluelang]

Private Sub Form_Load()
Timer1.Interval = 1000
Timer1.enable=true
End Sub

Private Sub Timer1_Timer()
Label1.Caption = Format(Time, "hh:mm:ss")
End Sub

[liuyi3000]

cuizm(射天狼)
自己运行,像系统的吗？

对就是要他自己运行

[viena]

Gelim(Gelim) 都说了，now()外加一个TIMER控件就OK。
加控件Timer1、Label1
比如Timer1的Interval属性设为1000(1秒)
Private Sub Timer1_Timer()
Label1.Caption=Now
End Sub

[viena]

now包括日期，如果只要时间Label1.Caption=Time

[HELLOIT81]

大家都说过了
now()
加上timer
Private Sub Form_Load()
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
Label1.Caption = Format(Time, "hh:mm:ss")
End Sub
如果是statusbar 可以在属性中直接设置

[awangxx]

(接楼上的)
如果想添加statusbar控件，首先要添加Microsoft Windows Common Controls 6.0部件。statusbar可使用属性窗口的自定义来设置属性，或用鼠标右键单击statusbar控件。进行上面的操作后，就可出现statusbar的属性页对话框。然后可以单击窗格选项卡，在单击插入窗格按钮，设置样式列表框。5-sbrtime是显示系统时间，6-sbrdate是显示系统日期。

[coolboy0000love]

day()返回日期，取值范围为 1 至 31。
time()返回表示当前系统时间的“日期”子类型的“变体”。
now()返回计算机的当前系统日期和时间。
Date 函数 返回当前系统日期。