MyTetra Share
Делитесь знаниями!
Дата - Начало и конец недели на которую выпадает конкретная дата
16.03.2019
23:43
Раздел: !Закладки - VBA - Access - msa.polarcom.ru - 14 Преобразование Чисел и Дат

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

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



Так же в этом разделе:
 
MyTetra Share v.0.52
Яндекс индекс цитирования