HandleError:
    Result = False ' <- 0 = #12/30/1899#

HandleError:
    Result = DateValue ' <- исходное значение селектора

strCap = DatePart("ww", DateAdd("d", BegDate, d))

strCap = DatePart("ww", DateAdd("d", BegDate, d), , vbFirstJan1)

Private Function p_GetCtlLocation(Ctl As Access.Control, _
    Optional ByRef X, Optional ByRef Y, Optional ByRef W, Optional ByRef H) As Boolean
' получает экранные размер и позицию контрола (в пикселях)
Const c_strProcedure = "p_GetCtlLocation"
' v.0.2.1       : 15.04.2019 - исправлено позиционирование в секциях формы
'----------------
' в большинстве случаев отлично cработает ctl.accLocation X, Y, W, H, varChild,
' НО - в ленточной форме (покрайней мере в Access 2003) при расчете позиции по вертикали
' похоже он к каждой строке добавляет высоту секции заголовка
' из-за чего смещение от строки к строке возрастает
' поэтому считаем по-другому:
Dim lpPoint As POINTAPI
Dim dx As Long, dy As Long
Dim Result As Boolean

    Result = False
    On Error GoTo HandleError
' получаем экранные координаты (0;0) клиентской области формы
    With Ctl.PARENT.Form
        ClientToScreen .hWnd, lpPoint
' прибавляем расстояние от (0;0) до контрола
    ' по горизонтали
        If Not IsMissing(X) Then dx = .CurrentSectionLeft: X = lpPoint.X + TwipsToPixels(Ctl.Left + dx, DIRECTION_HORIZONTAL)
    ' по вертикали
        If Not IsMissing(Y) Then
            If Ctl.Section <> acHeader Then
            ' если это не заголовок формы
                ' для обычной формы добавляем высоты вышестоящих секций
                On Error Resume Next
                dy = .Section(acHeader).Height: If Err Then Err.Clear
                On Error GoTo HandleError
                Select Case Ctl.Section
                Case acDetail
                ' для ленточной формы добавляем расстояние от верхнего края формы
                    If (.DefaultView = 1 Or .DefaultView = 2) Then dy = .CurrentSectionTop
                Case acFooter
                    dy = dy + .Section(acDetail).Height
                End Select
            End If
            Y = lpPoint.Y + TwipsToPixels(Ctl.Top + dy, DIRECTION_VERTICAL)
        End If
        If Not IsMissing(W) Then W = TwipsToPixels(Ctl.Width, DIRECTION_HORIZONTAL)
        If Not IsMissing(H) Then H = TwipsToPixels(Ctl.Height, DIRECTION_VERTICAL)
    End With

    
    Result = True
HandleExit:
    p_GetCtlLocation = Result
    Exit Function
HandleError:
    Result = False
'    Dbg.Error Err.Number, Err.Description, _
'        Source:=c_strModule, Procedure:=c_strProcedure, LineNum:=Erl
    Err.Clear: Resume HandleExit
End Function