判断时间 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

下面是时间段输入窗口判断代码

请问下面的代码想再加一个条件，离出差5天以内才可以开出差单，怎么写代码呢？也就是d要早于当天，小于today+5

Dim d As String = e.sender.text

If d <> Nothing AndAlso d < Date.today Then
MessageBox.Show("学校规定必须在出差前开具出差单,不允许补开!如果您确实因特殊情况需要补开出差单,请在办公室登记经学校审核后办理.","日期填写错误提示")
e.cancel = True
End If

主题：判断时间