1 2 3 4 5 6 7 | 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 |