[stackoverflow] [progress Openedge Abl] Could Someone Help Me To Undestand This Code?

[user2287892]

Could you help me to understand what this code is doing?

def var v_fectr1 as date no-undo.
def var v_fectr2 as date no-undo.

v_fectr1 = date(month(today),01,year(today)).
if month(v_fectr1) < 12 then v_fectr2 = (date(month(today) + 1,01,year(today)) - 1).
else v_fectr2 = (date(01,01,year(today) + 1) - 1).


Thanks

Continue reading...