主题：[求助] 关于日期提醒

一日期列 “年审截止日”，我想在另一列做一个提醒，比如今天距“截止日”大于60日时，显示“未到期”，今天距“截止日”小于等于60日时，显示“即将到期”，当过期时显示“已过期”。我想用表达式列来处理，但不知如何计算 “今天” 与 “某天” 的差距。如果用代码又如何处理？

帮助有例子 http://www.foxtable.com/help/topics/2471.htm

看过这个例子，这个是在本身的单元格里修改，我是想在另一列做提示，意在做目录树，可以将各种情况一览无遗。

原理是一样的,方法也是一样的.   

  编写AfterOpenProject事件

 

For Each dr As DataRow In DataTables("表A").DataRows
   
    If dr.IsNull("年审截止日") = False Then
        Dim sp As TimeSpan = dr("年审截止日") - Date.Today
        If sp.TotalDays > 60 Then
            dr("提示") = "未到期"
        Else If sp.TotalDays >= 0 Then
            dr("提示") = "即将到期"
        Else If sp.TotalDays < 0 Then
            dr("提示") = "已到期"
        End If
    Else
        dr("提示") = Nothing
    End If
   
Next

已搞掂，谢谢！