Дата в время. Обратный отчет

@Ильнарр · Регистрация: 06.04.2015

Author24 — интернет-сервис помощи студентам

Здравствуйте. Надо сделать обратный отчет. Допустим, соревнования начинаются 30.03.2017. Нужно вычислить сколько осталось Месяцев, дней, часов и секунд.

Спасибо

@Pro_grammer · 11.02.2017, 17:41

Сообщение от Ильнарр

сколько осталось Месяцев, дней, часов и секунд.

DateDiff
Описание

Кликните здесь для просмотра всего текста

Функция возвращает число заданных интервалов времени между двумя указанными датами.
Синтаксис
DateDif(Interval, Date1, Date2[, FirstDayOfWeek[, FirstDayOfYear])
Параметры
Interval - значение типа String, обозначает период, применяемый для вычисления разницы между датами.
Date1, Date2 - значения типа VarType (Date), представляют собой даты, разницу между которыми необходимо вычислить.
FirstDayOfWeek - указывает первый день недели, по умолчанию - vbSunday (1 - воскресенье).
FirstWeekOfYear - указывает первую неделю года, по умолчанию - vbFirstJan1 (1 - неделя на которую приходится 1 января).

Параметр Interval может принимать одно из следующих значений:
Yyyy - год;
Q - квартал;
M - месяц;
Y - день в году;
D - число месяца;
W - день недели;
Ww - неделя;
H - час;
N - минута;
S - секунда;

@Catstail · 11.02.2017, 17:59

Visual Basic

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

@Ильнарр 2 / 2 / 0 Регистрация: 06.04.2015 Сообщений: 91
		1
	Дата в время. Обратный отчет 11.02.2017, 15:01. Показов 1349. Ответов 2 Метки нет (Все метки) Здравствуйте. Надо сделать обратный отчет. Допустим, соревнования начинаются 30.03.2017. Нужно вычислить сколько осталось Месяцев, дней, часов и секунд. Спасибо 0

@Pro_grammer 6804 / 2831 / 527 Регистрация: 24.04.2011 Сообщений: 5,308 Записей в блоге: 10
	11.02.2017, 17:41	2
	Сообщение от Ильнарр сколько осталось Месяцев, дней, часов и секунд. DateDiff Описание Кликните здесь для просмотра всего текста Функция возвращает число заданных интервалов времени между двумя указанными датами. Синтаксис DateDif(Interval, Date1, Date2[, FirstDayOfWeek[, FirstDayOfYear]) Параметры Interval - значение типа String, обозначает период, применяемый для вычисления разницы между датами. Date1, Date2 - значения типа VarType (Date), представляют собой даты, разницу между которыми необходимо вычислить. FirstDayOfWeek - указывает первый день недели, по умолчанию - vbSunday (1 - воскресенье). FirstWeekOfYear - указывает первую неделю года, по умолчанию - vbFirstJan1 (1 - неделя на которую приходится 1 января). Параметр Interval может принимать одно из следующих значений: Yyyy - год; Q - квартал; M - месяц; Y - день в году; D - число месяца; W - день недели; Ww - неделя; H - час; N - минута; S - секунда; 0

	11.02.2017, 17:59

Дата в время. Обратный отчет

Решение