vb中怎样把当前系统日期和时间分别赋给两个text文本框内，通过一个按钮？

来源：百度知道 编辑：UC知道 时间：2024/05/26 14:48:51
注意在文本框内显示的格式:!
帮忙在标签里做一个今天是 年 月 日,当前时间为 时 分 秒!,,,谢谢

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

Private Sub Timer1_Timer()
Text1 = Date$
Text2 = Time$
End Sub

<调试过的>
'-------复制下面两段代码既可，在窗体上加上2个TextBox控件和一个Timer控件
Private Sub Form_Load()
Timer1.Interval = 10
End Sub

Private Sub Timer1_Timer()
Text1.Text = Date
Text2.Text = Time
End Sub

Text1.Text = Format(Now, "yyyy-mm-dd")
Text2.Text = Format(Now, "hh:mm:ss")