问一个关于VB系统的问题急！！！！！

来源：百度知道 编辑：UC知道 时间：2024/06/08 18:32:03
我需要一个程序，就是当系统时间的小时数变成0时，系统日期要前进1日
当系统时期到1时，系统月份要前进一月
当系统月份到1日时，系统年份要前进一年
请高手给出代码
二楼的回答那代码没用啊。不能实现
我的意思就是我有一个程序，里面有
Time = Time + 1 / 24
代码，让系统时间前进。我要让它前进到时间变成0时，那系统日期就增加一天
日期到1日时，月份就增加一月
月份到1月是，年数就增加一年

建个Timer1,代码如下。
===================
Option Explicit
Dim fh As Boolean, fd As Boolean, fm As Boolean
Private Sub Form_Load()
Timer1.Interval = 60000
Timer1.Enabled = True
fh = False
fd = False
fm = False
End Sub

Private Sub Timer1_Timer()
If Hour(Now) = 0 And fh = False Then Date = DateAdd("d", 1, Now): fh = True
If Day(Now) = 1 And fd = False Then Date = DateAdd("m", 1, Now): fd = True
If Month(Now) = 1 And fm = False Then Date = DateAdd("yyyy", 1, Now): fm = True
If Hour(Now) = 1 Then fh = False
If Day(Now) = 2 Then fd = False
If Month(Now) = 2 Then fm = False
End Sub

系统时间?你指的是右下角的系统时间吗？
VB可以用time调用系统时间也可以用time更改系统时间。