点击下载此附件

自定义函数
Public Function Gzc(tt As Date) As String
    Select Case tt
    Case #6:30:00 AM# To #9:30:00 AM#
        Gzc = "早餐"
    Case #11:00:00 AM# To #1:00:00 PM#
        Gzc = "中餐"
    Case #4:30:00 PM# To #7:00:00 PM#
        Gzc = "晚餐"
    Case Else
        Gzc = "不符规定"
    End Select
End Function