如何在文本框中显示当前时间日期加时间秒针

gxy1000

如何在文本框中显示当前时间日期加时间秒针

roych

设置格式为“日期型/长时间”试试？

xie62

在窗体中添加一个文本框,在代码窗口中输入代码:
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

回复 xie62 的帖子

谢谢！！！谢谢

aqlir

回复 gxy1000 的帖子

学习

雷鸣

又学了一招

bbpst

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

1. 
   
2. Private Sub form_load()
   
3.   Me.TimerInterval = 1000
   
4. End Sub
   
5. 
   
6. Private Sub form_timer()
   
7. 
   
8.   Me.Text0 = Format(Now(), "yyyy\年m\月d""日 ""aaaa ampm hh:nn:ss") ' text0: 文本框名称
   
9. 
   
10. End Sub
    

复制代码