Усложнение задачи.Как в case проверить условие вхоэждения?

[Andrew K.]

А как же високосный год? Для такой задачи можно приспособить стандарт..
TransDate dt1 = mkDate(1,1,2004);
TransDate dt2 = mkDate(31,12,2004);
;
info (strfmt("Difference %1, Difference year %2", dt2 - dt1, yearDiff(dt2, dt1)));
dt2 = mkDate(1,1,2005);
info (strfmt("Difference %1, Difference year %2", dt2 - dt1, yearDiff(dt2, dt1)));