23
Январь
2009
Как установить новую дату и время на компьютере?
Как установить новую дату и время на компьютере?
Option Explicit Private Declare Function SetLocalTime Lib "kernel32.dll" _ (lpSystemTime As SystemTime) As Long 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 Dim SetTime As SystemTime Dim RetVal As Long Private Sub SetNewTime _ (NewHour As Integer, NewMinute As Integer, NewSecond As Integer) SetTime.wHour = NewHour SetTime.wMinute = NewMinute SetTime.wSecond = NewSecond SetTime.wMilliseconds = 0 SetTime.wDay = Day(Date) 'Чтобы установить и дату снимите коментарий 'SetTime.wDay = 06 SetTime.wMonth = Month(Date) 'SetTime.wMonth = 8 SetTime.wYear = Year(Date) 'SetTime.wYear = 2006 RetVal = SetLocalTime(SetTime) End Sub Private Sub Command1_Click() Call SetNewTime(19, 42, 11) End Sub