vb .net 转换大写金额函数

发布时间：2020-12-16 22:27:08 所属栏目：大数据来源：网络整理

导读：Function yh_bigmoney(ByVal num As Double) As String Dim intpart As Integer Dim dotpart As Integer Dim cm As Integer intpart = Int(num) dotpart = yh_round((num - intpart) * 1000) Dim retval As String,dotval As String Dim i As Integer Dim pre

Function yh_bigmoney(ByVal num As Double) As String Dim intpart As Integer Dim dotpart As Integer Dim cm As Integer intpart = Int(num) dotpart = yh_round((num - intpart) * 1000) Dim retval As String,dotval As String Dim i As Integer Dim pre0 As Boolean ' Debug.Write(intpart) 'Debug.WriteLine("") 'Debug.Write(dotpart) 'Debug.WriteLine("") i = 0 pre0 = False While intpart > 0 cm = intpart Mod 10 If cm = 0 Then If i Mod 4 = 0 Then retval = bigm1.Chars(i) & retval ElseIf Not pre0 Then retval = bigm.Chars(cm) & retval End If pre0 = True Else pre0 = False retval = bigm.Chars(cm) & bigm1.Chars(i) & retval End If i = i + 1 intpart = intpart / 10 End While 'Debug.WriteLine(retval) If dotpart = 0 Then Return retval & "整" End If i = 0 pre0 = True dotval = "" While i < 3 cm = dotpart Mod 10 If cm = 0 Then If Not pre0 Then dotval = bigm.Chars(cm) & bigm2.Chars(i) & dotval End If Else dotval = bigm.Chars(cm) & bigm2.Chars(i) & dotval pre0 = False End If i = i + 1 dotpart = dotpart / 10 End While Return retval & dotval End Function

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!