如何在程序中修改机器的时间

Question

SetSystemTime
The SetSystemTime function sets the current system time and date. The system time is expressed in Coordinated Universal Time (UTC). BOOL SetSystemTime(
  CONST SYSTEMTIME *lpSystemTime   // address of system time to set
);
 
Parameters
lpSystemTime 
Pointer to a SYSTEMTIME structure that contains the current system date and time. 
The wDayOfWeek member of the SYSTEMTIME structure is ignored. Return Values
If the function succeeds, the return value is nonzero

Answer 1

Private Sub Command1_Click()
Dim a As Date
a = Time
Time = "12:34:56"
Print a
End Sub

Answer 2

Private Sub Command1_Click()
Dim a As Date
Time = "12:34:56"
a = Time
Print a
End Sub

Answer 3

本示例使用Time语句来设置系统时间。
print time
Dim MyTimeMy
Time=#4:35:17PM# '指定一时间。
Time=MyTime '将系统时间设置为MyTime的内容。
print time