openedge - 如何在 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

使用 interval功能。

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

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

返回 29(只要今天在今年的 16 号之前) - 也可以很好地处理闰年。