Office中国论坛/Access中国论坛

标题: 如何在文本框中显示当前时间日期加时间秒针 [打印本页]

作者: gxy1000 时间: 2011-2-17 12:19
标题: 如何在文本框中显示当前时间日期加时间秒针
如何在文本框中显示当前时间日期加时间秒针

作者: roych 时间: 2011-2-17 13:12
设置格式为“日期型/长时间”试试？

作者: xie62 时间: 2011-2-19 08:34
在窗体中添加一个文本框,在代码窗口中输入代码:
private sub form_load()
me.text0==Format(Now(),"yyyy\年m\月d""日 ""aaaa ampm hh:nn:ss")’ text0: 文本框名称
end sub
private sub form_timer()
me.timerinterval=1000
form_load
end sub
注:在窗体属性中将计时器间隔设为1000

作者: gxy1000 时间: 2011-2-20 22:07
回复 xie62 的帖子

谢谢！！！谢谢

作者: aqlir 时间: 2011-7-11 20:17
回复 gxy1000 的帖子

学习

作者: 雷鸣 时间: 2012-1-21 18:07
又学了一招

作者: bbpst 时间: 2012-1-30 10:11
3楼的代码好象有点问题,稍作修改:

Private Sub form_load()
Me.TimerInterval = 1000
Me.Text0 = Format(Now(), "yyyy\年m\月d""日 ""aaaa ampm hh:nn:ss") ' text0: 文本框名称
End Sub
Private Sub form_timer()
Me.TimerInterval = 1000
form_load
End Sub

作者: andymark 时间: 2012-2-1 12:08

Private Sub form_load()
Me.TimerInterval = 1000
End Sub
Private Sub form_timer()
Me.Text0 = Format(Now(), "yyyy\年m\月d""日 ""aaaa ampm hh:nn:ss") ' text0: 文本框名称
End Sub

复制代码

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)