Microsoft Access 掲示板

Microsoft Access 掲示板

土日及び祝祭日を除いた月初めの出し方について / 1

3 コメント
views
4 フォロー
1
hatena 2019/10/06 (日) 13:02:08

下記でどうでしょうか。

Public Function 月初(申請日 As Variant) As Variant

    If IsNull(申請日) Then Exit Function

    月初 = DateSerial(Year([申請日]),Month([申請日])+1,1)

    Do 
        Select Case Weekday(月初)
        Case vbMonday To vbFriday
            If IsNull(DLookup("祝日名", "T_祝日", "日付=#" & 許可日 & "#")) Then
                Exit Do
            End If
        End Select
        月初 = 月初 + 1
    Loop 
End Function
通報 ...