以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  日期比较  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=25315)
--  作者：东方孟德
--  发布时间：2012/11/6 15:41:00
--  日期比较

好像比较不管用。请教

 

If e.DataCol.Name = "到期欠款"  Or e.DataCol.Name = "到期欠款分类" Then
Dim t As Date
t = Date.Now
Dim d1,d2,d3,d4,d5 As Double
    d1=IIF(e.DataRow("预付款应回日期") < t, e.DataRow("预付应到款") ,0)
    d2=IIF(e.DataRow("货到款应回日期") < t, e.DataRow("货到应到款") ,0)
    d3=IIF(e.DataRow("验收款应回日期") < t, e.DataRow("验收应到款") ,0)
    d4=IIF(e.DataRow("其它款应回日期") < t, e.DataRow("其它应到款") ,0)
    d5=IIF(e.DataRow("质保款应回日期") < t, e.DataRow("质保应到款") ,0)
--  作者：狐狸爸爸
--  发布时间：2012/11/6 15:48:00
--  

t = Date.Now

 

改为：

 

t = Date.Today
--  作者：东方孟德
--  发布时间：2012/11/6 17:15:00
--  
谢