在通用平台中，可使用DateDiff计算两个日期间的天数，

天数=DateDiff("d", Me.开始日期, Me.结束日期）

代码如下：       

       If (DateDiff("d", Me.开始日期, Me.结束日期) + 1) > 31 Then
         
         MsgBox "请注意：【开始日期】与【结束日期】间距不能超过31天！"
         
         GoTo ExitHere
    
        End If