如果在年代增加的同时动态自动增加记录中的数字（如年龄）、年代每加一年年龄也自动加1？

Question

按常规做法,你的方法有些不当,库中最好保存'出生日期',而不应保存'年龄'.
自动:
   你应再建一个表,存储一条记录(保存上年年度).
   在TTimer事件中判断与当前年度的大小关系后给年龄加1
手动:
   写个语句:update 123.db set 年龄=年龄+1 建议你用'出生日期'

Answer 1

做一个日期相减函数:
var
   NowYear,NowMonth,NowDay:word;
   BirYear,BirMonth,BirDay:word;
begin
   decodedate(date(),NowYear,NowMonth,NowDay);
   decodedate(生日,BirYear,BirMonth,BirDay);
   result:=NowYear-BirYear-1;
   if BirMonth<=NowMonth then
   begin
      if BirMonth<NowMonth then
         result:=result+1
      else if BirDay<=NowDay then
         result:=result+1;
   end;
end;

Answer 2

假设你在数据库中保存了出生日期,则查询可用类似下面sql实现年龄
select nianling=datediff('yy',birthday,getdate()) from yourtable

Answer 3

to tangrh(阿唐):
paradox表不支持SQL命令:DateDiff

Answer 4

还是renzhm(戴尔飞)的可能可以，我还没试，因为这几天一直有事，来不及上机。