主题：请教日期型菜单控件的使用

Dim da As Date=RibbonTabs("功能区1").Groups("功能组1").Items("日期输入框1").value
Dim db As Date=RibbonTabs("功能区1").Groups("功能组1").Items("日期输入框2").value
If da isnot null AndAlso db is notnull  AndAlso da<db Then       '如果两个日期控件均填写了日期，而且开始日期小于截止日期，那么

执行的代码.........

end if

请教红色部分如何才能做到最标准书写方式