如何计算两个时间点间的年龄（包括岁、月、日） - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

表中两个时间数据（出生日期及就诊日期），如何自动计算患者就诊时的年龄（包括岁、月、日）。同时在在输入就诊日期早于出生日期，弹出对话框，提示就诊日期不能早于出生日期。谢谢！

做个例子上传，这样大家帮助你就很方便。

要得，先谢谢了。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:求解例子.table

Dim d1,d2 As Date

Dim y,m,d As Integer

d1= #9/8/2011#

d2=#9/7/2012#

y=DateDiff("yyyy",d1,d2)

m=DateDiff("m", d1,d2)

d=DateDiff("d", d1,d2)

If d1.AddYears(y) >d2 Then

y =y -1

End If

If d1.Addmonths(m) >d2 Then

If y =0 Then

m=m-1

End If

m = m-12*y

If d1.Add Days(d) >d2 Then

d=d-1

End If

d=d-DateDiff("d",d1, d1.addmonths(y*12+m))+1

Dim s As String

s = iif(y =0, "",y & "年") & iif(m =0,"",m & "月")

s+= iif(d =0,"",d & "日")

Output.Show(s)→11月30日

[此贴子已经被作者于2011-10-5 23:35:16编辑过]

谢谢！那如何将表中的字段导入上述代码中。老是提示表达有问题。另外，如果将d2=#9/7/2013#得到的结果却是1年12月1日，应该有问题。

[此贴子已经被作者于2011-10-5 23:28:39编辑过]

DataColChanged事件：

If e.DataCol.Name = "出生日期" Then
    If e.DataRow.IsNull("出生日期") Then
        e.DataRow("年龄") = Nothing
    Else
        Dim d1 As Integer = Date.Today().year
        Dim d2 As Integer = Date.Today().month
        Dim d3 As Integer = Date.Today().day
        Dim c1 As Integer = e.DataRow("出生日期").year
        Dim c2 As Integer = e.DataRow("出生日期").month
        Dim c3 As Integer = e.DataRow("出生日期").day
        Dim t1,t2,t3 As Integer
        If d3>=c3 Then
            t3=d3-c3
        Else
            t3=d3-c3+30
            d2=d2-1
        End If
        If d2>=c2 Then
            t2=d2-c2
        Else
            t2=d2-c2+12
            d1=d1-1
        End If
        t1=d1-c1
        e.DataRow("年龄")=t1 & "岁" & t2 & "月" & t3 & "天"
    End If
End If

可能是我没有说清楚，我是想计算一个人从出生到就诊时的年龄，而不是到现在的年龄。另外，从字段“出生日期”得到# #表示的日期。看来比较麻烦。

If e.DataCol.Name = "出生日期" OrElse e.DataCol.Name = "就诊日期" Then

Dim dr As DataRow = e.DataRow

If dr.IsNull("出生日期") OrElse dr.IsNull("就诊日期") OrElse dr("出生日期")> dr("就诊日期") Then

dr("年龄") = Nothing

Else

Dim s As String

Dim d1,d2 As Date

Dim y,m,d As Integer

d1= dr("出生日期")

d2=dr("就诊日期").Adddays(1)

y=DateDiff("yyyy",d1,d2)

m=DateDiff("m", d1,d2)

d=DateDiff("d", d1,d2)

If d1.AddYears(y) >d2 Then

y =y -1

End If

If d1.AddMonths(m) >d2 Then

If y =0 Then

m=m-1

End If

m = m-12*y

If d1.AddDays(d) >d2 Then

d=d-1

End If

d=d-DateDiff("d",d1, d1.addmonths(y*12+m))

s = iif(y =0, "",y & "年") & iif(m =0,"",m & "月")

s+= iif(d =0,"",d & "日")

dr("年龄") = s

End If

修正

下载信息 [文件大小：下载次数： ]
点击浏览该文件:求解例子.table

[此贴子已经被作者于2011-10-6 0:37:14编辑过]

执行代码时，提示错误。
图片点击可在新窗口打开查看

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

主题：如何计算两个时间点间的年龄（包括岁、月、日）