小写变大写函数

=IF(ROUND(H13,2)<0,"无效数值",IF(ROUND(H13,2)=0,"零",IF(ROUND(H13,2)<1,"",TEXT(INT(ROUND(H13,2)),"[dbnum2]")&"元")&IF(INT(ROUND(H13,2)*10)-INT(ROUND(H13,2))*10=0,IF(INT(ROUND(H13,2))*(INT(ROUND(H1 3,2)*100)-INT(ROUND(H13,2)*10)*10)=0,"","零"),TEXT(INT(ROUND(H13,2)*10)-INT(ROUND(H13,2))*10,"[dbnum2]")&"角")&IF((INT(ROUND(H13,2)*100)-INT(ROUND(H13,2)*10)*10)=0,"整",TEXT((INT(ROUND(H13,2)*100)-INT(ROUND(H13,2)*10)*10),"[dbnum2]")&"分")))

小写金额转换为大写金额(C实现)

前言 银行、单位和个人填写的各种票据和结算凭证是办理支付结算和现金收付的重要依据，直接关系到支付结算的准确、及时和安全。票据和结算凭证是银行、单位和个人凭以记载帐务的会计凭证，是记载经济业务和明确经济责任的一种书面证明。因此，填写票据和结算凭证，必须做到标准化、规范化，要要素齐全、数字正确、字迹清晰、不错漏、不潦草，防止涂改。 我的服务需要一个金额转换过程，本来想在网上找，但都是C++、JavaScript、Delphi 的Demo，还没有C的。索性自己写一个。参考了其它的转换算法，对我有些启发。 大多的算法都是直接分析字符串生成大写金额，即存在一个假设：源字符串的格式是正确的。在我的过程中，用状态机的方法分析源字符串，错误时，返回空指针（我可不敢保证传给我的过程的都是##.##）。分析出源字符串中整数部有多少个数字，是否有小数，统计结果放在一个结构体中，整数和小数部分的数字分别放在两个整形数组里。 有了统计数据就可以生成大写金额了。转换过程有个难点：要区分万、亿等“段”，特别是个位这个“段”，这个概念是在《小写转大写金额在C++中的实现》文章中提到的。在下面的程序中用j= ( size - i - 1 ) & 0x3，实际上是j = ( size - i - 1 ) % 4取模，j==0时为段尾，需要特殊处理。所有的处理都是围绕0来进行的，也就是说，0才是难点。 特殊位置的0，按段分，段中第一个非0数字前的0，可能有多个；段中两个非0数字间的0；段尾的0；个位的0；十分位，角位置的0。 另外，转换的一个重点是大写金额的写法，好像大多的算法都注重转换过程而对这个问题没有深究。我在文章后面附上转换规则。 下面是代码 1./** 2.* @brief 将源字符串中的小写金额转换为大写格式 3.* 4.* @param dest 目的字符串 5.* @param src 小写金额字符串 6.* @return 7.* - NULL 源字符串的格式错误，返回NULL 8.* - 非NULL 目的字符串的首地址 9.* @note 转换根据：中国人民银行会计司编写的最新《企业、银行正确办理支付结 算 10.* 指南》的第114页-第115页 11.*/ 12.char* chineseFee( char* dest, char* src ) 13.{

字母大小写转换训练

一、按格式、按字母顺序、按要求默写26个字母。 二、请给下面的大小写字母连线。 Q W E R T Y U I O P A S D p q s a d o w i e u r y t ______________________________________________________________________________ F G H J K L Z X C V B N M l k m n f g j z h x c v b 三、根据给出的大写字母写出相应的小写字母。 Q W E R T Y U I O P A S D F G H J K L Z X C V B N M

四、根据给出的小写字母写出相应的大写字母。 m n b v c x z l k j h g f d s a p o i u y t r e w q 五、根据前后字母写出所缺字母。 （1）Aa Bb ______ Dd ______ ____ Gg ______ Ii Jj Kk _____ _______ ______ Oo Pp _____ ______ Ss Tt Uu Vv Ww _______ _______ ________ （2）_____ _____ C ____ E F ____ _____ I J _____ L ____ _____ O P ____ ______ _____ T _____ _____ W X _____ ______ （3）a ____ _____ _____ e ____ _____ _____ i j k l ____ _____ ______ _____ _____ r s _____ u v w ____ _____ _____ 六、请根据下面的印刷体写出手写体。 Aa Ee Ff Gg Ii Jj Kk Ll Pp Qq Rr Tt Uu Xx Yy 7、写出下列字母的大写字母 b（） h（） e（） d（） n（）

WORD数字小写金额变大写

