在下面的文章中,我们将会介绍如何创建自定义函数,并且调用自己的新建的函数,本文以将 阿拉伯数字转换为中文为例
例如:
参数:“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,不会,写起来蛮麻烦的