Function FUNC_ROKUYO(L_DATE As Date) As String
　
　　Dim OBJ_DB As Database
　　Dim OBJ_RST_六曜情報 As Recordset
　　Dim W_DATE As Date
　　Dim W_MONTH As Byte
　　Dim W_DAYS As Integer

　　Set OBJ_DB = CurrentDb
　　Set OBJ_RST_六曜情報 = OBJ_DB.OpenRecordset("T_AS_六曜情報", dbOpenTable)

　　OBJ_RST_六曜情報.Index = "PrimaryKey"
　　OBJ_RST_六曜情報.Seek "<=", L_DATE
　　With OBJ_RST_六曜情報
　　　　If .NoMatch Then
　　　　　　FUNC_ROKUYO = ""
　　　　Else
　　　　　　W_DATE = !日付
　　　　　　W_MONTH = !旧暦月
　　　　　　W_DAYS = L_DATE - W_DATE + (W_MONTH Mod 6)
　　　　　　Select Case W_DAYS Mod 6
　　　　　　Case 0
　　　　　　　　FUNC_ROKUYO = "赤口"
　　　　　　Case 1
　　　　　　　　FUNC_ROKUYO = "先勝"
　　　　　　Case 2
　　　　　　　　FUNC_ROKUYO = "友引"
　　　　　　Case 3
　　　　　　　　FUNC_ROKUYO = "先負"
　　　　　　Case 4
　　　　　　　　FUNC_ROKUYO = "仏滅"
　　　　　　Case 5
　　　　　　　　FUNC_ROKUYO = "大安"
　　　　　　End Select
　　　　　　If (L_DATE - W_DATE) > 29 Then
　　　　　　　　FUNC_ROKUYO = ""
　　　　　　End If
　　　　End If
　　End With

　　OBJ_RST_六曜情報.Close
　　OBJ_DB.Close

End Function