Обратный отсчет до указанной c даты и времени в VBA

Question

time = DateSerial(2020, 10, 13)

Я могу использовать DateSerial и Do-While L oop в VBA, чтобы сделать обратный отсчет до полуночи 13 октября 2020 года с помощью приведенного выше кода. Как мне сделать обратный отсчет до 10 часов утра 13 октября 2020 года?

Спасибо.

Answer 1

Добавьте 10 часов, используя TimeSerial:

time = DateSerial(2020, 10, 13) + TimeSerial(10, 0, 0)