回 帖 发 新 帖 刷新版面

主题:日期换为大写怎样表示

日期换为大写怎样表示

回复列表 (共2个回复)

沙发

是转换为汉字的形式吧。比如: “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

板凳

... ...
这个问题已经有人问了,你查看一下 Ilikefox 赵老师的回帖吧。

我来回复

您尚未登录,请登录后再回复。点此登录或注册