主题：开发版用户求教 条件语句问题

类似这样，细节自己调整:

For Each dr As DataRow In DataTables("表A").DataRows
    Dim tp1 As TimeSpan = Date.Today - Cdate(dr("开始时间"))
    Dim tp2 As TimeSpan = dr("结束时间") - dr("开始时间")
    Dim bl As Double= tp1.TotalDays/ tp2.TotalDays
    If bl >= 0.6 AndAlso dr("当年绩效分数") > 50 Then
        dr("第十列") = "一等"
    ElseIf bl >= 0.5 AndAlso dr("当年绩效分数") > 40 Then
        dr("第十列") = "二等"
    ElseIf bl >= 0.2 AndAlso dr("当年绩效分数") > 30 AndAlso Cdate(dr("开始时间")).Addmonths(6) <= Date.Today  Then
        dr("第十列") = "三等"
    ElseIf bl < 0.2  AndAlso Cdate(dr("开始时间")).Addmonths(6) > Date.Today  Then
        dr("第十列") = "四等"
    End If
Next