- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 如何计算两个时间点间的年龄（包括岁、月、日） (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=13252)
-- 发布时间：2011/10/5 15:36:00
-- 如何计算两个时间点间的年龄（包括岁、月、日）
表中两个时间数据（出生日期及就诊日期），如何自动计算患者就诊时的年龄（包括岁、月、日）。同时在在输入就诊日期早于出生日期，弹出对话框，提示就诊日期不能早于出生日期。谢谢！
-- 发布时间：2011/10/5 15:45:00
--
做个例子上传，这样大家帮助你就很方便。
-- 发布时间：2011/10/5 17:20:00
--
要得，先谢谢了。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:求解例子.table |
-- 发布时间：2011/10/5 22:22:00
--
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
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编辑过]
-- 发布时间：2011/10/5 23:21:00
--
谢谢！那如何将表中的字段导入上述代码中。老是提示表达有问题。另外，如果将d2=#9/7/2013#得到的结果却是1年12月1日，应该有问题。
[此贴子已经被作者于2011-10-5 23:28:39编辑过]
-- 发布时间：2011/10/5 23:27:00
--
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
-- 发布时间：2011/10/5 23:46:00
--
可能是我没有说清楚，我是想计算一个人从出生到就诊时的年龄，而不是到现在的年龄。另外，从字段“出生日期”得到# #表示的日期。看来比较麻烦。
-- 发布时间：2011/10/5 23:56:00
--
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
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
End If
-- 发布时间：2011/10/5 23:58:00
--
修正
[此贴子已经被作者于2011-10-6 0:37:14编辑过]
-- 发布时间：2011/10/6 0:06:00
--
执行代码时，提示错误。
此主题相关图片如下：capture.png