货币大小写 转换

1 6 竭诚为您提供优质文档/双击可除

人民币大小写规范

篇一：人民币大写金额的规范

人民币大写金额的规范

壹、贰、叁、肆、伍、陆、柒、捌、玖、拾、佰、仟、万、亿、元、角、分、零、整（正）

正确填写票据和结算凭证的基本规定

银行、单位和个人填写的各种票据和结算凭证是办理支付结算和现金收付的重要依据，直接关系到支付结算的准确、及时和安全。票据和结算凭证是银行、单位和个人凭以记载账务的会计凭证，是记载经济业务和明确经济责任的一种书面证明。因此，填写票据和结算凭证，必须做到标准化、规范化，要要素齐全、数字正确、字迹清晰、不错漏、不潦草，防止涂改。中文大写金额数字应用正楷或行书填写，如壹（壹）、贰（贰）、叁、肆（肆）、伍（伍）、陆（陆）、柒、捌、玖、拾、佰、仟、万（万）、亿、元、角、分、零、整（正）等字样。不得用一、二（两）、三、四、五、六、七、

2 6 八、九、十、念、毛、另（或０）填写，不得自造简化字。如果金额数字书写中使用繁体字，如贰、陆、亿、万、圆的，也应受理。

中文大写金额数字到”元”为止的，在”元”之后，应写”整”（或”正”）字，在”角”之后，可以不写”整”（或”正”）字。大写金额数字有”分”的，”分”后面不写”整”（或”正”）字。

中文大写金额数字前应标明”人民币”字样，大写金额数字有”分”的，”分”后面不写”整”（或”正”）字。

中文大写金额数字前应标明”人民币”字样，大写金额数字应紧接”人民币”字样填写，不得留有空白。大写金额数字前未印”人民币”字样的，应加填”人民币”三字。在票据和结算凭证大写金额栏内不得预印固定的”仟、佰、拾、万、仟、佰、拾、元、角、分”字样。

阿拉伯数字小写金额数字中有”0〃时，中文大写应按照汉语语言规律、金额数字构成和防止涂改的要求进行书写。举例如下：

．阿拉伯数字中间有”0〃时，中文大写要写”零”字，如￥1409.50，应写成人民币陆壹仟肆佰零玖元伍角。

小写（键入）大写（输出）

324654.69叁拾贰万肆仟陆佰伍拾肆元陆角玖分Excel电子表格中将金额小写转换成人民币大写的公式

将单元格名称换成要转换的金额小写所在单元格位置。SUBSTITUTE(SUBSTITUTE(IF(单元格名称<0,"负","")&TEXT(TRUNC(ABS(ROUND(单

元格名称,2))),"[DBNum2]")&"元"&IF(ISERR(FIND(".",ROUND(单元格名

称,2))),"",TEXT(RIGHT(TRUNC(ROUND(单元格名

称,2)*10)),"[DBNum2]"))&IF(ISERR(FIND(".0",TEXT(单元格名称,"0.00"))),"

角","")&IF(LEFT(RIGHT(ROUND(单元格名称,2),3))=".",TEXT(RIGHT(ROUND(单

元格名称,2)),"[DBNum2]")&"分",IF(ROUND(单元格名称,2)=0,"","整")),"零元

零",""),"零元","零")

C++——⼤⼩写转换

⼤⼩写转换需求如下：

代码如下：

1 #include

2 int main()

3 {

4 char ch;

5 std::cin>>ch;

6 if(ch>'a'&&ch<'z')

7 {ch=ch-32; std::cout<

8 else if(ch>'A'&&ch<'Z')

9 { ch=ch+32; std::cout<

10 return 0;

11 }

分析与总结：

1、关键点是知道⼤⼩写背后的逻辑是ascll码数值的变化，即：⼩写字母减32变成⼤写字母，相

对应的⼤写字母加上32变成⼩写字母。

也可以简单记成是：⼩⼤，⼤⼩（⼩的数⼤，就要减去32，⼤的数⼩，就要加上32.）

写在最后：

哪⾥有不⾜或者错误的地⽅，欢迎⼩伙伴们进⾏指教，⼀起进步哦！

[转]Delphi12种⼤⼩写转换的⽅法

----------第⼀种⽅法----------

function TPrintfrm.NumToChar(n: Real): wideString; //可以到万亿,并可随便扩⼤

const

cNum: WideString = '零壹贰叁肆伍陆柒捌玖-万仟佰拾亿仟佰拾万仟佰拾元⾓分';

cCha: array[0..1, 0..11] of string =

(('零仟','零佰','零拾','零零零','零零',

'零亿','零万','零元','亿万','零⾓','零分','零整'),

( '零','零','零','零','零','亿','万','元','亿','零','整','整'));

var

i: Integer;

sNum :WideString;

begin

Result := '';

//n := Round(n*10)/10;

//FormatFloat('0.0',)

sNum := FormatFloat('0',n*100);

for i := 1 to Length(sNum) do

Result := Result + cNum[ord(sNum[i])-47] + cNum[26-Length(sNum)+i];

for i:= 0 to 11 do // 去掉多余的零

Result := StringReplace(result, cCha[0,i], cCha[1,i], [rfReplaceAll]);

end; ----------第⼆种⽅法----------

function TSnnofrm.LowToUpcase(xx: Real): string;

var

i: Integer;

j,dxhj: string;

zero: boolean;

begin

j := FormatFloat('0.0',xx);

j := Trim(IntToStr(Round(xx*100)));