Дата в время. Обратный отчет - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

13   голосов , оценка 4.231 из 5
Похожие ответы