如何在规定的日期内显示菜单的某一个按钮？

LoadUserSetting代码

For Each dr As DataRow In DataTables("菜单权限表").Select("用户分组 = \'" & User.Group & "\' and 用户名 = \'" & User.Name & "\'")
      If dr.IsNull("分组名")  Then
        RibbonTabs(dr("菜单名")).Visible = Not dr("菜单不可见")
        RibbonTabs(dr("菜单名")).Enabled = Not dr("菜单不可用")   
      ElseIf dr.IsNull("按钮名")   Then
        RibbonTabs(dr("菜单名")).Groups(dr("分组名")).Visible = Not dr("分组不可见")
        RibbonTabs(dr("菜单名")).Groups(dr("分组名")).Enabled = Not dr("分组不可用")
      Else
        RibbonTabs(dr("菜单名")).Groups(dr("分组名")).Items(dr("按钮名")).Visible = Not dr("按钮不可见")
        RibbonTabs(dr("菜单名")).Groups(dr("分组名")).Items(dr("按钮名")).Enabled = Not dr("按钮不可用")   
      End If
   Next

如何添加：

下列菜单的 “日常统计”只有当分组为“统计员”且日期在每月1-10日可用，其他时间即使是该统计员也不可用

RibbonTabs("生产管理").Groups("锻造工程").Items("日常统计").Enabled = true