怎样在VB中改变本机上的系统时间？

Question

这样改变时间 
Date = "2000-1-1"
Time="10:22:22"

Answer 1

SetLocalTime 
具体参数自己找一下

Answer 2

用Date函数和Time函数，MSDN里都有说明。

Answer 3

Option Explicit      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      Private Declare Function SetSystemTime Lib "kernel32" (lpSystemTime _
        As SYSTEMTIME) As Long      Private Sub Form_Load()
        Dim lReturn As Long
        Dim lpSystemTime As SYSTEMTIME
        lpSystemTime.wYear = 1980
        lpSystemTime.wMonth = 4
        lpSystemTime.wDay = 28
        lpSystemTime.wHour = 8
        lpSystemTime.wMinute = 8
        lpSystemTime.wSecond = 0
        lpSystemTime.wMilliseconds = 0
        lReturn = SetSystemTime(lpSystemTime)
      End Sub

Answer 4

搞不定了就用SHELL()＊＊＊＊＊
打工好辛苦
＊＊＊＊＊
钞票好难赚
＊＊＊＊＊
编程好伤神
＊＊＊＊＊
光阴好易混
＊＊＊＊＊