Страницы: 1
RSS
как определить дату первого и последнего дня недели
 
всем привет.
Ребята подскажите пжл как определить дату первого и последнего дня прошедшей недели(т.е. дату прошлого понедельника и дату прошлого воскресенья)? Можно с помощью формул. но если кто знает, то лучше в VBA
Изменено: MR.TONY - 11.09.2018 22:47:16
 
Вычесть из сегодняшней даты номер дня недели - получим прошлое воскресенье, еще вычесть 6 - то понедельник:
Код
=СЕГОДНЯ()-ДЕНЬНЕД(СЕГОДНЯ();2)
 
=СЕГОДНЯ()-ДЕНЬНЕД(СЕГОДНЯ())+A1-6
А1 - день недели числом. СЕГОДНЯ() вынести в отдельную ячейку

Код
Function fDate(r As Range) As Date
   fDate = Date - Weekday(Date, 1) + Val(r.Value) - 6
End Function
 
Спасибоо! То что нужно
Страницы: 1
Наверх