Дата на Начало и Конец недели относительно указанной даты

Public Function esDateToWeekPeriod(byDate As Date) As String
'es 15.12.04
'  Возвращает диапазон дат недели к которой относится передаваемая в
'  аргументе byDate дата
'  Возаращает текст в формате: "06.12.2004-12.12.2004"
'--------------------------------------------------------------------
Dim intD As Integer 'Номер дня недели
On Error GoTo DateToWeekPeriodErr
'Получаем номер дня недели
    intD = DatePart("w", byDate, vbMonday)
'Получаем Начало периода строкой ориентируясь на номер дня
    esDateToWeekPeriod = Format(byDate - intD + 1, "dd.mm.yyyy") & "-"
'Получаем Конец периода строкой
    esDateToWeekPeriod = esDateToWeekPeriod & _
                    Format(byDate + (7 - intD), "dd.mm.yyyy")
    Exit Function
DateToWeekPeriodErr:
    esDateToWeekPeriod = "#ERR#"
End Function