Дата в время. Обратный отчет - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д