UC知道VFP改错 在线等！ 拜托了
来源：百度知道 编辑：UC知道 时间：2024/06/20 05:38:11
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
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
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