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
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
最新问答: 下列叙述错误的一项是:A.欧洲和亚洲 突发奇想的意思是什么 Is his brother David or Mike? 已知a+b=-5,ab=4,求下列式子的值: 有谁知道,基金管理的归因分析有哪些步骤? 在“探究加速度与力、质量的关系”实验中,采用如图1所示的装置. 什么是“黑箱”?并举例说明. 呈碱性的物质一定有腐蚀性吗 现在的人类,我们该怎样拯救我们的地球? kick的过去式 Confucius is happening in life 某校六年级一共有120名学生,每人至少参加电脑兴趣小组和科技兴趣小组中的一个,其中四分之三的同学参加电脑兴趣小组,十二分 关于父母对子女的抚养 关于父母对子女的抚养义务,下列理解正确的是 以一个基因为例,设计至少两种使cDNA序列分离的方法简述其过程 从1到一百相加等于几 我心永不变的英文翻译是什么?跪求英文好的 翻译下 已知:角L与线段a求作:三角形abc,使三角形ab=a,角b=2L,角A=L howdoanimalsspendthewinter这篇短文的翻译 家乡的景物 作文100字 谁知道监视、人迹罕至、耐心、开拓、畅通无阻的反义词.险峻、畅通无阻、颠簸、坎坎坷坷、目不转晴的近义