VB中系统日期怎么改？

Question

我看了好几个发帖。还是不清楚回答。

Answer 1

Private Sub Form_Load()
Date = "2009-2-09"
End Sub

Answer 2

Private Sub Command1_Click()
    Dim MyDate
    MyDate = #2/12/2005#           ' 指定某个日期。
    Date = MyDate
End Sub

Answer 3

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 SetLocalTime Lib "kernel32" (lpSystemTime As SYSTEMTIME) As Long'以下代码放入过程或函数中
    Dim lpSystemTime As SYSTEMTIME
    dim sNewTime as string    sNewTime = "2009-02-11 12:12:12"
    lpSystemTime.wYear = Year(sNewTime)
    lpSystemTime.wMonth = Month(sNewTime)
    lpSystemTime.wDayOfWeek = -1
    lpSystemTime.wDay = Day(sNewTime)
    lpSystemTime.wHour = Hour(sNewTime)
    lpSystemTime.wMinute = Minute(sNewTime)
    lpSystemTime.wSecond = Second(sNewTime)
    lpSystemTime.wMilliseconds = 0
    'set   the   new   time
    SetLocalTime lpSystemTime

Answer 4

直接用Date="2007-1-1"就可以改掉了.VB6调试通过.