TopPicLogo TopPicText

Начало и конец недели на которую выпадает конкретная дата

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