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

狐狸爸爸，我是开发版用户，现在有个员工划分等级的问题 逻辑条件没有弄清楚 不知道该怎么办，特来请教 希望您能不吝赐教
我表中有的字段有【开始时间】、【结束时间】、【奖惩类型】、【当年绩效分数】
五等员工的条件 有 1、入职时间不满6个月且【奖惩类型】是（警告、再次警告、三次警告）的员工；2、其他的入职时间不满3个月且【奖惩类型】=‘无’的员工;3、一年之内收到过‘三次警告’二次以上的员工

四等员工：入职时间不满6个月的且入职时间不满【应履职时间】（应履职时间其实就是上面的【结束时间】-【开始时间】）的五分之一的员工。

三等员工：入职时间满6个月以上且实际入职时间（实际入职时间就是【今天】-【开始时间】）为应履职时间的五分之一以上，且【当年绩效分数】在30分以上的员工

二等员工：实际入职时间为应履职时间的二分之一以上，【当年绩效分数】为40分以上员工

一等员工：实际入职时间为应履职时间的五分之三以上，【当年绩效分数】为50分以上的员工

 

以上所有员工 如果受到过【奖惩类型】是“警告”“再次警告”“严重警告”的等级自动下降一级

各位大哥 这个逻辑关系要怎么弄啊  我用的是 IF ELSE IF   等语句做的 总是不对  希望大家可以帮我弄一个
我的数据库太大 且 麻烦  所以我无法上传实例  希望大家可以理解一下

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.foxdb

没人理我啊

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

 

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

五等员工的问题 最后一个 条件 我有个这样的表B  根据姓名与表A进行关联 怎么动态的统计当年的绩效分数啊 当年绩效分数就是 从当前时间的月一直往前推11个月 这个麻烦的话可以这样设置 就是如果当前日期的月份大于8月份 那么就从本年度1月份一直到12月份算  如果今天的日期没有超过8个月 那么就算去年一年的绩效分数 这个如何做呢 狐狸爸爸

此主题相关图片如下：截图00.png

好的 例子已经上传

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.foxdb

呃，楼主，你给数据和你想要解决的问题不符啊。

不往前推十一个月也可以  我给的数据是2009年的  假如当前日期是2010年  我只要计算前一年的就行  就是计算当前日期前一年12个月的 绩效分数 就可以