Foxtable(狐表)用户栏目专家坐堂 → 年龄的计算


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

主题:年龄的计算

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


加好友 发短信
等级:婴狐 帖子:16 积分:176 威望:0 精华:0 注册:2016/12/30 16:15:00
年龄的计算  发帖心情 Post By:2017/1/3 12:25: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.2422,2)
        End
If
End
Select


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


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/1/3 14:27:00 [只看该作者]

 有什么疑问?代码有什么问题?

 

Select Case e.DataCol.name
    Case "入职日期"
        If e.DataRow.IsNull("入职日期") Then
            e.DataRow("年龄") = Nothing
        Else
            Dim d1 As Date  = Date.today
            Dim d2 As Date = CDate(e.DataRow("入职日期"))
            e.DataRow("年龄") = d1.Year - d2.Year + iif(Format(d2, "MMdd") >= Format(d1, "MMdd"), -1, 0)
        End If
End Select


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


加好友 发短信
等级:婴狐 帖子:16 积分:176 威望:0 精华:0 注册:2016/12/30 16:15:00
入职时的年龄  发帖心情 Post By:2017/1/3 14:43:00 [只看该作者]

我需要的是入职时候的年龄,而不是当下的年龄,一共有三列:出生日期,入职日期,年龄。


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


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/1/3 14:53:00 [只看该作者]

Select Case e.DataCol.name
    Case "入职日期", "出生日期"
        If e.DataRow.IsNull("入职日期") OrElse e.DataRow.IsNull("出生日期") Then
            e.DataRow("年龄") = Nothing
        Else
            Dim tp As TimeSpan = CDate(e.DataRow("入职日期")) - CDate(e.DataRow("出生日期"))
            e.DataRow("年龄") = Math.Round(tp.TotalDays / 365.2422,2)
        End
If
End
Select


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


加好友 发短信
等级:婴狐 帖子:16 积分:176 威望:0 精华:0 注册:2016/12/30 16:15:00
感谢  发帖心情 Post By:2017/1/3 15:26:00 [只看该作者]

计算出来的年龄后面多了一个点,不过没关系,谢谢。

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


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/1/3 15:27:00 [只看该作者]

e.DataRow("年龄") = Math.Round(tp.TotalDays / 365.2422,2)

 

改成

 

e.DataRow("年龄") = Format(tp.TotalDays / 365.2422, "0.00")


 回到顶部