PB日期设立

PB日期设置
在窗体上有两个EditMask控件，第一个显示当前的日期，第二个显示当月的月底日期，求PB代码怎样写？

[解决办法]
当前的日期 是today()

当月的月底日期

C/C++ code

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