d day s 5I 0
d nextMonth s d DatFmt(*ISO)
d endOfMonth s d DatFmt(*ISO)
d myDate s d Inz(d'2011-02-05')
d wait s 1a
c*
c myDate AddDur 1:*Months nextMonth
c Extrct nextMonth:*D day
c nextMonth SubDur day:*Days EndOfMonth
c*
/free
dsply %char(EndOfMonth) wait;
/end-free
c*
c SETON LR
c RETURN
阅读(1212) | 评论(0) | 转发(1) |
