系统日期修改器

来源：百度知道 编辑：UC知道 时间：2024/06/04 04:32:48
用VB编写 要求有源程序和使用说明 是我们考核的题目 谢谢各位大侠!

Private Sub Form_Load()
Dim MyDate, MyTime
MyDate = #10/22/2006# ' 指定某个日期。
MyTime = #9:25:00 AM# '指定时间
Date = MyDate ' 改变系统日期。
Time = MyTime '改变系统时间
End Sub
'如果想在运行过程中再自行修改日期、时间，可以加TEXT控件什么的，自己做吧