[求助]如何用日期函数判断后取值 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目1.table

如何才能实现这样的功能：

比如今天是2016年02月05日

1、

当“驾证有效期限”大于（today日期+30天）以上时，“驾证状态”栏自动生成“正常”；

当“驾证有效期限”等于（today日期+30天）时，“驾证状态”栏自动生成“即将到期请换证”；

当“驾证有效期限”小于（today日期）时，“驾证状态”栏自动生成“已过期请换证”；

2、

当“从业证有效期限”和“继续教育记录”均大于（today日期+30天）以上时，“从业证状态”栏自动生成“正常”；

当“从业证有效期限”等于（today日期+30天）时，“从业证状态”栏生成“即将到期请换证”；

当“继续教育记录”等于（today日期+30天）时，“从业证状态”栏生成“请参加继续教育”；

当“从业证有效期限”小于（today日期）时，“从业证状态”栏生成“已过期请换证”

3、

如何简化以下句子：

If e.DataCol.Name = "初次领证日期" Then

If e.DataRow.IsNull("初次领证日期") Then

e.DataRow("驾龄") = Nothing

Else

e.DataRow("驾龄") = Date.Today.Year - e.DataRow("初次领证日期").Year

End If

If e.DataCol.Name = "领取大客日期" Then

If e.DataRow.IsNull("领取大客日期") Then

e.DataRow("大客年限") = Nothing

Else

e.DataRow("大客年限") = Date.Today.Year - e.DataRow("领取大客日期").Year

End If

1、2，参考

If e.DataCol.name = "驾证有效期限" Then
    If e.NewValue = Nothing Then
        e.DataRow("驾证状态") = Nothing
    Else
        Dim sp As TimeSpan = cdate(e.NewValue) - Date.Today
        If sp.TotalDays > 30 Then
            e.DataRow("驾证状态") = "正常"
        Else If sp.TotalDays >= 0 Then
            e.DataRow("驾证状态") = "即将到期请换证"
        Else
            e.DataRow("驾证状态") = "已过期请换证"
        End If
    End If
End If

If e.DataCol.name = "从业证有效期限" Then
    If e.NewValue = Nothing Then
        e.DataRow("从业证状态") = Nothing
    Else
        Dim sp As TimeSpan = cdate(e.NewValue) - Date.Today
        If sp.TotalDays > 30 Then
            e.DataRow("从业证状态") = "正常"
        Else If sp.TotalDays >= 0 Then
            e.DataRow("从业证状态") = "即将到期请换证"
        Else
            e.DataRow("从业证状态") = "已过期请换证"
        End If
    End If
End If

If e.DataCol.name = "继续教育记录" Then
    Dim sp As TimeSpan = cdate(e.NewValue) - Date.Today
    If sp.TotalDays >= 0 AndAlso sp.TotalDays <= 30 Then
        e.DataRow("从业证状态") = "请参加继续教育"
    End If
End If

3、

Dim ary1() As String = {"初次领证日期", "领取大客日期"}
Dim ary2() As String = {"驾龄", "大客年限"}

Dim idx As Integer = array.Indexof(ary1, e.DataCol.name)
If idx >= 0 Then
    If e.DataRow.IsNull(ary1(idx)) Then
        e.DataRow(ary2(idx)) = Nothing
    Else
        e.DataRow(ary2(idx)) = Date.Today.Year - e.DataRow(ary1(idx)).Year
    End If
End If

主题：[求助]如何用日期函数判断后取值