PB日期设置
在窗体上有两个EditMask控件，第一个显示当前的日期，第二个显示当月的月底日期，求PB代码怎样写？
[解决办法]
当前的日期 是today()

当月的月底日期

integer li_Month, li_Year

li_Year = year( today())
li_Month = month( today())
li_Month = li_Month + 1
if ( li_Month > 12 ) then
li_Month = 1
li_year = li_Year + 1
end if
当月的月底日期 = ( RelativeDate( date( li_Year, li_Month, 1 ), - 1 ) )