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