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

[OctavioOlguin]

I use the following to find the first and last day of any month, given a date inside the month DEFINE INPUT PARAMETER pDate AS DATE NO-UNDO. DEFINE OUTPUT PARAMETER pDate1 AS DATE NO-UNDO. DEFINE OUTPUT PARAMETER pDate31 AS DATE NO-UNDO. IF month(pDate) = 12 THEN ASSIGN pDate31 = DATE(MONTH(pDate), 31, YEAR(pDate)) pdate1 = DATE(MONTH(pDate), 1, YEAR(pDate)). ELSE ASSIGN pDate31 = DATE(INTEGER(pMes) + 1, 1, INTEGER(pAnio)) - 1 pdate1 = DATE(MONTH(pDate), 1, YEAR(pDate)). Greetings

Continue reading...