Дата в время. Обратный отчет - VB
Формулировка задачи:
Здравствуйте. Надо сделать обратный отчет. Допустим, соревнования начинаются 30.03.2017. Нужно вычислить сколько осталось Месяцев, дней, часов и секунд.
Спасибо
Решение задачи: «Дата в время. Обратный отчет»
textual
Листинг программы
Sub CountDown()
Dim D1 As Date
Dim D2 As Date
D1 = CDate("30.03.2017")
D2 = Now
Debug.Print "До начала соревнований осталось: "; _
DateDiff("d", D2, D1); " дней "; _
(DateDiff("h", D2, D1) Mod 24); " часов "; _
(DateDiff("n", D2, D1) Mod 60); " минут "; _
(DateDiff("s", D2, D1) Mod 60); " секунд"
End Sub