Binaryworld - How to change system Date/Time settings ? ... [ VB -> Windows ]

This example will show you how to Get/Set current system time.

For Quick demo Copy/Paste following code into form1 general declaration

Click here to copy the following block

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 Sub GetLocalTime Lib "kernel32" _
    (lpSystemTime As SYSTEMTIME)

Private Declare Sub GetSystemTime Lib "kernel32" _
    (ByRef lpSystemTime As SYSTEMTIME)

Private Declare Function SetSystemTime Lib "kernel32" _
    (ByRef lpSystemTime As SYSTEMTIME) As Long

Private Sub Form_Load()
  Dim dTimeUTC As Date
  Dim dTimeLocal As Date

  Dim uTime As SYSTEMTIME
  Dim lResult As Long

  ' first get the current UTC (GMT) system time
  GetSystemTime uTime
  With uTime
    dTimeUTC = DateSerial(.wYear, .wMonth, .wDay) + _
        TimeSerial(.wHour, .wMinute, .wSecond)
  End With

  ' get the current system local time
  GetLocalTime uTime
  With uTime
    dTimeLocal = DateSerial(.wYear, .wMonth, .wDay) + _
        TimeSerial(.wHour, .wMinute, .wSecond)
  End With

  s = "Current UTC time : " & Format$(dTimeUTC, "yyyy-mm-dd hh:nn:ss") & vbCrLf
  s = s & "Current Local time : " & Format$(dTimeLocal, "yyyy-mm-dd hh:nn:ss")

  MsgBox s

  ' now add 1 hour and set the time
  dTimeUTC = DateAdd("h", 1, dTimeUTC)
  With uTime
    .wYear = Year(dTimeUTC)
    .wMonth = Month(dTimeUTC)
    .wDay = Day(dTimeUTC)
    .wHour = Hour(dTimeUTC)
    .wMinute = Minute(dTimeUTC)
    .wSecond = Day(dTimeUTC)
  End With

  lResult = SetSystemTime(uTime)

  If lResult <> 0 Then
    MsgBox "Time advanced 1 hour:" & Format$(Now, "yyyy-mm-dd hh:nn:ss"), vbOKOnly, "Advanced"
    ' and reset using VB
    dTime = DateAdd("h", -1, Now)
    Time = dTime
    Date = dTime
    MsgBox "Time reset:" & Format$(Now, "yyyy-mm-dd hh:nn:ss"), vbOKOnly, "Reset"
  Else
    MsgBox "Set system time returned error " & _
        CStr(lResult) & ":" & CStr(Err.LastDllError), vbOKOnly, "Set Failed"
  End If
End Sub