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

[hikmetalemdaroglu@gmail.c]

This is a simle procedure it works fine. /* --------------------------------------- * FIRST DAY AND LAST DAY OF LAST MONTH HIKMET ALEMDAROGLU hikmetalemdaroglu@gmail.com www.kronosoft.com.tr * ---------------------------------------- */ DEF INPUT PARAM PR-INDATE AS DATE format "99/99/9999" NO-UNDO. /* MM/DD/YYYY */ DEF OUTPUT PARAM PR-PREVDATE_OF_FIRST_DAY AS DATE format "99/99/9999" NO-UNDO. DEF OUTPUT PARAM PR-PREVDATE_OF_LAST_DAY AS DATE format "99/99/9999" NO-UNDO. ASSIGN PR-PREVDATE_OF_FIRST_DAY = PR-INDATE - (DAY(PR-INDATE) + DAY(PR-INDATE - DAY(PR-INDATE))) + 1 PR-PREVDATE_OF_LAST_DAY = PR-INDATE - DAY(PR-INDATE).

Continue reading...