date1 = "2010-10-10 12:14"
站在用戶的角度思考問題,與客戶深入溝通,找到薩迦網站設計與薩迦網站推廣的解決方案,憑借多年的經驗,讓設計與互聯網技術結合,創(chuàng)造個性化、用戶體驗好的作品,建站類型包括:成都做網站、網站設計、企業(yè)官網、英文網站、手機端網站、網站推廣、域名與空間、網站空間、企業(yè)郵箱。業(yè)務覆蓋薩迦地區(qū)。
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