VB比较两个时间大小的问题

发布网友发布时间：2022-04-25 15:17

共4个回答

热心网友时间：2023-10-11 23:35

date1 = "2013-6-31"
date2 = "2012-12-1"

If Not (IsDate(date1) And IsDate(date2)) Then
Label1.Caption = "日期格式有误!"
Label1.ForeColor = vbRed
Command1.Visible = False
ElseIf CDate(date1) > CDate(date2) Then

Label1.Caption = "恭喜!该软件未过期!"
Label1.ForeColor = vbGreen
Command1.Visible = True
ElseIf CDate(date1) = CDate(date2) Then
Label1.Caption = "该软件即将过期,请及时续约!"
Label1.ForeColor = vbBlue
Command1.Visible = True
Else
Label1.Caption = "该软件已过期,软件已锁定!"
Label1.ForeColor = vbRed
Command1.Visible = False
End If

要先检测日期格式是否正确，比如2013-6-31就是错误的日期
另外日期可以直接比较大小的，无须用DateDiff函数

热心网友时间：2023-10-11 23:35

当然是错误的，这种错误计算机转换不来？？？？？？

6月哪来的31日？？？？？？

难不成2013年的6月有31日？？？

热心网友时间：2023-10-11 23:35

vb里用##来标识时间的 #xx:xx:xx# 你这好像是字符串吧

热心网友时间：2023-10-11 23:36

请你检查一下，一定做出来！