你好，VB6中时间大小比较（使用DateDiff函数）。比如：DateDiff("d",d1,d2)0：表示d1d2（d1的时间晚于d2）。否则就是早于d2。如果等于0表示日期时间完全相等。具体参考（点击， ，查看）。
成都创新互联-专业网站定制、快速模板网站建设、高性价比高明网站开发、企业建站全套包干低至880元,成熟完善的模板库,直接使用。一站式高明网站制作公司更省心,省钱,快速模板网站建设找我们，业务覆盖高明地区。费用合理售后完善，十年实体公司更值得信赖。
日期比较其实直接比较2个字符串就行了
dim a as string
dim b as string
a="日期1"
b="日期2"
if ab then
msgbox("过期")
else
msgbox("没过期")
end if
date1 = "2010-10-10 12:14"
date2 = "2011-2-3"
If DateDiff("d", CDate(date1), CDate(date2)) 0 Then
MsgBox date1 "大"
Else
MsgBox date2 "大"
End If