Как изменить системное время — Basic(Бейсик)

Time = #7:00:00 AM# ' "07:00:00"
Time = #7:00:00 PM# ' "19:00:00" 
Пример того, как можно перевести "часы" на три часа вперед/назад.


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