请教人民币大写函数

Question

CSDN文档里有好几篇文章，你可以找找看

Answer 1

http://expert.csdn.net/Expert/FAQ/FAQ_Index.asp?id=20394

Answer 2

来源：CSDNusing System;namespace HaiNuo
{
    /*****************************************************************************************
     * 类名：DecimalToUpper                                             *
     * 功能：把金额数据从小写转换为大写                              *
     * 限制条件：金额小于一万亿，且少于两位小数                  *
     * 作者：雷俊强 [email protected]                      *
     * 日期：2003-5-6                              *
     * 用法：DecimalToUpper x = new DecimalToUpper();                  *
     *       this.textBox2.Text = x.ToUpper(d);                      *
     *       欢迎下载、使用                                                                  *
     * FOR my wife and my son                                                                *
     *****************************************************************************************/
    public class DecimalToUpper
    {
        public DecimalToUpper()
        {
            //
            // TODO: 在此处添加构造函数逻辑
            //
        }        /// <summary>
        /// 小写金额转换为大写金额，其他条件：金额小于一万亿，最多两位小数
        /// </summary>
        /// <param name="d">源金额，d 《 1000000000000.00(一万亿)，且最多两位小数 </param>
        /// <returns>结果，大写金额</returns>
        public string ToUpper(decimal d)
        {
            if (d == 0)
                return "零元整";

            string je = d.ToString("####.00");
            if (je.Length > 15)
                return "";
            je = new String('0',15 - je.Length) + je; //若小于15位长，前面补0            string stry = je.Substring(0,4); //取得'亿'单元
            string strw = je.Substring(4,4); //取得'万'单元
            string strg = je.Substring(8,4); //取得'元'单元
            string strf = je.Substring(13,2); //取得小数部分

            string str1 = "",str2 = "",str3 = "";            str1 = this.getupper(stry,"亿"); //亿单元的大写
            str2 = this.getupper(strw,"万"); //万单元的大写
            str3 = this.getupper(strg,"元"); //元单元的大写
            string str_y = "", str_w = "";
            if (je[3] == '0' || je[4] == '0') //亿和万之间是否有0
                str_y = "零";
            if (je[7] == '0' || je[8] == '0') //万和元之间是否有0
                str_w = "零";            string ret = str1 + str_y + str2 + str_w + str3; //亿，万，元的三个大写合并            for (int i = 0 ;i < ret.Length;i++) //去掉前面的"零"
            {
                if (ret[i] != '零')
                {
                    ret = ret.Substring(i);
                    break;
                }            }
            for (int i = ret.Length - 1;i > -1 ;i--) //去掉最后的"零"
            {
                if (ret[i] != '零')
                {
                    ret = ret.Substring(0,i+1);
                    break;
                }
            }

            if (ret[ret.Length  - 1] != '元') //若最后不位不是'元'，则加一个'元'字
                ret = ret + "元";            if (ret == "零零元") //若为零元，则去掉"元数"，结果只要小数部分
                ret = "";

            if (strf == "00") //下面是小数部分的转换
            {
                ret = ret + "整";
            }
            else
            {
                string tmp = "";
                tmp = this.getint(strf[0]);
                if (tmp == "零")
                    ret = ret + tmp;
                else
                    ret = ret + tmp + "角";                tmp = this.getint(strf[1]);
                if (tmp == "零")
                    ret = ret + "整";
                else
                    ret = ret + tmp + "分";
            }            if (ret[0] == '零')
            {
                ret = ret.Substring(1); //防止0.03转为"零叁分"，而直接转为"叁分"
            }            return  ret; //完成，返回
        }
        /// <summary>
        /// 把一个单元转为大写，如亿单元，万单元，个单元
        /// </summary>
        /// <param name="str">这个单元的小写数字（4位长，若不足，则前面补零）</param>
        /// <param name="strDW">亿，万，元</param>
        /// <returns>转换结果</returns>
        private string getupper(string str,string strDW)
        {
            if (str == "0000")
                return "";            string ret = "";
            string tmp1 = this.getint(str[0]) ;
            string tmp2 = this.getint(str[1]) ;
            string tmp3 = this.getint(str[2]) ;
            string tmp4 = this.getint(str[3]) ;
            if (tmp1 != "零")
            {
                ret = ret + tmp1 + "仟";
            }
            else
            {
                ret = ret + tmp1;
            }            if (tmp2 != "零")
            {
                ret = ret + tmp2 + "佰";
            }
            else
            {
                if (tmp1 != "零") //保证若有两个零'00'，结果只有一个零，下同
                    ret = ret + tmp2;
            }            if (tmp3 != "零")
            {
                ret = ret + tmp3 + "拾";
            }
            else
            {
                if (tmp2 != "零")
                    ret = ret + tmp3;
            }            if (tmp4 != "零")
            {
                ret = ret + tmp4 ;
            }

            if (ret[0] == '零') //若第一个字符是'零'，则去掉
                ret = ret.Substring(1);
            if (ret[ret.Length - 1] == '零') //若最后一个字符是'零'，则去掉
                ret = ret.Substring(0,ret.Length - 1);            return ret + strDW; //加上本单元的单位

        }
        /// <summary>
        /// 单个数字转为大写
        /// </summary>
        /// <param name="c">小写阿拉伯数字 0---9</param>
        /// <returns>大写数字</returns>
        private string getint(char c)
        {
            string str = "";
            switch ( c )
            {
                case '0':
                    str = "零";
                    break;
                case '1':
                    str = "壹";
                    break;
                case '2':
                    str = "贰";
                    break;
                case '3':
                    str = "叁";
                    break;
                case '4':
                    str = "肆";
                    break;
                case '5':
                    str = "伍";
                    break;
                case '6':
                    str = "陆";
                    break;
                case '7':
                    str = "柒";
                    break;
                case '8':
                    str = "拐";
                    break;
                case '9':
                    str = "玖";
                    break;
            }
            return str;
        }
    }
}

