计算年龄表达式 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

共有2088人关注过本帖树形打印复制链接主题：计算年龄表达式

guimingze

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：120 积分：895 威望：0 精华：0 注册：2017/2/15 20:56:00

计算年龄表达式 发帖心情

Post By：2017/2/26 21:47:00 [只看该作者]

e.DataRow("年龄") = Date.Today.Year - e.DataRow("出生年月").Year

老师其实我出生年月一栏肯定有数的我就想直接用后面之一段公式代码可以直接用么？

如出生年月为1987.09 现在是2017.02 2017.02-1987.09 计算周岁

有点色

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/2/26 22:57:00 [只看该作者]

If e.DataCol.name = "出生年月" Then
If e.newvalue <> Nothing Then

        Dim d As Date = New Date(e.newvalue.substring(0,4), e.newvalue.substring(5,2), 1)
        Dim y As Integer = d.year
        If format(d, "MMdd") <= Format(Date.Today, "MMdd") Then
            e.DataRow("年龄") = Date.Today.Year - y
        Else
            e.DataRow("年龄") = Date.Today.Year - y -1
        End If
    Else
        e.DataRow("年龄") = Nothing
    End If
End If

下一主题 >> << 上一主题

主题：计算年龄表达式