急求，明天要，VFP程序设计

来源：百度知道 编辑：UC知道 时间：2024/05/31 22:16:27
试设计一个自定义函数，能够用任何日期型表达式作为自变量，并返回用大写汉字表示的这个日期。例如：把日期型常量{^2006-05-18}作为自变量，就将返回字符串“二零零六年五月十八日”。

*** 潘长江语录：浓缩的都是精华。

*** 程序之一：手动输入日期

CLOSE ALL
CLEAR ALL
CLEAR
SET TALK OFF

cCurrentDateSet = SET("Date")
cCurrentCenturySet = SET("Century")
SET DATE TO YMD
SET CENTURY ON
nInputTime = 0
DO WHILE .T.
IF nInputTime = 0
INPUT "请输入日期：" TO dInputDate
ELSE
INPUT "您输入的内容不是日期，请重新输入日期：" TO dInputDate
ENDIF
IF EMPTY(dInputDate)
EXIT
ENDIF
IF TYPE([dInputDate]) = "D"
EXIT
ENDIF
nInputTime = 1
ENDDO
?EngDate2ChiDate(dInputDate)
SET TALK ON
SET DATE TO &cCurrentDateSet.
SET CENTURY &cCurrentCenturySet.
RETURN

FUNCTION EngDate2ChiDate
PARAMETERS dFuncDate
cFuncYear = SUBSTR(DTOC(dFuncDate), 1, 4)
cFuncMonth = SUBSTR(DTOC(dFuncDate), 6, 2)
cFuncDay = SUBSTR(DTOC(dFuncDate), 9, 2)

cBasicNumber = "0123456789"
cChineseN