请问"年龄"怎么求? 我用DELPHI +SQL SERVER 做的系统请问是在DELPHI 里做还是在SQL SERVER里做呀!都是怎么实现的有一个字段是"出生日期"谢谢!! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 select DATEDIFF ( yyyy , startdate , enddate ) as FAge from tblName DateUtilsCategorydate/time routinesfunction YearSpan(const ANow, AThen: TDateTime): Double; DateUtilsCategorydate/time routinesfunction YearsBetween(const ANow, AThen: TDateTime): Integer; 不过这样算的是虚岁,也可以在DELPHI中用计算字段实现 var birthday:Tdatetime; year,month,day:word; birthdayYear,DateYear,age:integer;begin decodedate(birthday,year,month,day); birthdayyear:=year; decodedate(Date,year,month,day); dateaayear:=year; Age:=Dateyear-Birthdayyear; end; delphi中的抽象类的定义 问题进不去了,结不了贴,怎么办? 请帮忙提供几个好的dbgrid控件下载地址.急用!谢谢! delphi5的ado的bug 能不能用delphi做网页。。。。 请教几个Excel的问题(特急) 如何跟踪应用程序执行的SQL语句 关于dll的问题!请进! 怎么解压缩一个.zip的压缩文件? 什么是明细表? 求教delphi中搜索(查询)数据的几种方式。 怎么样使程序运行时,treeview里面的列自动展开,现在运行时没有展开,只有点了+号后才展开
birthday:Tdatetime;
year,month,day:word;
birthdayYear,DateYear,age:integer;
begin
decodedate(birthday,year,month,day);
birthdayyear:=year;
decodedate(Date,year,month,day);
dateaayear:=year;
Age:=Dateyear-Birthdayyear;
end;