Страницы: 1
RSS
Получить дату дня недели по номеру недели
 
Добрый день!

Прошу помочь с кодом. Необходимо получить дату понедельника указанной недели.
Получить номер недели по дате можно:
Код
Format(Date, "ww")
Как сделать обратный процесс?

Например, если это:
  • 41 неделя, то дата будет 09/10/2017
  • 45 неделя, то дата будет 06/11/2017
Номер недели будет вводиться в inputbox.
Изменено: neqkeet - 13.10.2017 14:14:04
 
вариант:
Код
Sub vvv()
Dim dt As Date, n#
n = Val(InputBox("Введите номер недели (от 1 до 53)", "ВВОД ДАННЫХ"))
If n >= 1 And n <= 53 Then
   dt = DateSerial(Year(Now), 1, 1) + n * 7 - (Weekday(DateSerial(Year(Now), 1, 1) + n * 7, 2) - 1)
End If
MsgBox n & " неделя, то дата будет " & dt
End Sub
 
V, то, что нужно! Спасибо!
Страницы: 1
Читают тему
Наверх