關於代碼的問題!

[bbsnoogq]

在看程序中看到這些代碼不明白什麼意思!
if rb_7.checked=true then
year1=datetime(date(LEFT(sle_date.text,4)+'/'+MID(SLE_date.TEXT,5,2)+'/'+'01'))
if mid(sle_date.text,5,2) ='12' then
year2=datetime(date(string(integer(left(sle_date.text,4)) + 1)+'/01/01'))
else
year2=datetime(date(LEFT(sle_date.text,4)+'/'+ string(integer(MID(SLE_date.TEXT,5,2))+1) +'/'+'01'))
end if

[li_d_s]

很简单，根据sle_date的内容，year1的结果是那个月的1号，而year2则是下个月的1号
比如sle_date的内容是2006-02-17 那么year1 = '2006-02-01' year2 = '2006-03-01'
如果sle_date的内容是2005-12-17 那么year1 = '2005-12-01' year2 = '2006-01-01'

[bbsnoogq]

哦!明白了!非常感謝你的提醒!