钱小写转大写 VB

Function DaXie(ByVal Num As String) As String '
If IsNumeric(Num) = False Then
DaXie = ""
Exit Function
End If
Dim Place As String = "分角元拾佰仟万拾佰仟亿拾佰仟万"
Dim Dn As String = "壹贰叁肆伍陆柒捌玖"
Dim D1 As String = "整零元零零零万零零零亿零零零万"
Dim FuHao As String
If Num < 0 Then FuHao = "（负）"
Num = Format(Math.Abs(CDbl(Num)), "0.00") * 100 'Replace(CStr(Format(CDbl(Num), "0.00")), ".", "")
If Num > 999999999999999.0 Then
DaXie = ""
Exit Function
End If
If Num = 0 Then
DaXie = "零元零分"
Exit Function
End If
Dim NumA As String
NumA = Trim(Num)
Dim NumLen As Integer = Len(NumA)
Dim j As Integer
Dim NumC As String
For j = NumLen To 1 Step -1 ' 数字转换过程
Dim temp As Double = Val(Mid(NumA, NumLen - j + 1, 1))
If temp <> 0 Then ' 非零数字转换
NumC = NumC & Mid(Dn, temp, 1) & Mid(Place, j, 1)
Else ' 数字零的转换
If Right(NumC, 1) <> "零" Then
NumC = NumC & Mid(D1, j, 1)
Else
Select Case j ' 特殊数位转换
Case 1
NumC = Left(NumC, Len(NumC) - 1) & Mid(D1, j, 1)
Case 3, 11
NumC = Left(NumC, Len(NumC) - 1) & Mid(D1, j, 1) & "零"
Case 7
If Mid(NumC, Len(NumC) - 1, 1) <> "亿" Then
NumC = Left(NumC, Len(NumC) - 1) & Mid(D1, j, 1) & "零"
End If
Case Else
End Select
End If
End If
Next
DaXie = FuHao & Trim(NumC)
End Function

钱小写转大写 VB相关推荐

vb.net编写人民币小写转大写
填写票据和结算凭证.必须做到标准化.规范化.要要素齐全.数字正确.字迹清晰.不错漏.不潦草.防止涂改.中文大写金额数字应用正楷或行书填写.如壹(壹).贰(贰).叁.肆(肆).伍(伍).陆(陆).柒.捌 ...
excel小写转大写公式_【Excel函数贴】五个技巧性函数小套路
来吧来吧来吧一起舞蹈什么烦恼可以将我打扰 ---- 1, 字母大小写. 一个做外贸的朋友问,Excel有没有函数可以把英文从小写变大写? 他可能碰到蛮多洋人的人名或者货名需要大小写转换的. 小 ...
录入键盘字母输入并将小写变为大写
/** 录入键盘输入字母并将小写变为大写 */ import java.io.*; class readin {public static void main(String[] args)throws ...
java中小写转大写函数_lotus 中日期小写转大写的函数及算法（lotus script） (转)...
lotus 中日期小写转大写的函数及算法(lotus script) (转)[@more@] 日期小写变大写 --------------------------------------------- ...
html金额输入框转大写,纯CSS实现输入框字符自动转为小写或大写
对于输入框的字符,如果要求只能输入小写或大写,怎么处理?js实现?提交到后台程序转换?其实很简单,CSS就有这个功能,一条语句就搞定. 纯CSS实现输入框字符自动转为小写或大写 CSS .lowerc ...
Java黑皮书课后题第4章：*4.15（电话键盘）电话上的国际标准字母/数字映射如下所示。编写程序，提示用户输入一个小写或大写字母，然后显示对应数字。对于非字母输入，提示非法输入
*4.15(电话键盘)电话上的国际标准字母/数字映射如下所示.编写程序,提示用户输入一个小写或大写字母,然后显示对应数字.对于非字母输入,提示非法输入题目题目概述运行示例破题代码题目题目 ...
mysql小写转大写UPPER() 和大写转小写LOWER()
小写转大写 UPPER() 大写转小写 LOWER()
C/C++ _wcsupr_s 函数 – unicode 字符串小写转大写 - C语言零基础入门教程
目录一._wcsupr_s 函数简介二._wcsupr_s 函数实战三.注意问题三.猜你喜欢零基础 C/C++ 学习路线推荐 : C/C++ 学习目录 >> C 语言基础入门零 ...
C/C++ _strupr_s 函数 – 字符串小写转大写 - C语言零基础入门教程
目录一._strupr_s 函数简介二._strupr_s 函数实战三.猜你喜欢零基础 C/C++ 学习路线推荐 : C/C++ 学习目录 >> C 语言基础入门零基础 C/C+ ...

钱小写转大写 VB

钱小写转大写 VB相关推荐

最新文章

热门文章