Как установить системное время в vba excel

Функция времени

Возвращает Variant (Date), указывая текущее системное время.

Синтаксис

Time

Примечания

Чтобы установить время системы, используйте заявление Time.

Пример

В этом примере показана функция Time, возвращающая текущее системное время.

См. также

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Как установить системное время в vba excel

ICQ: 234826

Ответ на вопрос находится на VBNet! Раздел Библиотека кодов >>> Информация о компьютере

Вот чё там написано:

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

Данный пример установит новое время на компьютере. Для установления новой даты на компьютере, снимите комментарии в функции SetNewTime.

Одна проблема: после выполнения кода, не происходит обновления времени в SystemTray. Если кто знает, как обновить время в SysTray, то напишите ведущему раздела.

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

Private Declare Function SetLocalTime Lib "kernel32.dll" (lpSystemTime As SystemTime) As Long

Public Sub SetNewTime(NewHour As Integer, NewMinute As Integer, NewSecond As Integer)

Dim SetTime As SystemTime

Dim RetVal As Long

Private Sub Command1_Click()

Call SetNewTime(13, 20, 50)

Для обновления времени можно отправить сообщение окну:

Private Declare Function SendMessage Lib "user32" _
Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, lParam As Any) As Long
Private Const WM_TIMECHANGE = &H1E
Private Const HWND_BROADCAST = &HFFFF&
——

Вставь после вызова своей функции:

SendMessage HWND_BROADCAST, WM_TIMECHANGE, 0, 0
——

Вроде должно работать, только, например, при выставлении значения "час","мин",0 (т.е. 0 секунд) время устанавливается на секунду меньше и будет "час", "мин-1",59.

ICQ: 155153916

Вы бы еще системный таймер программировать полезли.

Date = Format("01.01.02", "Short Date")

ICQ: 155153916

SAVok! Tak ob etom wed i bil wopros ! Pochitaj wnimatelno! "Как при помощи VB установить другое системное время?" Po moemu otwet udowletworitelnij.

black admin

ICQ: 261779681

black admin

ICQ: 261779681

DAN Много и красиво, но не то

demon Все работает, почти

SAVok Все гениальное просто. Сенкью вери мач

Ссылка на основную публикацию