Question

vfp 设置几条命令自动求出一个日期数据中用中国字表示的星期几

Answer 1

PROCEDURE GetChXQ &&根据日期返回相应的中文星期
PARAMETERS InDate
tmp2=cdow(InDate)
do case
case tmp2="Monday"
tmp2="星期一"
case tmp2="Tuesday"
tmp2="星期二"
case tmp2="Wednesday"
tmp2="星期三"
case tmp2="Thursday"
tmp2="星期四"
case tmp2="Friday"
tmp2="星期五"
case tmp2="Saturday"
tmp2="星期六"
case tmp2="Sunday"
tmp2="星期天"
ENDCASE
RETURN tmp2

用法，GetChXQ(日期)

Answer 2

这个简单
input "输入日期数据:" to d
n=dow(d)
m=substr("日一二三四五六",n*2-1,2)
?,"日期是星期"+m

Answer 3

算法可以精简一下：
PROCEDURE GetChXQ &&根据日期返回相应的中文星期
PARAMETERS InDate
tmp2="星期"+substr("日一二三四五六",DOW(InDate)*2-1,2)
RETURN tmp2
*用法，GetChXQ(日期)