=СЕГОДНЯ()-ДЕНЬНЕД(СЕГОДНЯ();2)
Function fDate(r As Range) As Date fDate = Date - Weekday(Date, 1) + Val(r.Value) - 6 End Function