Excel VBA Дата Время Добавить автоматически

Question

У меня есть следующее значение в Excel Sheet.

A1 = 2018-01-01 00:00:00
A2 = 2018-01-07 23:59:59

Я хочу изменить значения автоматически, скажем, ежедневно на 1AM. Изменения должны быть такими:
с A1 = 2018-01-01 00:00:00 до A1 = 2018-01-08 00:00:00 - следующий день после значения A2 и с A2 - плюс 7 дней с A1. Итак, это должно быть A2 = 2018-01-15 23:59:59.

Возможно ли это сделать? Пожалуйста, совет.
Спасибо.

Answer 1

В VBA вы можете использовать функцию DateAdd . Например:

NewDate = DateAdd("d", 7, "2018-01-01 00:00:00")

Чтобы запускать его каждые 1:00, поместите его в процедуру Sub (например, my_Procedure) и используйте метод Application.OnTime , чтобы запланировать его:

Application.OnTime TimeValue("1:00:00"), "my_Procedure", , False