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/11/16 09:57:17
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