第1个回答 2016-03-31
* CLEAR
input "qin shu ru ri qi:" to t2
t1={^2016-2-28}
t=t2-t1
DO CASE
CASE MOD(t,7)=0
? [星期天]
CASE MOD(t,7)=1
? [星期一]
CASE MOD(t,7)=2
? [星期二]
CASE MOD(t,7)=3
? [星期三]
CASE MOD(t,7)=4
? [星期四]
CASE MOD(t,7)=5
? [星期五]
CASE MOD(t,7)=6
? [星期六]
ENDCASE
RETURN本回答被网友采纳