求vb原代码：人民币小写转换成大写
Option Explicit Dim zw(10) As String Dim dw(8) As String Dim word As String Dim w As String Dim i As Integer Private Sub Command1_Click() On Error GoTo err Dim line_all As Double Dim jgtemp As String Dim jg As String Dim line_zensu As Integer Dim dot As Integer Dim zensu As Integer Dim mon As String line_all = CDbl(Me.Text1.Text) mon = CStr(line_all) line_all = Len(mon) dot = InStr(mon, ".") line_zensu = line_all - dot If (line_all - dot) 2 Then mon = mon "." Then jg = return2(i + 1) , vbExclamation" Exit Sub End Sub Function return1(s As String) As String return1 = zw(CInt(s)) End Function Function return2(d As Integer) As String If i 3 Then return2 = dw(d - 1) Else return2 = dw(d - 2) End If End Function Private Sub Form_Load() '这里是个十百千万元角分等等 你自己添一下吧 我日文系统 添加不了！~ zw(1) = "" zw(2) = "" zw(3) = "" zw(4) = "" zw(5) = "" zw(6) = "" zw(7) = "" zw(8) = "" zw(9) = "" zw(0) = "" dw(0) = "" dw(1) = "" dw(2) = "" dw(3) = "" dw(4) = "" dw(5) = "" dw(6) = "" dw(7) = "" dw(8) = "" End Sub 画面添加text1 和 command1
EXCEL里如何实现人民币小写到大写的转换?
假设要转换的数字在A1，我们通过分离在三个单元格来实现，A2显示整数位，B2显示角位，C2显示分位。如果上一位是最后一位，则改为不显示。引用A2栏的函数为:=IF(INT(A1)-A1=0, TEXT(INT(A1),[DBNum2][$-804]G/通用格式)元整,TEXT(INT(A1),[DBNum2][$-804]G/通用格式)元) 引用B2栏的函数为:=IF(INT(A1)-A1=0,,IF(A1*10-INT(A1*10)=0,TEXT(INT(A1*10-INT(A1)*10),[DBNum2][$-804]G/通用格式)角整,TEXT(INT(A1*10-INT(A1)*10),[DBNum2][$-804]G/通用格式)角))引用C2栏的函数为:=IF(INT(A1*10)-A1*10=0,,TEXT(INT(A1*100-INT(A1*10)*10),[DBNum2][$-804]G/通用格式)分)通过调整单元格大小，而且将A2设为居右、B2设为居中、C2设为居左可以实现。但拼凑出来的在显示上毕竟不够美观，而且B2单元格有时候两个字，有时候三个字，这时我想到了单元格文本数值的合并，经过测试，也最终实现了在一个单元格显示。方法如下:在第二行输入完公式后，隐藏起来，做为过渡单元格，在A3栏输入“=A2&B2&C2”，大写在一个单元格显示出来了。
107000.53元，转换成大写怎么写？
中国人民银行 《支付结算办法》正确填写票据和结算凭证的基本规定（二）阿位伯数字中间连续几个“0”时，中文大写金额中间可以只写一个“零”字。如￥6，007．14，应写成人民币陆仟零柒元壹角肆分。（三）阿拉伯金额数字万位或元位是“0”，或者数字中间连续有几个“0”，万位、元位也是“0”，但千位、角位不是“0”时，中文大写金额中可以只写一个零字，也可以不写“零”字。如￥1，680．32，应写成人民币壹仟陆佰捌拾元零叁角贰分，或者写成人民币壹仟陆佰捌拾元叁角贰分；又如￥107，000．53，应写成人民币壹拾万柒仟元零伍角叁分，或者写成人民币壹拾万零柒仟元伍角叁分。107000.53元，转换成大写为人民币壹拾万柒仟元零伍角叁分，或者写成人民币壹拾万零柒仟元伍角叁分。
壹拾万零柒仟元伍角叁分
