请问怎样修改系统时间

Question

Private Sub Command1_Click()
    Date = "2002-7-8" '设置为2002-7-8
End Sub

Answer 1

返回包含系统日期的 Variant (Date)。语法Date说明为了设置系统日期，请使用 Date 语句。

Answer 2

通过date,和time系统变量,直接进行设置.

Answer 3

Private Declare Function SetSystemTime Lib "kernel32" Alias "SetSystemTime" (lpSystemTime As SYSTEMTIME) As Long
Private 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

Answer 4

Private Sub Command1_Click()
    Date = '输入日期
End Sub

Answer 5

虽然别人也写了，但我觉得也是setsystemtime