admin
最近有很多读者朋友对人民币大写金额有疑问。由部分网友整理出相关内容希望能够解答你的疑惑，关于人民币大写金额书写规范，本站也已经为你找到了问题的答案，希望能帮助到你。
函数作用:人民币大、小写转换
‘################################################################
Function 小写(k)
Application.ScreenUpdating=False
m1=Application.WorksheetFunction.Round(k * 100, 0)
n1=Int(m1 / 100)
n2=Int(m1 / 10) – n1 * 10
n3=m1 – n1 * 100 – n2 * 10
e=Application.WorksheetFunction.Text(n1, “[DBNum1]”)
f=Application.WorksheetFunction.Text(n2, “[DBNum1]”)
g=Application.WorksheetFunction.Text(n3, “[DBNum1]”)
If n3=0 Then
小写=”人民币大写：” & e & “元” & “整”
End If
If (n3 <> 0) And (n2 <> 0) Then
小写=”人民币大写：” & e & “元” & f & “角” & g & “分”
If n1=0 Then
小写=”人民币大写：” & f & “角” & g & “分”
End If
End If
If (n3=0) And n2 <> 0 Then
小写=”人民币大写：” & e & “元” & f & “角” & “整”
If n1=0 Then
小写=”人民币大写：” & f & “角” & “整”
End If
End If
If (n3 <> 0) And (n2=0) Then
小写=”人民币大写：” & e & “元” & g & “分”
If n1=0 Then
小写=”人民币大写：” & g & “分”
End If
End If
If k=0 Or k=”” Then
k=””
End If
Application.ScreenUpdating=True
End Function
Function 大写(k)
Application.ScreenUpdating=False
m1=Application.WorksheetFunction.Round(k * 100, 0)
n1=Int(m1 / 100)
n2=Int(m1 / 10) – n1 * 10
n3=m1 – n1 * 100 – n2 * 10
e=Application.WorksheetFunction.Text(n1, “[dbnum2]”)
f=Application.WorksheetFunction.Text(n2, “[dbnum2]”)
g=Application.WorksheetFunction.Text(n3, “[dbnum2]”)
If n3=0 Then
大写=”人民币大写：” & e & “元” & “整”
End If
If (n3 <> 0) And (n2 <> 0) Then
大写=”人民币大写：” & e & “元” & f & “角” & g & “分”
If n1=0 Then
大写=”人民币大写：” & f & “角” & g & “分”
End If
End If
If (n3=0) And n2 <> 0 Then
大写=”人民币大写：” & e & “元” & f & “角” & “整”
If n1=0 Then
大写=”人民币大写：” & f & “角” & “整”
End If
End If
If (n3 <> 0) And (n2=0) Then
大写=”人民币大写：” & e & “元” & f & g & “分”
If n1=0 Then
大写=”人民币大写：” & g & “分”
End If
End If
If k=0 Or k=”” Then
大写=””
End If
Application.ScreenUpdating=True
End Function
