Visual Basic FAQ

Как установить новую дату и время на компьютере?

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

Запись опубликована on 23.01.2009 at 9:00 и размещена в рубрике: Windows. Вы можете читать комментарии, используя RSS-ленту. Вы можете оставить комментарий, или отправить трекбек с Вашего сайта.