date d1
date d2
integer n,m
string ls_year,ls_moth,ls_day
d1=today()

ls_year = string(year(today())
m = integer(ls_year) + 1

n = integer(month(today())+1
if n>0 and n<10 then
   ls_month = '0' + string(n)
elseif n>=10 and n<=12 then
   ls_month = string(n)
elseif n = 13 then
   ls_year =  string(m)
   ls_month = '01'
endif

ls_day = string(day(today())

sle_1.text = ls_year + ls_month + ls_day

楼上还缺少了润年\月份的判断.