cleart1={^2008-03-02}tx={^2008-05-20}n=VAL(tx-t1)t2=t1+6for i=1 to 20"第"+str(i)+'周:'t1,'-',t2t1=t2+1t2=t1+6endforx=int(n/7)+1if x>20'该日期不落在本学期'elsey=subs('日一二三四五六',2*dow(tx)-1,2)tx+'是第'+str(x)+'周星期'+yendi
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/05 04:07:08
![cleart1={^2008-03-02}tx={^2008-05-20}n=VAL(tx-t1)t2=t1+6for i=1 to 20](/uploads/image/z/12079137-57-7.jpg?t=cleart1%3D%7B%5E2008-03-02%7Dtx%3D%7B%5E2008-05-20%7Dn%3DVAL%28tx-t1%29t2%3Dt1%2B6for+i%3D1+to+20%22%E7%AC%AC%22%2Bstr%28i%29%2B%27%E5%91%A8%3A%27t1%2C%27-%27%2Ct2t1%3Dt2%2B1t2%3Dt1%2B6endforx%3Dint%28n%2F7%29%2B1if+x%3E20%27%E8%AF%A5%E6%97%A5%E6%9C%9F%E4%B8%8D%E8%90%BD%E5%9C%A8%E6%9C%AC%E5%AD%A6%E6%9C%9F%27elsey%3Dsubs%28%27%E6%97%A5%E4%B8%80%E4%BA%8C%E4%B8%89%E5%9B%9B%E4%BA%94%E5%85%AD%27%2C2%2Adow%28tx%29-1%2C2%29tx%2B%27%E6%98%AF%E7%AC%AC%27%2Bstr%28x%29%2B%27%E5%91%A8%E6%98%9F%E6%9C%9F%27%2Byendi)
cleart1={^2008-03-02}tx={^2008-05-20}n=VAL(tx-t1)t2=t1+6for i=1 to 20"第"+str(i)+'周:'t1,'-',t2t1=t2+1t2=t1+6endforx=int(n/7)+1if x>20'该日期不落在本学期'elsey=subs('日一二三四五六',2*dow(tx)-1,2)tx+'是第'+str(x)+'周星期'+yendi
clear
t1={^2008-03-02}
tx={^2008-05-20}
n=VAL(tx-t1)
t2=t1+6
for i=1 to 20
"第"+str(i)+'周:'
t1,'-',t2
t1=t2+1
t2=t1+6
endfor
x=int(n/7)+1
if x>20
'该日期不落在本学期'
else
y=subs('日一二三四五六',2*dow(tx)-1,2)
tx+'是第'+str(x)+'周星期'+y
endif
cleart1={^2008-03-02}tx={^2008-05-20}n=VAL(tx-t1)t2=t1+6for i=1 to 20"第"+str(i)+'周:'t1,'-',t2t1=t2+1t2=t1+6endforx=int(n/7)+1if x>20'该日期不落在本学期'elsey=subs('日一二三四五六',2*dow(tx)-1,2)tx+'是第'+str(x)+'周星期'+yendi
clear
t1={^2008-03-02}
tx={^2008-05-20}
n=tx-t1
t2=t1+6
for i=1 to 20
"第"+(str(i)+'周:'
t1,'-',t2
t1=t2+1
t2=t1+6
endfor
x=int(n/7)+1
if x>20
'该日期不落在本学期'
else
y=subs('日一二三四五六',2*dow(tx)-1,2)
dtoc(tx)+'是第'+str(x)+'周星期'+y
endif