asp.net(vb)实现金额转换成大写的函数

首页 > 网络编程 > ASP.NET > 实用技巧 更新日期: 2016-03-11
asp.netvb实现金额转换成大写的函数代码,需要的朋友可以参考下。
代码如下:

''' <summary>
''' 将数据转换为Double数字
''' </summary>
''' <param name="Obj"></param>
''' <returns></returns>
''' <remarks></remarks>
Public Shared Function todbl(ByVal Obj As Object) As Double
If Obj Is DBNull.Value Then
Return 0
ElseIf IsNumeric(Obj) = False Then
Return 0
Else
Return Obj
End If
End Function

代码如下:

''' <summary>
''' 将金额转换成大写
''' </summary>
''' <param name="Money">金额</param>
''' <returns></returns>
''' <remarks></remarks>
Public Shared Function UpperMoney(ByVal Money As String) As String
Money = todbl(Money).ToString("0.00")
Dim strFuShu As String = IIf(Money.StartsWith("-"), "负", "")
Money = Money.Replace("-", "").Replace(".", "")
Dim Number As String = "零壹贰叁肆伍陆柒捌玖"
Dim Unit As String = "分角元拾佰仟万拾佰仟亿拾佰仟万"
Dim str As String
For i As Integer = 0 To Money.Length - 1
Dim c As String = Money.Chars(i)
Dim Index As Integer = Money.Length - 1 - i
str &= Number(c) & Unit(Index)
Next
str = strFuShu & str & "整"
Return str
End Function

> 本站内容系网友提交或本网编辑转载,其目的在于传递更多信息,并不代表本网赞同其观点和对其真实性负责。如涉及作品内容、版权和其它问题,请及时与本网联系,我们将在第一时间删除内容!

相关文章
  • ASP字符串大写转换成小写ASP小写转换成大写ucaselcase
    字符串大写字面转换成小写字面或者小写字面转换成大写字面,ASP特指VBS里自带了两个函数LCase:转成小写 UCase:转成大写 下面是ASP中的代码,可以直接演示效果的. 代码如下:<% dim str,str1,str2 str="AbCdEf" str1=LCase(str) str2=UCase(str) Response ...
  • php实现字符串首字母转换成大写的方法
    这篇文章主要介绍了php实现字符串首字母转换成大写的方法,涉及php中ucfirst及ucwords函数的使用技巧,需要的朋友可以参考下本文实例讲述了php实现字符串首字母转换成大写的方法.分享给大家供大家参考.具体分析如下: php中可以通过ucfirst函数将一个字符串中的第一个字母转换成大写,而ucwords函数可以将一个字符串中每个单词的首字母转换成 ...
  • JavaScript将数字转换成大写中文的方法
    这篇文章主要介绍了JavaScript将数字转换成大写中文的方法,涉及javascript字符串及匹配的技巧,具有一定参考借鉴价值,需要的朋友可以参考下本文实例讲述了JavaScript将数字转换成大写中文的方法.分享给大家供大家参考.具体实现方法如下: function intToChinese ( str ) { str = str+''; var le ...
  • Asp.net中将Word文件转换成HTML的方法
    这篇文章主要介绍了Asp.net中将Word文件转换成HTML的方法,需要的朋友可以参考下本文所述为一个Asp.net实现将Word转换为HTML的功能,其关键代码如下: //存放word文件的完整路径 string wordPath = Server.MapPath("/word/test.doc"); //存放html文件的完整路径 ...
  • asp.net自动将汉字转换成拼音第一个字母
    把汉字转换成拼音第一个字母 的实现代码/// <summary> /// 把汉字转换成拼音第一个字母 /// </summary> /// <param name="ChineseStr"></param> /// <returns></returns> privat ...
猜你喜欢