Sub 小写金额变大写() Dim Numeric As Currency, IntPart As Long, DecimalPart As Byte, MyField As Field, Lable As String Dim Jiao As Byte, Fen As Byte, Oddment As String, Odd As String, MyChinese As String Const ZWDX As String = "壹贰叁肆伍陆柒捌玖零" '定义一个中文大写汉字常量 On Error Resume Next '错误忽略 With Selection Numeric = VBA.Round(VBA.V al(.Text), 2) '四舍五入保留小数点后两位 '判断是否在表格中！！此处为向左MoveLeft移动1(count)个单元格(wdCell) If .Information(wdWithInTable) Then _ .MoveLeft unit:=wdCell, Count:=1 Else .MoveRight unit:=wdCharacter '对数据进行判断,是否在指定的范围内 If VBA.Abs(Numeric) > 2147483647 Then MsgBox "数值超过范围!", _ vbOKOnly + vbExclamation, "Warning": Exit Sub IntPart = Int(VBA.Abs(Numeric)) '定义一个正整数 Odd = VBA.IIf(IntPart = 0, "", "元") '定义一个STRING变量 '插入中文大写前的标签 Lable = VBA.IIf(Numeric = VBA.Abs(Numeric), "人民币大写: ", "金额大写: 负") '对小数点后面二位数进行择定 DecimalPart = (VBA.Abs(Numeric) - IntPart) * 100 Select Case DecimalPart Case Is = 0 '如果是0,即是选定的数据为整数 Oddment = VBA.IIf(Odd = "", "", Odd & "整") Case Is < 10 '<10,即是零头是分 Oddment = VBA.IIf(Odd <> "", "元零" & VBA.Mid(ZWDX, DecimalPart, 1) & "分", _ VBA.Mid(ZWDX, DecimalPart, 1) & "分") Case 10, 20, 30, 40, 50, 60, 70, 80, 90 '如果是角整 Oddment = "元" & VBA.Mid(ZWDX, DecimalPart / 10, 1) & "角整" Case Else '既有角,又有分的情况 Jiao = VBA.Left(CStr(DecimalPart), 1) '取得角面值 Fen = VBA.Right(CStr(DecimalPart), 1) '取得分面值 Oddment = Odd & VBA.Mid(ZWDX, Jiao, 1) & "角" '转换为角的中文大写 Oddment = Oddment & VBA.Mid(ZWDX, Fen, 1) & "分" '转换为分的中文大写 End Select '指定区域插入中文大写格式的域 Set MyField = .Fields.Add(Range:=.Range, Text:="= " & IntPart & " \*CHINESENUM2") MyField.Select '选定域(最后是用指定文本覆盖选定区域) '如果仅有角分情况下,Mychinese为"" MyChinese = VBA.IIf(MyField.RESULT <> "零", MyField.RESULT, "") .Text = Lable & MyChinese & Oddment End With End Sub

大小写转换公式

Excel自动转换数字大小写具体的操作步骤如下： 1. 启动excel。按“alt+f11”快捷键打开“visual basic编辑器”。 2. 在“visual basic编辑器”中，单击“插入”菜单栏中的“模块”命令，插入一个模块。双击左侧“工程”窗口中的“模块1”选项，在窗口右边展开“模块1（代码）”编辑窗口，然后输入如下代码: function dx(q) dim cur as long,yuan as long dim jiao as integer,fen as integer dim cnyuan as string, cnjiao as string, cnfen as string if q = "" then dx = 0 exit function end if cur = round(q * 100) yuan = int(cur / 100) jiao = int(cur / 10) - yuan * 10 fen = cur - yuan * 100 - jiao * 10

cnyuan = application.worksheetfunction.text(yuan, "[dbnum2]") cnjiao = application.worksheetfunction.text(jiao, "[dbnum2]") cnfen = application.worksheetfunction.text(fen, "[dbnum2]") dx = cnyuan & "元" & "整" d1 = cnyuan & "元" if fen <> 0 and jiao <> 0 then dx = d1 & cnjiao & "角" & cnfen & "分" if yuan = 0 then dx = cnjiao & "角" & cnfen & "分" end if end if if fen = 0 and jiao <> 0 then dx = d1 & cnjiao & "角" & "整" if yuan = 0 then dx = cnjiao & "角" & "整"

如何将小写金额变成大写数值

