Foxtable(狐表)用户栏目专家坐堂 → 如何计算合同到期后超期天数


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

主题:如何计算合同到期后超期天数

帅哥哟,离线,有人找我吗?
ess110
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:232 积分:1444 威望:0 精华:0 注册:2015/1/9 11:47:00
如何计算合同到期后超期天数  发帖心情 Post By:2015/3/23 11:45:00 [只看该作者]

如何计算合同到期后超期的天数?

 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2015/3/23 11:49:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
ess110
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:232 积分:1444 威望:0 精华:0 注册:2015/1/9 11:47:00
  发帖心情 Post By:2015/3/23 12:00:00 [只看该作者]

怎么计算出来的数值都是零?
Select Case e.DataCol.name 
    Case "终止日期"
        If e.DataRow.IsNull("终止日期") Then
            e.DataRow("超期天数") = Nothing
        Else
            Dim tp As TimeSpan = Date.today - CDate(e.DataRow("终止日期"))
            e.DataRow("超期天数") = Math.Round(tp.TotalDays / 365)
        End If
End Select

 回到顶部
帅哥哟,离线,有人找我吗?
ess110
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:232 积分:1444 威望:0 精华:0 注册:2015/1/9 11:47:00
  发帖心情 Post By:2015/3/23 12:01:00 [只看该作者]

终止日期等于当天日期计算数值为1?

 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2015/3/23 12:02:00 [只看该作者]

Math.Round(tp.TotalDays / 365)  你了解过这句代码的意思吗?

 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2015/3/23 12:03:00 [只看该作者]

不要盲目复制

e.DataRow("超期天数") = tp.TotalDays

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251054 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2015/3/23 15:54:00 [只看该作者]


 回到顶部