• 全部

如何获得系统时间?

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

社区成员

19.7w+

社区内容

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