Answer 3

有时间看看FAQ，里面有很多好东西！！

Answer 4

我有vb.net写的，你看着办吧:)
'====人民币转换
        Public Shared Function changeRMB(ByVal X As String) As String
            Dim dbX As Double            Dim isBelowZero As Boolean = False  '是否负数
            dbX = Convert.ToDouble(X)
            If dbX < 0 Then
                dbX = dbX * (-1)
                isBelowZero = True
            End If
            Dim atoc As String '转换之后的值
            Dim String1 As String '如下定义
            Dim String2 As String '如下定义
            Dim String3 As Int32 '从原A值中取出的值
            Dim I As Int32 '循环变量
            Dim J As Int32 'A的值乘以100的字符串长度
            Dim Ch1 As String '数字的汉语读法
            Dim Ch2 As String '数字位的汉字读法
            Dim nZero As Int32 '用来计算连续的零值是几个            String1 = "零壹贰叁肆伍陆柒捌玖"
            String2 = "万仟佰拾亿仟佰拾万仟佰拾元角分"
            nZero = 0            If InStr(1, CStr(dbX * 100), ".") <> 0 Then
                dbX = Math.Round(dbX, 2)
                'Err.Raise(5000, , "此函数( AtoC() )只能转换小数点后有两位以内的数！")
            End If            J = Len(CStr(dbX * 100))
            String2 = Right(String2, J) '取出对应位数的STRING2的值            For I = 1 To J
                String3 = Convert.ToInt32(Mid((dbX * 100).ToString, I, 1)) '取出需转换的某一位的值                If I <> (J - 3) + 1 And I <> (J - 7) + 1 And I <> (J - 11) + 1 And I <> (J - 15) + 1 Then
                    If String3 = 0 Then
                        Ch1 = ""
                        Ch2 = ""
                        nZero = nZero + 1
                    ElseIf String3 <> 0 And nZero <> 0 Then
                        Ch1 = "零" & Mid(String1, String3 + 1, 1)
                        Ch2 = Mid(String2, I, 1)
                        nZero = 0
                    Else
                        Ch1 = Mid(String1, String3 + 1, 1)
                        Ch2 = Mid(String2, I, 1)
                        nZero = 0
                    End If
                Else '该位是万亿，亿，万，元位等关键位
                    If String3 <> 0 And nZero <> 0 Then
                        Ch1 = "零" & Mid(String1, String3 + 1, 1)
                        Ch2 = Mid(String2, I, 1)
                        nZero = 0
                    ElseIf String3 <> 0 And nZero = 0 Then
                        Ch1 = Mid(String1, String3 + 1, 1)
                        Ch2 = Mid(String2, I, 1)
                        nZero = 0
                    ElseIf String3 = 0 And nZero >= 3 Then
                        Ch1 = ""
                        Ch2 = ""
                        nZero = nZero + 1
                    Else
                        Ch1 = ""
                        Ch2 = Mid(String2, I, 1)
                        nZero = nZero + 1
                    End If                    If I = (J - 11) + 1 Or I = (J - 3) + 1 Then '如果该位是亿位或元位，则必须写上
                        Ch2 = Mid(String2, I, 1)
                    End If                End If
                atoc = atoc & Ch1 & Ch2                If I = J And String3 = 0 Then '最后一位（分）为0时，加上“整”
                    atoc = atoc & "整"
                End If            Next
            If dbX = 0 Then
                atoc = "零元整"
            End If            If isBelowZero Then atoc = "负" & atoc
            Return atoc
        End Function