[progress Communities] [progress Openedge Abl] Forum Post: Re: Find First Day And Last Day...

  • Thread starter Thread starter Jens Dahlin
  • Start date Start date
Status
Not open for further replies.
J

Jens Dahlin

Guest
I would leave it to the ABL. Add a month and remove a day. PROCEDURE getFirstAndLastDate: DEFINE INPUT PARAMETER pdaDate AS DATE NO-UNDO. DEFINE OUTPUT PARAMETER pdaFirstDate AS DATE NO-UNDO. DEFINE OUTPUT PARAMETER pdaLastDate AS DATE NO-UNDO. ASSIGN pdaFirstDate = DATE( MONTH(pdaDate), 1, YEAR(pdaDate)) pdaLastDate = ADD-INTERVAL(pdaFirstDate, 1, "months") - 1. END.

Continue reading...
 
Status
Not open for further replies.
Back
Top