主题：日期比较

好像比较不管用。请教

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)