以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]日期列大小的比较  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=68762)
--  作者：新航程小何
--  发布时间：2015/5/24 18:26:00
--  [求助]日期列大小的比较
各位老师，我发现，这个代码有问题，v1和v2比较的值不是日期的先后，是将日期转化成数值之后进行的比较。比如说：我输入开始时间时：2015-01-20，结束时间是：2015-01-04，这明显输入错误，但是是不提醒的，所以我想问的是，日期的先后是这样比较的吗？

Dim v1 As String =e.form.controls("dt1").value
Dim v2 As String =e.form.controls("dt2").value
If v1 > "" And  v2 > "" Then
    If v2 < v1 Then
        messagebox.show("结束时间不能早于开始时间!","提示")
       e.form.controls("dt2").value = Nothing
    End If
End If
--  作者：大红袍
--  发布时间：2015/5/24 18:28:00
--  
Dim v1 As Date =e.form.controls("dt1").value
Dim v2 As Date =e.form.controls("dt2").value
If v1 <> Nothing And  v2 <> Nothing Then
    If v2 < v1 Then
        messagebox.show("结束时间不能早于开始时间!","提示")
        e.form.controls("dt2").value = Nothing
    End If
End If