主题：求教：领取时间自动加上保修期限12月份 后得到的时间和当前日期比较 如果大于当前日期 代码怎么写

 

lect Case e.DataCol.Name
Case "领取时间","保修期限"
    e.DataRow("过保时间") = e.DataRow("领取时间").AddMonths(e.DataRow("保修期限"))
    If e.DataRow("过保时间") < Date.now Then
        e.DataRow("失效天数")= (Date.now - e.DataRow("过保时间")).TotalDays
        e.DataRow("保修状态")= "保修失效"
    Else
        e.DataRow("失效天数")= Nothing
        e.DataRow("保修状态")= "保修期内"
    End  If
End Select

e.DataRow("失效天数")= (Date.now - CDate(e.DataRow("过保时间"))).TotalDays