如何将小写数值变成大写数值 =IF(C10<0,"金额为负无效",IF(OR(C10=0,C10=""),"零元整",IF(C10<1,"",TEXT(INT(C10),"[dbnum2]G/通用格式")&"元"))) & IF(INT(C10*10)-INT(C10)*10=0,IF(INT(C10)*(INT(C10*100)-INT(C10*10)*10)=0,"","零"),TEXT(INT(C10*10)-INT(C10)*10,"[dbnum2]")&"角")&IF((INT(C10*100)-INT(C10*10)*10)=0,"整",TEXT((INT(C10*100)-INT(C10*10)*10),"[dbnum2]")&"分") excel表格中如何将小写金额转换为大写金额，如数值为0时则不在表中显示，如数值为负时则显示“负***”=IF(H12=0,"",IF(INT(H12),TEXT(TRUNC(H12),"[dbnum2]")&"元","")&IF(MOD(H12,1)=0,"整",IF(TRUNC(H12,1),IF(H12=TRUNC(H12,1),TEXT(LEFT(RIGHT(H12*100,2)),"[dbnum2]0角整"),TEXT(RIGHT(H12*100,2),"[dbnum2]0"&IF(LEFT(RIGHT(H12*100,2))="0","","角")&"0分")),TEXT(H12*100,"[dbnum2]0分")))) 如何在excel中输入小写金额，自动转换为大写金额 假设Sheet1的A4是你阿拉伯合计金额，以下为Sheet2中的小写金额=Sheet1!A4 假设这个公式是在Sheet2的C6单元格里，以下为大写金额=IF(INT(C6)-C6=0,TEXT(C6,"[DBNum2][$-804]G/通用格式""元整"""),TEXT(INT(C6),"[DBNum2][$-804]G/通用格式""元""")&TEXT(RIGHT(INT(C6*10),1),"[DBNum2][$-804]G/通用格式""角""")&TEXT(RIGHT(INT(C6*100),1),"[DBNum2][$-804]G/通用格式""分""")) 解释：IF(INT(C6)-C6=0,一串，另一串），如果C6是整数（函数INT是取整的意思，取整后减去原数为0，说明是整数），返回一串，否则返回另一串。函数TEXT(数，”格式“）把数变为指定格式，而”[DBNum2][$-804]G/通用格式“就是中文大写格式。函数RIGHT(字符串，位数）返回字符串最后几位数。元角分也是格式的一部分，""在已经有的引号范围内表示一个引号。

小写变大写

EXCEL人民币小写转大写 =IF((D3-INT(D3))=0,TEXT(D3,"[DBNUM2]")&"元整 ",IF(INT(D3*10)-D3*10=0,TEXT(INT(D3),"[DBNUM2]")&"元 "&TEXT((INT(D3*10)-INT(D3)*10),"[DBNUM2]")&"角整",TEXT(INT(D3),"[DBNUM2]")&"元"&IF(INT(D3*10)-INT(D3)*10=0,"零",TEXT(INT(D3*10)-INT(D3)*10,"[DBNUM2]")&"角 ")&TEXT(RIGHT(D3,1),"[DBNUM2]")&"分")) 1：这个嵌套函数所包含的INT函数作用是将任意实数向下取整为最接近的整数，比如 A1=13.24，则公式”INT（A1）“返回值13;TEXT函数的作用是就爱你个数值转换成按指定数字格式表示的文本；嵌套函数中的【dbnum2】作用是数字转中文大写。 2：整个嵌套函数的含义是：如果D3单元格的金额是一个自然数（”IF（（D3-INT(D3)））=0“）,那么就将其转换成大写金额后再加上”元整“二字（”TEXT（D3,"[DBNUM2]"）&"元整"”）；否则，如果D3单元格的金额是一个小数（“IF（INT（D3*10）-D3*10=0）”）, 就先将D3单元格中的整元的金额转换为大写再加上“元”字（“TEXT（INT（D3）,"[DBNUM2]"）&"元"”），后面再补充上D3单元格中整角的金额转换为大写并添加上“角整”二字（“&TEXT （（INT(d3*10)-INT(D3*10)."[DBNUM2]"）&"角整"）”）；在其他情况下，转换后的大写金额由D3单元格中整元的部分加上“元”，“零”（D3单元格中整角的金额为0时）或者D3单元格中的整角的金额，D3单元格中的整分的金额三部分组成。 以下是实例

单元格小写金额自动转换成大写金额

Excel中怎么实现小写金额自动转换成中文大写金额 EXCEL中数字小写换大写方法一： 在单元格A2中输入小写数字123.12 B2处输入以下公式 =SUBSTITUTE(SUBSTITUTE(IF(A2<0,"负 ","")&TEXT(TRUNC(ABS(ROUND(A2,2))),"[DBNum2]")&"元 "&IF(ISERR(FIND(".",ROUND(A2,2))),"",TEXT(RIGHT(TRUNC(ROUND(A2,2)*10) ),"[DBNum2]"))&IF(ISERR(FIND(".0",TEXT(A2,"0.00"))),"角 ","")&IF(LEFT(RIGHT(ROUND(A2,2),3))=".",TEXT(RIGHT(ROUND(A2,2)),"[DBN um2]")&"分",IF(ROUND(A2,2)=0,"","整")),"零元零",""),"零元","") EXCEL中数字小写换大写方法二： 在单元格A2中输入小写数字123.12 B2处输入以下公式 =IF((INT(A2*10)-INT(A2)*10)=0,TEXT(INT(A2),"[DBNum2]G/通用格式")&"元"&IF((INT(A2*100)-INT((A2)*10)*10)=0,"整","零 "&TEXT(INT(A2*100)-INT(A2*10)*10,"[DBNum2]G/通用格式")&"分 "),TEXT(INT(A2),"[DBNum2]G/通用格式")&"元 "&IF((INT(A2*100)-INT((A2)*10)*10)=0,TEXT((INT(A2*10)-INT(A2)*10),"[D BNum2]G/通用格式")&"角整",TEXT((INT(A2*10)-INT(A2)*10),"[DBNum2]G/通用格式")&"角"&TEXT(INT(A2*100)-INT(A2*10)*10,"[DBNum2]G/通用格式")&"分")) EXCEL中数字小写换大写方法三： =IF(A2-INT(A2)=0,TEXT(INT(A2),"[DBNum2]G/通用格式")&"圆整 ",TEXT(INT(A2),"[DBNum2]G/通用格式")&"圆 "&TEXT(INT((A2-INT(A2))*10),"[DBNum2]G/通用格式")&"角 "&TEXT(INT((A2*10-INT(A2*10))*10),"[DBNum2]G/通用格式")&"分") EXCEL中数字小写换大写方法四： =IF((A2-INT(A2))=0,TEXT(A2,"[DBNUM2]")&"元整 ",IF(INT(A2*10)-A2*10=0,TEXT(INT(A2),"[DBNUM2]")&"元 "&TEXT((INT(A2*10)-INT(A2)*10),"[DBNUM2]")&"角整 ",TEXT(INT(A2),"[DBNUM2]")&"元"&IF(INT(A2*10)-INT(A2)*10=0,"零

字母大小写转换

8086汇编字母大小写转换 一、要求 从键盘输入字母，将大写字母转化为小写字母，将小写字母转化为大写字母，然后在字幕上显示转换后的结果。（键盘输入在所有大小写字母的ASCLL范围内则转换，否则报错） 二、汇编代码 ; multi-segment executable file template. data segment ; add your data here! letterdb 0 pkeydb 0dh,0ah,'please input your letter...',0dh,0ah,'$' pkey1db 0dh,0ah,'are you contine...',0dh,0ah,'$' pkey2db 0dh,0ah,'your letter is wrong!',0dh,0ah,'$' pkey3db 0dh,0ah,'the transformational letter is',0dh,0ah,'$' ends stack segment dw 128 dup(0) ends code segment assumecs:code,ds:data,ss:stack start: ; set segment registers: mov ax, data mov ds, ax moves, ax ; add your code here cnt: lea dx, pkey mov ah, 9 int 21h ; output string at ds:dx

; wait for any key.... mov ah, 1 int 21h movletter,al cmp al,'@' jcless_than jncgreater_than greater_than: cmp al,'{' jc less_than1 jnc greater_than1 less_than: lea dx, pkey2 mov ah, 9 int 21h jmp quit greater_than1: lea dx, pkey2 mov ah, 9 int 21h jmp quit less_than1: cmpal,'a' jc less_than2 jnc greater_than2 greater_than2: lea dx, pkey3 mov ah, 9 int 21h moval,letter sub al,32 movletter,al movdl,letter mov ah,2 int 21h lea dx, pkey1 mov ah, 9

EXCEL文本函数-数字小写换大写英文大小写互换

EXCEL文本函数-数字小写换大写/英文大小写互换 在大小写中英文互换公式中我们先假设每个表都有表头，且数字在第二行，在A2单元格内 注意：公式可以随意拖动至任意指定单元格，公式内对象不变；可复制（待鼠标变成黑色十字再拖)；也可利用查找-替换-全部替换单元格如A2---全部换成F15 EXCEL中数字小写换大写方法一： 在单元格A2中输入小写数字123.12 B2处输入以下公式 =SUBSTITUTE(SUBSTITUTE(IF(A2<0,"负","")&TEXT(TRUNC(ABS(ROUND(A2,2))),"[DBNum2]")&"元"&IF (ISERR(FIND(".",ROUND(A2,2))),"",TEXT(RIGHT(TRUNC(ROUND(A2,2)*10)),"[DBNum2]"))&IF(ISERR (FIND(".0",TEXT(A2,"0.00"))),"角","")&IF(LEFT(RIGHT(ROUND(A2,2),3))=".",TEXT(RIGHT(ROUND (A2,2)),"[DBNum2]")&"分",IF(ROUND(A2,2)=0,"","整")),"零元零",""),"零元","") EXCEL中数字小写换大写方法二： 在单元格A2中输入小写数字123.12 B2处输入以下公式 =IF((INT(A2*10)-INT(A2)*10)=0,TEXT(INT(A2),"[DBNum2]G/通用格式")&"元"&IF((INT(A2*100)-IN T((A2)*10)*10)=0,"整","零"&TEXT(INT(A2*100)-INT(A2*10)*10,"[DBNum2]G/通用格式")&"分"),TE XT(INT(A2),"[DBNum2]G/通用格式")&"元"&IF((INT(A2*100)-INT((A2)*10)*10)=0,TEXT((INT(A2*10) -INT(A2)*10),"[DBNum2]G/通用格式")&"角整",TEXT((INT(A2*10)-INT(A2)*10),"[DBNum2]G/通用格式")&"角"&TEXT(INT(A2*100)-INT(A2*10)*10,"[DBNum2]G/通用格式")&"分")) EXCEL中数字小写换大写方法三： =IF(A2-INT(A2)=0,TEXT(INT(A2),"[DBNum2]G/通用格式")&"圆整",TEXT(INT(A2),"[DBNum2]G/通用 格式")&"圆"&TEXT(INT((A2-INT(A2))*10),"[DBNum2]G/通用格式")&"角"&TEXT(INT((A2*10-INT(A2* 10))*10),"[DBNum2]G/通用格式")&"分") EXCEL中数字小写换大写方法四： =IF((A2-INT(A2))=0,TEXT(A2,"[DBNUM2]")&"元整",IF(INT(A2*10)-A2*10=0,TEXT(INT(A2),"[DBNUM 2]")&"元"&TEXT((INT(A2*10)-INT(A2)*10),"[DBNUM2]")&"角整",TEXT(INT(A2),"[DBNUM2]")&"元"& IF(INT(A2*10)-INT(A2)*10=0,"零",TEXT(INT(A2*10)-INT(A2)*10,"[DBNUM2]")&"角")&TEXT(RIGHT (A2,1),"[DBNUM2]")&"分")) 看看结果是不是出现了你想要的?应该有你需要的大写金额了 公式的由来: 仟分位公式如下: =TEXT(IF(LEN(INT($A1))>=4,MID($A1,LEN(INT($A1))-3,1),""),"[DBNum2]")

中文大小写转换

在Excel中实现中文大写数字 https://www.sodocs.net/doc/2b1215159.html, 2001/12/19 14:09 赛迪网 文/朱运喜 在与朋友开发表格模板时，为做一个能在Excel中构造数字的汉字写法(中文大写)的一段VB函数花了不少时间。事后仔细想来，其实实现数字读法的方法实际上至少有三种，即VB编程法、自动更正法及工作表函数的替换法。用VB编程实际上是最复杂的一种方法(但也是一劳永逸的方法)，在很多时候完全可以用较简单的方法实现。以下分别介绍这几种方法。 自动更正法 使用自动更正功能，可以简化用户对大写汉字的输入操作，例如可以将“1//”定义更正为“壹”，那么当要输入“壹”时，就可通过键入“1//”来实现。另外，这种定义以后不仅在Excel中有效，在Word中也同样有效，因为“自动更正”程序是Office组件所公用的。 用“自动更正”是最简单易行的，用户可自由、方便地输入要写的大写读法。然而它的局限性也很明显，即它虽然给使用者提供了输入大写数字的方便手段，但终究还是需要人工输入，不能自动、实时地依当前的实际数字结果进行更新。 工作表函数替换法 要做到数值的自动更新，一般都会想到用VB构造函数法，但其实我们可采用一个简单的方法，即工作表函数的替换法。顾名思义，所谓“工作表函数的替换法”，就是将原来的结果换去一部分。那么换什么，又怎样换? 我们知道，在Excel中，提供了多种数字的显示格式。其中文版实际上也包括数字的大写读法显示格式，但遗憾的是这个功能对一般用户来说基本上不能用，因为

Microsoft在实现这个数字显示格式时犯了一个小小的错误，例如“33.56”这个数，它显示出来的是“叁拾叁.伍陆”。很显然，没有将小数点作有效处理。 虽然这个显示格式是错的，但其劳动成果还是能为我们所用——只要能设法将其小数点作有效处理。做到这一点也并不难，可以先将数字以其内置的中文大写显示格式转变为文本格式，即使用TEXE( )函数将其结果转化为字符串，然后将小数点“.”用汉字“点”换掉(使用SUBSTITUTE( )函数，见图1)。 图1 例如，若要将B1单元格内容重写为大写，则可以在单元格中输入如下公式: =SUBSTITUTE(TEXT(B1，″G/通用格式″)，″.″，″点″) 使用这样一个小小的公式应当说并不复杂，不过，这样做仍不能满足某些情况下的要求，因为使用大写表示数额一般只应用于财会方面，其他很少这么用。在上例中，对数字“33.56”，往往要求结果写为“叁拾叁元伍角陆分”。那么，如何将“33.00”写为“叁拾叁元整”呢 实现这一功能的逻辑也不太复杂。我们可以看到，Excel显示格式的小数点前的数字读法是没有错的，可将其取出来作为一个字符串；小数点后面的数字则麻烦些，必取出来，再以低位是否都为“0”来判断是要写“整”还是“零”。还要将“元”、“角”、

人民币小写金额转换成大写格式

人民币小写金额转换成大写格式 要将人民币小写金额转换成大写格式，用Excel提供的格式，将自定义格式类型中的“[dbnum2]G/通用格式”改为“[dbnum2] G/通用格式“元””来实现。但在转换小数时却出现了问题，比如￥6,050.09只能转换为“陆仟零伍拾.零玖圆”。那么用Excel 能不能解决这一先天不足呢？其方法有以下两种（以下均对B1转换，假设B1是通过函数ROUND( )四舍五入取得二位小数的小写金额数，其值为￥6,050.09）。 一、在三个连续的同行单元格中转换 1. B2中输入公式“=IF(B1〈0，"金额为负无效"，INT(B1))”，计算结果为￥6,050.00，然后点击“格式→单元格→数字→特殊→中文大写数字→确定”，B2显示“陆仟零伍拾”，再点击“格式→单元格→数字→自定义”，将“类型”编辑框中的“[dbnum2]G/通用格式”修改为：[dbnum2](“人民币”)G/通用格式“元”，此时B2显示：“(人民币)陆仟零伍拾元”。 2. C2中输入“=IF(B1〈0，""，INT(B1 10)-INT(B1) 10)”，同样C2改为：[DBNum2]G/通用格式“角”，C2显示：“零角”。 3. D2中输入“=IF(B1〈0，""，INT(B1 100)-INT(B1 10) 10)”，同样D2改为：[DBNum2]G/通用格式“分”， D2显示：“玖分”。 这样在连续的三个同行单元格中实现了大写金额格式的转换，如图1所示。为了使转换符合财务格式，B2应右对齐，C2列宽无间隔，且不设左右边框线，D2要左对齐。

二、用Excel提供的函数转换 个位为0，则不显示；不为0，显示“XXX元”；不为0、且角位和分位均为0，显示“XXX元整”；元角分位均为0，则显示“零元整”。 小数点后面第一位为0、且元位或分位有一为0，则不显示；为0、且元位和分位均不为0，则显示“零”；不为0，显示“X角”。 小数点后面第二位为0，则显示“整”；不为0，显示“X分”。 根据以上思路在B2中输入公式： “IF(B1〈0，"金额为负无效"，IF(OR(B1=0，B1="")，"(人民币)零元整"))； IF(B1〈1，"(人民币)"，TEXT(INT(B1)，"[dbnum2](人民币)G/通用格式")&&"元")&&IF(INT(B1 10)-INT(B1) 10=0)； IF(INT(B1) (INT(B1 100)-INT(B1 10) 10)=0，""，"零")，TEXT(INT(B1 10)-INT(B1) 10，"[dbnum2]")&&"角")&&IF((INT(B1 100)-INT(B1 10) 10)=0，"整"，TEXT((INT(B1 100)-INT(B1*10)*10)，"[dbnum2]")&&"分")))”。 确认后B2显示：“(人民币)陆仟零伍拾元零玖分”。以后使用时将公式复制到有关单元格中，若转换的对象B1发生了变化，可点击“编辑→替换”将B1替换掉。两种转换测试结果如图2所示。

代码转换(大小写字母转换)

北华航天工业学院 课程设计报告（论文） 设计课题：代码转换 大小写字母转换 专业班级：电子信息工程 学生姓名： 指导教师： 设计时间： 2010-12-16

北华航天工业学院电子工程系 微机原理课程设计任务书 指导教师：教研室主任： 年月日

内容摘要 在课程设计之前，具备微机原理的理论知识和实践能力；熟悉汇编语言编程技术；熟悉80X86的CPU结构和指令系统；熟悉相关常用接口电路的设计使用方法是必不可少的。因此原理部分重新温习并整理了相关知识。 课程设计要求进行大小写字母的转换。其实字母大小写的区别在于他们的ＡＳＣＩＩ码范围，它们之间的转换其实就是加减相应的ＡＳＣＩＩ码值。在判断输入的字母是大写的还是小写的（即判断输入符号ＡＳＣＩＩ码在41H~5AH还是在61H~7AH内）之后，决定判断是加上还是减去ＡＳＣＩＩ码值。 关键词：汇编代码转换大小写

目录 一、概述 (1) 二、方案设计与论证 (1) 1.汇编语言基础 (1) 2.方案设计 (2) 三、程序设计 (3) 1.程序设计流程图 (3) 2.程序代码 (4) 四、运行结果 (5) 五、心得体会 (6) 六、参考文献 (6)

一、概述： 在计算机系统中有多种数制和编码，常用的数制有二进制、八进制以及十六进制，常用的代码有BCD码、ASCll码和七段显示码等。这些数制和编码根据其作用的不同，在存储形式上也有差异。在实际应用中，它们也因使用的要求不同而有所差异。在配备操作系统管理程序的计算机中，有些代码转换程序已在系统管理软件中编好。还有些代码转换需要根据使用要求通过编程完成。因此，代码转换是非数据处理中最常见的情况。 二、方案设计： 1、汇编语言基础 汇编：计算机不能直接识别和执行汇编语言程序，而要通过“翻译”把源程序译成机器语言程序（目标程序）才能执行，这一“翻译”工作称为汇编。汇编有人工汇编和计算机汇编两种方法。 汇编语言是面向机器的，每一类计算机分别有自己的汇编语言。汇编语言占用的内存单元少，执行效率高，广泛应用于工业过程控制与检测等场合。 汇编语言语句格式 标号：操作符操作数；注释 START： MOV A， 30H ；A←（30H） 标号用来标明语句地址，它代表该语句指令机器码的第一个字节的存储单元地址。 标号一般规定由1～8个英文字母或数字组成，但第一个符号必须是英文字母。 注释只是对语句或程序段的含义进行解释说明，以方便程序的编写、阅读和交流，简化软件的维护，一般只在关键处加注释。 伪指令：伪指令只用于汇编语言源程序中，对汇编过程起控制和指导的作用，不生成机器码。汇编结束，自动消失。 汇编语言程序设计步骤

人民币大小写转换

成绩评定表

课程设计任务书

一、实训题目和实训任务 二、1. 实训题目 人民币大小写转换 2. 实训任务 输入一个钱数，比如3456.45，显示其人民币大写：叁仟肆佰伍拾陆元肆角伍分。用C#窗体程序实现，注意数字中带有零的情况，比如3009005.04。多试一些，确保你的程序可用于银行储蓄系统。 3. 题目分析 刚选这道题目的时候我认为这个应该是挺简单的一道题，运用数组定义单位和大写字符。然后再通过循环来实现对数字的大写转换和单位的添加。所以应该只有一个关键的转换代码。可以让这个代码通过butto按钮实现转换。之后对这个代码多次进行调试确保可以识别所有数字和单位然后重复这个关键代码就可以实现识别位数的增加达到规定要求。然后在完成题目中其他要求比如对于零的处理，可以添加一个整形变量用来识别本位数是否为零，进而达到对零的识别。完成课题中所有的要求。其次添加一些别的简单的小功能比如类似计算器键盘的按钮的输入功能。添加数字输入按钮、转换按钮、清空按钮等功能按钮。这样可以使得程序更加丰满不会觉得太过于单调，使得界面更加丰满。之后再添加各种图片用来装饰整个程序。完成此程序。 4. 开发工具和环境 开发工具：Visual Studio 2012 环境：Windows 2000, XP, Vista等

二、软件设计 1. 关键技术分析 ①实现数值和单位赋值大代码 //定义单位，大写，和用于判断的c，i，j，n string[] a = { "壹", "贰", "叁", "肆", "伍", "陆", "柒", "捌", "玖" }; string[] b = { "分", "角", "元", "十", "百", "千", "万", "十", "百", "千", "亿", "十", "百", "千" }; string c; int k = 0; int j; int a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11; //输入数值i强制只能读到分位 double i = double.Parse(textBox1.Text); int n = (int)(100 * i); //实现分位数的单位与数值转换 a1 = j = n % 10; if (n != 0) { if (j != 0) { c = a[j - 1]; textBox2.Text = (c + b[k] + textBox2.Text); k++; } else { textBox2.Text = (textBox2.Text); k++; } } else { textBox2.Text = textBox2.Text; k++; } ②实现对零的判断代码 //个位数对于零的判断以及读法 if (a3== 0) { if (a2==0&&a3==0) { textBox2.Text = "元整" + textBox2.Text; } else textBox2.Text ="元零"+ textBox2.Text; }

Word中数字金额小写

Word中数字金额小写“变”大写有两招 在日常的办公应用中，尤其是作为一名财务人员，经常需要输入大写金额的形式的数字，“肆仟叁佰五拾元零伍分”，如果用手工输入的话，显得比较麻烦，其实只要通过输入小写数字并通过如下两招就能达到快速输入的目的。 第一招：釜底抽薪——自动更正法 如果需要重复的输入一个大写数字金额，可以采用自动更正的方法。例如要重复输入“肆仟叁佰伍拾元零伍分”，可以先输入“肆仟叁佰伍拾元零伍分”并选中它，然后执行菜单“工具→自动更正选项”打开“自动更正”对话框（图1），在“替换”下的框内输入“4350.05”并单击“添加”按钮确定后退出，以后直接输入“4350.05”后回车即可快速得到“肆仟叁佰伍拾元零伍分”。 第二招：一劳永逸——编制自动宏 如果有许多小写金额要变成大写的话，用上面的自动更正的方法需要定义很多自动更正项，显然也比较麻烦，其实只需要编辑一个宏就能做到“一劳永逸”了。启动Word后按下A lt+F11组合键，在打开的工程窗口左侧双击“ThisDocument”进入代码编写窗口，在代码编辑窗口中输入如下代码： Option Explicit Sub 小写金额变大写() Dim Numeric As Currency, IntPart As Long, DecimalPart As Byte, MyField As Field, Lable As String Dim Jiao As Byte, Fen As Byte, Oddment As String, Odd As String, MyChinese As String Const ZWDX As String = "壹贰叁肆伍陆柒捌玖零" ''定义一个中文大写汉字常量 On Error Resume Next ''错误忽略 With ｓｅｌｅｃｔion Numeric = VBA.Round(VBA.Val(.Text), 2) ''四舍五入保留小数点后两位 ''判断是否在表格中 If .Information(wdWithInTable) Then _ .MoveRight unit:=wdCell Else .MoveRight unit:=wdCharacter ''对数据进行判断,是否在指定的范围内 If VBA.Abs(Numeric) > 2147483647 Then MsgBox "数值超过范围!", _ vbOKOnly + vbExclamation, "Warning": Exit Sub IntPart = Int(VBA.Abs(Numeric)) ''定义一个正整数 Odd = VBA.IIf(IntPart = 0, "", "圆") ''定义一个STRING变量 ''插入中文大写前的标签 Lable = VBA.IIf(Numeric = VBA.Abs(Numeric), "人民币金额大写:", "人民币金额大写:负") ''对小数点后面二位数进行择定 DecimalPart = (VBA.Abs(Numeric) - IntPart) * 100 ｓｅｌｅｃｔCase DecimalPart Case Is = 0 ''如果是0,即是选定的数据为整数

SQL函数_小写金额转换成大写

SQL函数_小写金额转换成大写 /******************************************************** 作者： 版本：1.0 创建时间：20020227 修改时间： 功能：小写金额转换成大写 参数：n_LowerMoney 小写金额 v_TransType 种类 -- 1: directly translate, 0: read it in words 输出：大写金额 ********************************************************/ if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[L2U]') and xtype in (N'FN', N'IF', N'TF')) drop function [dbo].[L2U] GO CREATE FUNCTION dbo.L2U(@n_LowerMoney numeric(15,2),@v_TransType int) RETURNS VARCHAR(200) AS BEGIN Declare @v_LowerStr VARCHAR(200) -- 小写金额 Declare @v_UpperPart VARCHAR(200) Declare @v_UpperStr VARCHAR(200) -- 大写金额 Declare @i_I int set @v_LowerStr = LTRIM(RTRIM(ROUND(@n_LowerMoney,2))) --四舍五入为指定的精度并删除数据左右空格 set @i_I = 1 set @v_UpperStr = '' while ( @i_I <= len(@v_LowerStr)) begin select @v_UpperPart = case substring(@v_LowerStr,len(@v_LowerStr) - @i_I + 1,1) WHEN '.' THEN '元' WHEN '0' THEN '零' WHEN '1' THEN '壹' WHEN '2' THEN '贰' WHEN '3' THEN '叁' WHEN '4' THEN '肆' WHEN '5' THEN '伍' WHEN '6' THEN '陆' WHEN '7' THEN '柒' WHEN '8' THEN '捌' WHEN '9' THEN '玖' END + case @i_I WHEN 1 THEN '分' WHEN 2 THEN '角' WHEN 3 THEN ''

如何在中转换字母大小写

如何在Word中转换字母大小写 用Word写作时忘了及时应用字母大小写规则，或者忘记使用全角或半角字符规则了，怎么办？有什么办法实现这些格式的快速统一吗？下面分别介绍几种情况的快速统一办法。 一、录入英文文章忘掉应用大小写规则 1. 在Word中选择要转换的英文文档，选择系统“格式→更改大小写”命令（图1）。 2. 在弹出的“更改大小写”窗口中选择“句首字母大写”（图2）。 3. 单击“确定”按钮。 二、通篇文章或特定块内大小写字母的转换

如果要把文档中的大写字母转换成小写，小写字母转换成大写，可用如下方法： 1. 在Word中用Ctrl＋A组合键选择要转换的整个文档，或用鼠标选择要转换的部分文档，选择系统“格式→更改大小写”命令（图1）。 2. 在弹出的“更改大小写”窗口中选择“转换大小写”（图3）。 3. 单击“确定”按钮。 三、把拼音串或英文转为词首字母大写 有时在做广告或标题时，我们需要每个英文单词或汉语拼音的词首都用大写字母，如果我们在输入时忘了按规则进行，则可以在输入完毕后统一设置： 1. 在Word中用Ctrl＋A选择要转换的整个文档或用鼠标选择要转换的部分文档，选择系统“格式→更改大小写”命令（图1）。 2. 在弹出的“更改大小写”窗口中选择“词首字母大写”（图4）。

3. 单击“确定”按钮。 四、将通篇文章或特定块内字符统一转为大写或小写 如果要把文档中的字母统统转换成小写或大写，可用如下方法实现： 1. 在Word中用Ctrl＋A选择要转换的整个文档或用鼠标选择要转换的部分文档，选择系统“格式→更改大小写”命令（图1）。 2. 在弹出的“更改大小写”窗口中选择“大写”或“小写”（图5）。 3. 单击“确定”按钮。 五、将通篇文章或特定块内字母或数字转换为全角或半角 如果要把文档中的字母或数字统统转换成全角或半角，也