复制代码 代码如下: ''' <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
