在form_load中修改系统时间!

Question

Private Sub Form_Load()
Dim MyTime
MyTime = #4:35:17 PM#   ' 指定一时间。
Time = MyTime   ' 将系统时间设置为 MyTime 的内容。
End Sub

Answer 1

Dim MyDate
MyDate = #February 12, 1985#   ' 指定某个日期。
Date = MyDate   ' 改变系统日期。

Answer 2

Public Declare Function SetSystemTime Lib "kernel32" Alias "SetSystemTime" (lpSystemTime As SYSTEMTIME) As Long
Public Type SYSTEMTIME
        wYear As Integer
        wMonth As Integer
        wDayOfWeek As Integer
        wDay As Integer
        wHour As Integer
        wMinute As Integer
        wSecond As Integer
        wMilliseconds As Integer
End Type