如何获得系统时间?

liuyi3000 2003-10-07 08:50:46
如何获得系统时间?
...全文
133 点赞 收藏 19
写回复
19 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
coolboy0000love 2003-10-08
day()返回日期,取值范围为 1 至 31。
time()返回表示当前系统时间的“日期”子类型的“变体”。
now()返回计算机的当前系统日期和时间。
Date 函数 返回当前系统日期。
回复
awangxx 2003-10-08
(接楼上的)
如果想添加statusbar控件,首先要添加Microsoft Windows Common Controls 6.0部件。statusbar可使用属性窗口的自定义来设置属性,或用鼠标右键单击statusbar控件。进行上面的操作后,就可出现statusbar的属性页对话框。然后可以单击窗格选项卡,在单击插入窗格按钮,设置样式列表框。5-sbrtime是显示系统时间,6-sbrdate是显示系统日期。
回复
HELLOIT81 2003-10-08
大家都说过了
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 可以在属性中直接设置
回复
viena 2003-10-08
now包括日期,如果只要时间Label1.Caption=Time
回复
viena 2003-10-08
Gelim(Gelim) 都说了,now()外加一个TIMER控件就OK。
加控件Timer1、Label1
比如Timer1的Interval属性设为1000(1秒)
Private Sub Timer1_Timer()
Label1.Caption=Now
End Sub
回复
liuyi3000 2003-10-08
cuizm(射天狼)
自己运行,像系统的吗?

对就是要他自己运行
回复
bluelang 2003-10-07
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

回复
射天狼 2003-10-07
Option Explicit

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

Private Sub Timer1_Timer()
Label1.Caption = Format(Time, "hh:mm:ss")
End Sub
回复
射天狼 2003-10-07
自己运行,像系统的吗?
回复
c55 2003-10-07
用timer组件自动刷新行吗
我是新手,这是我自己想的.
不知道有没有其他更好的办法
回复
liuyi3000 2003-10-07
我想让系统时间自己运行
上面的只能是得到时间不能让他自己运行啊
回复
守城小轩 2003-10-07
print now()
回复
easydone 2003-10-07
statusbar控件中可以设的。
回复
sysmaster 2003-10-07
用now()

eg:

Private Sub Form_Load()
Label1.Caption = Now()
End Sub
回复
felix 2003-10-07
time函数即可
回复
liuyi3000 2003-10-07
我要的是象右下方系统时间一样的自动会走的
回复
Gelim 2003-10-07
外加一个TIMER控件就OK
回复
Gelim 2003-10-07
now()
回复
liuyi3000 2003-10-07
cuizm(射天狼)
自己运行,像系统的吗?

对就是要他自己运行
回复
发帖
VB基础类
创建于2007-09-28

7476

社区成员

VB 基础类
申请成为版主
帖子事件
创建了帖子
2003-10-07 08:50
社区公告
暂无公告