RDLC 中文数字转化函数

     在下面的文章中，我们将会介绍如何创建自定义函数，并且调用自己的新建的函数，本文以将 阿拉伯数字转换为中文为例

例如：

    参数：“16”

   转换后：十六

效果图如下：

函数源码：

'#############################################################################  
'100以内转换函数
'  
'函数名称：CNNumber  
'参数：ls  
'返回值：转换后的字符串  
'  
'整理人： ych 
'版本历史  
'2013-11-07
'#############################################################################  
  
Shared Function CNNumber(ls As String)  As String  
 Dim len_ls As Long              ''字符串的长度
 Dim ls_one As  String           ''去除前后空格的参数
 Dim ge_ls AS String              ''个位数
 Dim shi_is AS  String            ''十位数
 Dim ls_number AS  String   ''转好后的中文数字
 Dim ls_ge AS  Long              ''个位数数字
 Dim ls_shi AS  Long              ''十位数数字
 Dim ls_rtn  AS  String            ''返回值

 ls_one =Trim(ls)
 len_ls=Len(ls_one )

ls_number ="一二三四五六七八九"
ls_rtn  =""

If len_ls>1 Then           ''两位数  
      ls_shi  =Mid(ls_one ,1,1)
      ls_ge =Mid(ls_one ,2,1)
    Else        ''当数字为10以下
       ge_ls =Mid(ls_number ,ls_one ,1) 
    End If  

If ls_shi=1 And (ls_ge<1) Then    ''当数字为10时
      shi_is ="十" 
    End If  

If ls_shi=1 And (ls_ge>0) Then      ''当数字大于10小于20
      shi_is ="十" +Mid(ls_number, ls_ge ,1) 
    End If  


If (ls_shi>1) And (ls_ge>0) Then   ''当数字大于20且个位数不为0
      shi_is =Mid(ls_number, ls_shi ,1) +"十"+Mid(ls_number, ls_ge ,1) 
    End If  

If (ls_shi>1) And (ls_ge<1) Then   ''当数字大于19且个位数为0
      shi_is =Mid(ls_number, ls_shi ,1) +"十"
    End If  

 
If len_ls>1 Then    ''两位数赋值
     ls_rtn  = shi_is 
    Else                    ''一位数赋值
          ls_rtn  =ge_ls  
    End If    






  
  
    CNNumber  =ls_rtn  
End Function  

具体步骤：

  1）单击报表空白处，然后单击菜单来报表，选择报表属性

2）单击代码标签，粘贴代码，然后确定

3）在报表新增一个文本框，然后右键

4）添加函数

整个过程就完了

由于是vb，不会，写起来蛮麻烦的