Как изменить системное время?

code: #vba
Time = #7:00:00 AM# ' "07:00:00"
Time = #7:00:00 PM# ' "19:00:00" 

Пример того, как можно перевести "часы" на три часа вперед/назад.

code: #vba
Private Sub SetSystemTime()
    Time = Time + (1 / 24 * 3)   '- (1 / 24 * 3)
    'Time = DateAdd("h", 3, Now) 'DateAdd("h", -3, Now)
    'и т.д.

    CreateObject("Shell.Application").SetTime 'просто демонстрация
End Sub
Поделиться:

Похожие статьи: