求助大虾

jiangxu

如何利用系统时间和文本框1中输入的出生日期来计算一个人的年龄并显示在文本框2中。
请各位大虾指教。

大熊

就用那Year函数取出年份作一次减法运算就好了。

jiangxu

我已经找到了一个方法：
我找到的方法是用  DateDiff函数
dim mylong as long
dim mydate as date
mylong = datediff ("yyyy",me!(出生日期.text,mydate)
但是每个人都有周岁
例如：生日是7月31日之前的人，应该周一岁，8月1日后的，应该周两岁。
比如2002年2月4日生人是1岁，2002年10月2日生人是0岁（我们这的人事管理都是这样算的）。
应该怎样做？大虾指教。

Roadbeg

带日期一起计算不就得了

jiangxu

究竟怎样算，请多多指教！
是用mylong = datediff ？？？吗？

[此贴子已经被作者于2003-3-7 23:40:17编辑过]

Roadbeg

mylong=datediff("y",me!出生日期.text,mydate)

jiangxu

这个算出来的是天数，而不是岁数，我要求的是岁数。（周岁）。有没有方法能把月份提出来转换为 long？