一 : 一个微软未公开的小写转大写函数

一个微软未公开的小写转大写函数

2009-5-9 11:42:08　来源: 转载　作者:不详　录入：admin　访问：2487 次　被顶：3 次　字号：【大 中 小】

核心提示：Excel函数大小写转换。...NumberString(1234567890,1) ＝ 一十二亿三千四百五十六万七千八百九

NumberString(1234567890,2) ＝ 壹拾贰亿叁仟肆佰伍拾陆万柒仟捌佰玖拾

NumberString(1234567890,3) ＝ 一二三四五六七八九

TEXT(1234567890,"[DBNum1]")=一十二亿三千四百五十六万七千八百九十

TEXT(1234567890,"[DBNum2]")=壹拾贰亿叁仟肆佰伍拾陆万柒仟捌佰玖拾

TEXT(1234567890,"[DBNum1]0")=一二三四五六七八九○

TEXT(1234567890,"[DBNum2]0")=壹贰叁肆伍陆柒捌玖零

IF(MOD(123456789,1)=0,NUMBERSTRING(123456789,2)&"元整",NUMBERSTRING(123456789,2)&"元"&TEXT(MID(MOD(123456789,1),3,1),"[DBNum2]")&"角"&TEXT(MID(MOD(123456789+0.005,1),4,1),"[dbnum2]")&"分")=壹亿贰仟叁佰肆拾伍万陆仟柒佰捌拾玖元整

IF(MOD(123456.789,1)=0,NUMBERSTRING(123456.789,2)&"元整",NUMBERSTRING(123456.789,2)&"元"&TEXT(MID(MOD(123456.789,1),3,1),"[DBNum2]")&"角"&TEXT(MID(MOD(123456.789+0.005,1),4,1),"[dbnum2]")&"分")=壹拾贰万叁仟肆佰伍拾柒元柒角玖分

如果不需要对分进行四舍五入就不要加0.005

本文来自办公软件学习网，原文地址：http://www.61k.com

二 : 大小写数字转换

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

2312.34123.451234.5612345.67123456.781234567.8912345678.90123456789.01987654321.091.510.01100.0110000.91100.990.0010000.91100.990.0010000.91100.990.005500.001.00

2.00壹拾贰元叁角肆分壹佰贰拾叁元肆角伍分壹仟贰佰叁拾肆元伍角陆分壹万贰仟叁佰肆拾伍圆陆角柒分壹拾贰万叁仟肆佰伍拾陆元柒角捌分壹佰贰拾叁万肆仟伍佰陆拾柒元捌角玖分壹仟贰佰叁拾肆万伍仟陆佰柒拾捌元玖角壹亿贰仟叁佰肆拾伍万陆仟柒佰捌拾玖元零壹分玖亿捌仟柒佰陆拾伍万肆仟叁佰贰拾壹元零玖分壹元伍角壹分壹分壹佰元零壹分壹万元玖角壹分壹佰元玖角玖分零元整壹万元玖角壹分壹佰元玖角玖分零元整壹万元玖角壹分壹佰元玖角玖分零元整伍仟伍佰元整壹元整

三 : 大小写数字转换

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

2312.34123.451234.5612345.67123456.781234567.8912345678.90123456789.01987654321.091.510.01100.0110000.91100.990.0010000.91100.990.0010000.91100.990.005500.001.00

2.00壹拾贰元叁角肆分壹佰贰拾叁元肆角伍分壹仟贰佰叁拾肆元伍角陆分壹万贰仟叁佰肆拾伍圆陆角柒分壹拾贰万叁仟肆佰伍拾陆元柒角捌分壹佰贰拾叁万肆仟伍佰陆拾柒元捌角玖分壹仟贰佰叁拾肆万伍仟陆佰柒拾捌元玖角壹亿贰仟叁佰肆拾伍万陆仟柒佰捌拾玖元零壹分玖亿捌仟柒佰陆拾伍万肆仟叁佰贰拾壹元零玖分壹元伍角壹分壹分壹佰元零壹分壹万元玖角壹分壹佰元玖角玖分零元整壹万元玖角壹分壹佰元玖角玖分零元整壹万元玖角壹分壹佰元玖角玖分零元整伍仟伍佰元整壹元整

本文标题：数字大小写转换-一个微软未公开的小写转大写函数
本文地址： http://www.61k.com/1142397.html