delphi 数据库里日期相减得到年龄的值如何写

delphi 数据库里日期相减得到年龄的值怎么写
数据表有一个字段叫"出生日期",我想通过( 当前系统日期-出生日期=年龄)

我这样写肯定不对
adoquery1Age.Value:=当前日期-adoquery1Birth.VALUE;

不想用SQL,请帮我改一下,谢谢!

[解决办法]
round(Now() - 出生日期.AsDateTime)
[解决办法]
AsDateTime 转换成日期类型

SQL查询直接显示:
select datepart(yy,getdate())-datepart(yy,出生日期) as 年龄 from t
[解决办法]
我写的一个由出生日，得出年龄的函数： 
function BirtherToAge(S:string):String; var s1,s2:string;
L:integer;
begin
Result := '';
l:=length(S);
if L=10 then
begin
S1:=copy(S,1,4)+'.'+copy(s,6,2);
DateTimetoString(s2,'yyyy.mm',now);
Result:=IntToStr(Trunc(StrToFloat(s2)-StrToFloat(s1)));
end;
end;