UC知道vf程序想改vb，我实在是我能为力了，请各位大侠帮助？
来源：百度知道 编辑：UC知道 时间：2024/06/18 00:22:12
Dim num As Integer
Dim bzw As Integer
num = 105.22
bzw = ""
If num < 0 Then
bzw = "负"
num = num * -1
End If
price_1 = CStr(num) ', 12, 2)
price = Space(2)
price_1 = Trim(price_1)
ll = price_1
If InStr(".", price_1) = 0 Then
price_1 = price_1 + "."
End If
a = InStr(".", price_1) + 2
price_1 = CStr(price_1)
'price_1 = Str(Val(price_1) + 0#, a, 2)
b = a - 2
price_1 = Mid(price_1, 1, b - 1) + Mid(price_1, b + 1, 2)
a = Len(price_1)
hz1 = "仟佰拾亿仟佰拾万仟佰拾元角分"
hz2 = "零壹贰叁肆伍陆柒捌玖"
d = a
If Mid(price_1, a, 1) <> "0" Then
price = Space(4)
Else
price = "正" + Space(2)
End If
hz3 = Mid(hz1, 1, 6) + Mid(hz1, 25, 4)
Do While a > 0
e = Mid(price_1, a, 1)
price = Mid(hz2, Val(e) * 2 + 1, 2) + Mid(hz1, 29 - ((d - a
Dim bzw As Integer
num = 105.22
bzw = ""
If num < 0 Then
bzw = "负"
num = num * -1
End If
price_1 = CStr(num) ', 12, 2)
price = Space(2)
price_1 = Trim(price_1)
ll = price_1
If InStr(".", price_1) = 0 Then
price_1 = price_1 + "."
End If
a = InStr(".", price_1) + 2
price_1 = CStr(price_1)
'price_1 = Str(Val(price_1) + 0#, a, 2)
b = a - 2
price_1 = Mid(price_1, 1, b - 1) + Mid(price_1, b + 1, 2)
a = Len(price_1)
hz1 = "仟佰拾亿仟佰拾万仟佰拾元角分"
hz2 = "零壹贰叁肆伍陆柒捌玖"
d = a
If Mid(price_1, a, 1) <> "0" Then
price = Space(4)
Else
price = "正" + Space(2)
End If
hz3 = Mid(hz1, 1, 6) + Mid(hz1, 25, 4)
Do While a > 0
e = Mid(price_1, a, 1)
price = Mid(hz2, Val(e) * 2 + 1, 2) + Mid(hz1, 29 - ((d - a
Function GetDX(sun As String) As String
If Len(sun) = 0 Then Exit Function
Dim b As String, d As String
Dim zws As String, ZW() As String, t As String, F As Boolean
For i = 1 To Len(sun)
Select Case Mid(sun, i, 1)
Case "0" To "9", ".", "-"
Case Else
MsgBox "不能含有非数字字符!"
Exit Func