date - 进行中，如何根据今天的日期计算特定的上一个日期

Question

我刚刚在 4 年的裁员后重新开始工作......我正在尝试使用 Progress 10.1C 找出以下报告

我需要确定该月的最后一天，即今天日期前 3 个月

示例：今天是 2013 年 7 月 1 日。所以我需要带入 4 月的最后一天。所以当月减去 2 - 然后该月的第一天减去 1。

谢谢

Answer 1

function dx returns date ( input d as date ):

  define variable yx as integer no-undo.
  define variable mx as integer no-undo.

  if month( d ) >= 3 then
    mx = month( d ) - 2.
   else
    assign
      yx = 1
      mx = 10 + month( d )
    .

  return date( mx, 1, ( year( d ) - yx )) - 1.

end.

display dx( 7/1/2013 ).