Как изменить системное время?
Категория: Basic
2012-07-17 14:46:14
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
Поделиться: