Foxtable(狐表)用户栏目专家坐堂 → 关于时间计算问题的判断


  共有7132人关注过本帖树形打印复制链接

主题:关于时间计算问题的判断

美女呀,离线,留言给我吧!
若水三千
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:189 积分:1618 威望:0 精华:0 注册:2013/3/20 6:28:00
关于时间计算问题的判断  发帖心情 Post By:2013/4/12 13:05:00 [显示全部帖子]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.foxdb

各位大哥 请问

如果开始日期 距离 今天未满6个月 则评定等级 为一级

如果开始日期 距离 今天 满6个月 且 在职时长 < (离职日期 - 开始日期)/2 则评定等级 = 二级

如果开始日期距离今天满6个月  且 在职时长 > (离职日期 - 开始日期)的5分之1  则 三级

如果开始日期 距离今天满6个月 且 在职时长 > (离职日期 - 开始日期)/2 则为四级

Select Case e.DataCol.Name
    Case "开始时间"
        If e.DataRow.IsNull("开始时间") = False AndAlso CDate(e.DataRow("开始时间")) > Date.Today.AddMonths(-6) 
            e.DataRow("评定等级") = "二级"
        ElseIf e.DataRow.IsNull("开始时间") = False AndAlso CDate(e.DataRow("开始时间")) > Date.Today.AddMonths(-6)  Then
            e.DataRow("评定等级") = "一级"
        ElseIf e.DataRow("入监时间") = False AndAlso CDate(e.DataRow("开始时间")) > Date.Today.AddMonths(6)
            e.DataRow("评定等级") = "三级"
        End If
End Select

怎么改啊 该来改去不对啊 请教各位 多谢各位帮我把这个例子做下哈


 回到顶部
美女呀,离线,留言给我吧!
若水三千
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:189 积分:1618 威望:0 精华:0 注册:2013/3/20 6:28:00
  发帖心情 Post By:2013/4/12 14:48:00 [显示全部帖子]

各位大哥帮帮忙

 回到顶部
美女呀,离线,留言给我吧!
若水三千
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:189 积分:1618 威望:0 精华:0 注册:2013/3/20 6:28:00
  发帖心情 Post By:2013/4/12 15:01:00 [显示全部帖子]

谢谢木华大哥

 回到顶部
美女呀,离线,留言给我吧!
若水三千
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:189 积分:1618 威望:0 精华:0 注册:2013/3/20 6:28:00
  发帖心情 Post By:2013/4/12 15:02:00 [显示全部帖子]

大哥 版本过高 我打不开啊


 回到顶部
美女呀,离线,留言给我吧!
若水三千
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:189 积分:1618 威望:0 精华:0 注册:2013/3/20 6:28:00
  发帖心情 Post By:2013/4/12 15:16:00 [显示全部帖子]

不会的 在职时长 是 等于 离职时间 - 入值时间的啊

 回到顶部
美女呀,离线,留言给我吧!
若水三千
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:189 积分:1618 威望:0 精华:0 注册:2013/3/20 6:28:00
  发帖心情 Post By:2013/4/12 15:18:00 [显示全部帖子]

木华大哥 错了 在职时长 等于 离职日期-入职日期啊 在职时长 不是 手填的

 回到顶部