Microsoft KB Archive/154009

= How To Set the System Time =

Article ID: 154009

Article Last Modified on 7/13/2004

-

APPLIES TO


 * Microsoft Visual Basic 5.0 Learning Edition
 * Microsoft Visual Basic 6.0 Learning Edition
 * Microsoft Visual Basic 5.0 Professional Edition
 * Microsoft Visual Basic 6.0 Professional Edition
 * Microsoft Visual Basic 5.0 Enterprise Edition
 * Microsoft Visual Basic 6.0 Enterprise Edition
 * Microsoft Visual Basic 4.0 Standard Edition
 * Microsoft Visual Basic 4.0 Professional Edition
 * Microsoft Visual Basic 4.0 32-Bit Enterprise Edition

-



This article was previously published under Q154009



SUMMARY
The Win32 SetSystemTime API function offers the functionality to change the system time on the local machine. The change will take place immediately without the need for a reboot. This article illustrates how to create a sample project that sets the system time using the SetSystemTime function. The SetSystemTime function sets the system time based on coordinated universal time (UTC). UTC-based time is loosely defined as the current date and time of day in Greenwich, England.



MORE INFORMATION
 Start a new project in Visual Basic. Form1 is created by default.  Add the following code to the General Declarations section of Form1: 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 = 1996 lpSystemTime.wMonth = 6 lpSystemTime.wDayOfWeek = 5 lpSystemTime.wDay = 28 lpSystemTime.wHour = 9 lpSystemTime.wMinute = 42 lpSystemTime.wSecond = 0 lpSystemTime.wMilliseconds = 0 lReturn = SetSystemTime(lpSystemTime) End Sub

 Run the project by pressing the F5 key. Check the system time and date in the Control Panel. The time should have changed to reflect the UTC-based time settings used in the sample.

