主题：日期时间比较问题求助!
fly2106
[专家分：10] 发布于 2008-04-30 11:46:00
建立了两个DTPicker控件,假设为:dtDate 和 dtTime ,dtDate用于输入日期,dtTime用于输入时间，现在想用其输入的日期时间与当前系统的日期时间进行比较,判断其是在当前系统时间之前还是之后? 即比较:MM-dd-yyyy hh:mm:ss
用datediff()函数比较时,当只有日期比较正确,但加上时间后就出现溢出错误! 有谁能写个代码看看啊!!!
VB新手!希望讲详细点!!!
最后更新于：2008-04-30 15:35:00
回复列表 （共5个回复）
沙发
fly2106 [专家分：10] 发布于 2008-04-30 15:30:00
怎么没有人回啊!
板凳
一江秋水 [专家分：9680] 发布于 2008-04-30 17:58:00
格式正确的话是不会溢出的：
Dim TheDate As Date, st
TheDate = "2008-4-30 16:30:01"
Debug.Print "与当前时间相差：" & DateDiff("m", Now, TheDate) & "月"
Debug.Print "与当前时间相差：" & DateDiff("ww", Now, TheDate) & "星期"
Debug.Print "与当前时间相差：" & DateDiff("d", Now, TheDate) & "日"
Debug.Print "与当前时间相差：" & DateDiff("h", Now, TheDate) & "小时"
Debug.Print "与当前时间相差：" & DateDiff("n", Now, TheDate) & "分钟"
Debug.Print "与当前时间相差：" & DateDiff("s", Now, TheDate) & "秒"
3 楼
帅哥阳伞 [专家分：16530] 发布于 2008-05-04 10:40:00
Private Sub Command1_Click()
MsgBox DTPicker2.Value
'此时再用 DateDiff比较now()与DTPicker2.Value的时间差
End Sub
Private Sub DTPicker1_Change()
DTPicker2.Value = DTPicker1.Value 'DTPicker1.Value用于选日期，DTPicker2.Value用于选时间
End Sub
4 楼
fly2106 [专家分：10] 发布于 2008-05-04 19:42:00
谢谢!
问题已经解决,把日期和时间分开比较后没有出现益处!
5 楼
老大徒伤悲 [专家分：29120] 发布于 2008-05-05 09:39:00
赞扬楼主，新的共享的品格！
希望大家都能这样做。
我来回复
您所在位置：