These are informix/4GL lines. I am writing equivalent perl code
Can anyone explain me what this code performs
sdate be any date
------------------
let mnth = month(sdate)
let yr = year(sdate)
# let edatec = mnth using "&&", "/01/", yr using "&&&&"
let edate = edatec
# let edate = extend(edate) + 1 units month - 1 units day
I have problems on how to translate to Perl on # marked lines
Kaladhaur
Can anyone explain me what this code performs
sdate be any date
------------------
let mnth = month(sdate)
let yr = year(sdate)
# let edatec = mnth using "&&", "/01/", yr using "&&&&"
let edate = edatec
# let edate = extend(edate) + 1 units month - 1 units day
I have problems on how to translate to Perl on # marked lines
Kaladhaur