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

disel
1
2
3
4
5
6
7
8
9
10
11
12
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

Похожие записи/страницы:

Leave a Comment