包含vb.net时间大小比较的词条

VB中怎样比较两个日期的大小

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

VB有现成的函数：

DateDiff(格式,日期1,日期2)

如今天到2010-5-1 8:00:00的时间差，代码：

DateDiff("yyyy",Now,#2010-5-1 8:00:00#) '还有几(整)年

DateDiff("q",Now,#2010-5-1 8:00:00#) '还有几(整)季度

DateDiff("m",Now,#2010-5-1 8:00:00#) '还有几(整)月

DateDiff("d",Now,#2010-5-1 8:00:00#) '还有几(整)天

DateDiff("ww",Now,#2010-5-1 8:00:00#) '还有几(整)周

DateDiff("h",Now,#2010-5-1 8:00:00#) '还有几(整)小时

DateDiff("n",Now,#2010-5-1 8:00:00#) '还有几(整)分钟

DateDiff("s",Now,#2010-5-1 8:00:00#) '还有几(整)秒

日期比较其实直接比较2个字符串就行了

dim a as string

dim b as string

a="日期1"

b="日期2"

if ab then

msgbox("过期")

else

msgbox("没过期")

end if

当前名称：包含vb.net时间大小比较的词条
文章转载：http://mswzjz.cn/article/higgho.html