如何计算OpenEdge ABL中出生日期的年龄？

Question

我是新手,我想从出生日算出年龄,我不知道该怎么做.如果有人知道这个,请帮助我.提前致谢.

到目前为止我尝试过的是:

define var dob as date.
define var age as character.
assign
      dob = 09/16/1988.
      age = STRING(INT(YEAR(TODAY) - YEAR(dob ))).
      message age view-as alert-box.

它显示30岁,但实际上年龄是29岁.

Answer 1

使用间隔功能.

define var dob as date initial 09/16/1988.

message interval( today, dob, "years" ) view-as alert-box.

返回29(只要今天是今年16日之前) - 处理闰年也很好.