作业帮 > 综合 > 作业

vf中任意日期用汉字表示是星期几怎么写

来源:学生作业帮 编辑:搜搜考试网作业帮 分类:综合作业 时间:2024/04/29 12:35:04
vf中任意日期用汉字表示是星期几怎么写
vf中任意日期用汉字表示是星期几怎么写
试试:
CLEAR
LOCAL i,d
FOR i = -5 TO 5
d = DATE() + i
' 是星期 '
func_A(d)
ENDFOR
PROCEDURE func_A(dDate)
LOCAL cLst
cLst = "日一二三四五六七"
RETURN SUBSTR(cLst,(DOW(dDate) - 1)*2 + 1,2)
ENDPROC
一步到位的写法:
&& cOut:汉字表示的星期几
&& dDate:你指定的日期
cOut = SUBSTR("日一二三四五六七",(DOW(dDate) - 1)*2 + 1,2)
例如:
SUBSTR("日一二三四五六七",(DOW({^2011-03-01}) - 1)*2 + 1,2)