主题:日期换为大写怎样表示
ss
[专家分:0] 发布于 2009-11-06 13:09:00
日期换为大写怎样表示
回复列表 (共2个回复)
沙发
sywzs [专家分:5650] 发布于 2009-11-06 15:41:00
是转换为汉字的形式吧。比如: “2009.11.06” 转为 “二零零九年十一月六日”
SET DATE ANSI
SET CENT ON
HSZC='零一二三四五六七八九'
RQ=""
cRQ=DTOC(DATE())
cNY=LEFT(cRQ,4)+SUBS(cRQ,6,2)
FOR I=1 TO 4
RQ=RQ+SUBS(HSZC,VAL(SUBS(cNY,I,1))*2+1,2)
ENDFOR
nYF=VAL(RIGHT(cNY,2))
nRQ=VAL(RIGHT(cRQ,2))
RQ=RQ+'年'+IIF(nYF>9,'十','')+IIF(MOD(nYF,10)>0,SUBS(HSZC,MOD(nYF,10)*2+1,2),'')+'月'
RQ=RQ+IIF(nRQ>19,SUBS(HSZC,INT(nRQ/10)*2+1,2),'')+IIF(nRQ>9,'十','')+IIF(MOD(nRQ,10)>0,SUBS(HSZC,MOD(nRQ,10)*2+1,2),'')+'日'
?RQ
板凳
Gleam [专家分:3100] 发布于 2009-11-06 15:47:00
... ...
这个问题已经有人问了,你查看一下 Ilikefox 赵老师的回帖吧。
我来回复