关于vb的显示日期的小作业

来源：百度知道 编辑：UC知道 时间：2024/09/22 01:04:38
就是要求 当前的年月日时分秒在规定的 六个文本框中显示 知道的朋友请帮忙一下，谢谢~！！！如果有注释，请麻烦也写下
晕，你们说的这些代码是写在哪里啊？ 我要都显示在 文本框里面 比如 年显示在一个文本框 月显示在一个文本框 日显示在一个文本框.............麻烦说具体一点点 我新手.....xiexie !

新建一个时钟控件 把他的interval属性该成1000
Private Sub Timer1_Timer()'在他的timer事件里
Text1.Text = Year(Now)' 年
Text2.Text = Month(Now)'月
Text3.Text = Day(Now)'日
Text4.Text = Hour(Now)'小时
Text5.Text = Minute(Now)'分中
Text6.Text = Second(Now)'秒
End Sub
如果还不懂那你没救了，找我吧QQ429596576

text1.Text=Year(Now())
text2.text=Month(Now())
text3.text=day(now())
text4.text=hour(now())
text5.text=minute(now())
text6.text=second(now())
其中Now()函数是读出系统的当前时间的函数
其他的函数相信就不用解释了

now()
day()
weekday()-1
month()
year()
hour()
minute()
second()
time()
自己一个一个试，年、月、日、.......

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

Private Sub Timer1_Timer()
Text1.Text = Year(Now) ' 年
Text2.Text = Month(Now) '月
Text3.Text = Day(Now) '日
Text4.Text = Hour(Now) '小时
Text5.Text = Minute(Now) '分中
Text6.