Как изменить системную дату — Visual Basic(Бейсик)

Date = #9/8/04# ' "08.09.04"
Пример того, как можно перевести "часы" на день вперед/назад. Один день, конечно же, используется только в качестве примера.

Private Sub SetSystemDate()
    Date = Date + 1 '-1
    'Date = DateAdd("d", 1, Date) 'DateAdd("d", -1, Date)
End Sub