如何计算年龄

Question

dbedit1 显示出生日期
dbedit2显示年龄
我想让只要出生日期填入后，dbedit2自动填入年龄（现在的年月日-出生年月日，求整数），不知道如何写

Answer 1

dbedit2.field.asinteger:=date-dbedit1.field.asdatatime;

Answer 2

dbEdit2.field.asInteger:=int(now-dbedit1.field.asDataTime);

Answer 3

dbedit2.field.asinteger := date-dbedit1.field.asdatatime //error
dbedit2.field.asinteger := 
  date-dbedit1.FieldByName('strFieldName').asdatatime

Answer 4

dbedit2.text:=inttostr(date-strtodata(dbedit1.text));

Answer 5

在dbedit2  onchang事件老是过不去，说strtodata没定义。怎么回事？？高手进

Answer 6

strtodata?????
data?
date? ............郁闷中

Answer 7

所在单元
DateUtilsedit2.Text := currTostr(yearof(now)-yearof(strtodatetime(dbedit1.text)));可以解决的.

Answer 8

上面的人好象都是想当然在这儿说哟 :)我知道可以这样：（只有思路）
把年月日分开来求，取得当前的年月日和出生日期的年月日，再按整数求差的规则即可
如：
Int(FormatString('yyyymmdd', now())) - Int(FormatString('yyyymmdd', Birthday))
上面的数求整即为周岁，进一位即为虚岁
函数的名字不一定对，有点忘了，呵呵