小写转换大写出错，请指点迷津！

涵默

这段代码把数值由小写转换成大写（带"元""角""分""整"），但超过2000万元就出错，劳烦高手分析！谢了。

Function dx(q) Dim Cur As Long, yuan As Long Dim Jiao As Integer, Fen As Integer Dim CnYuan As String, CnJiao As String, CnFen As String If q = "" Then dx = 0 Exit Function End If Cur = Round(q * 100) yuan = Int(Cur / 100) Jiao = Int(Cur / 10) - yuan * 10 Fen = Cur - yuan * 100 - Jiao * 10 CnYuan = Application.WorksheetFunction.Text(yuan, "[DBNum2]") CnJiao = Application.WorksheetFunction.Text(Jiao, "[DBNum2]") CnFen = Application.WorksheetFunction.Text(Fen, "[DBNum2]") dx = CnYuan & "元" & "整" d1 = CnYuan & "元" If Fen <> 0 And Jiao <> 0 Then dx = d1 & CnJiao & "角" & CnFen & "分" If yuan = 0 Then dx = CnJiao & "角" & CnFen & "分" End If End If If Fen = 0 And Jiao <> 0 Then dx = d1 & CnJiao & "角" & "整" If yuan = 0 Then dx = CnJiao & "角" & "整" End If End If If Fen <> 0 And Jiao = 0 Then dx = d1 & CnJiao & CnFen & "分" If yuan = 0 Then dx = CnFen & "分" End If End If End Function

[此贴子已经被作者于2005-7-29 13:05:41编辑过]

asdf1001

Function sss(ss As String) As String If Val(ss) = 0 Then sss = "": Exit Function Dim yy() As String ss = Application.WorksheetFunction.Text(Round(Val(ss), 2) + 0.001, "[DBNum2]") yy = VBA.Split(ss, ".") y = yy(0) jfl =yy(1)'此处已更改

j = Mid$(jfl, 1, 1) f = Mid$(jfl, 2, 1) If y = "零" Then y = "" Else y = y & "元" If f = "零" Then If j = "零" Then sss = y & "整" If j <> "零" Then sss = y & j & "角整" Else sss = y & j & "角" & f & "分" End If End Function

[此贴子已经被作者于2005-7-29 8:31:37编辑过]

涵默

谢谢2楼的帮助，可是还是出错。不仅2000万元以上出错，试验了整数的时候也出错。

asdf1001

那就不知道你出的什么错了,我的代码在我的机子上别说2000万,2000亿都没有问题.单独是整数,单独是小数都没有问题

涵默

出错如附件

2k1cGoX6.rar (6.44 KB, 下载次数: 44)

2005-7-27 17:07 上传

点击文件名下载附件
小写转换大写出错，请指点迷津！

[此贴子已经被作者于2005-7-28 23:42:23编辑过]

涵默

asdf1001兄，再帮偶看一看嘛

asdf1001

Function sss(ss As String) As String If Val(ss) = 0 Then sss = "": Exit Function Dim yy() As String ss = Application.WorksheetFunction.Text(Round(Val(ss), 2) + 0.001, "[DBNum2]") yy = VBA.Split(ss, ".") y = yy(0) jfl = Left$(yy(1), 2)

j = Mid$(jfl, 1, 1) f = Mid$(jfl, 2, 1) If y = "零" Then y = "" Else y = y & "元" If f = "零" Then If j = "零" Then sss = y & "整" If j <> "零" Then sss = y & j & "角整" Else sss = y & j & "角" & f & "分" End If End Function

[此贴子已经被作者于2005-7-29 8:29:44编辑过]

涵默

谢谢asdf1001的指点。

经验证无误，收下了。

再次感谢asdf1001兄的帮助！

[em17]

旅人2014

初学者，看不太明白，哪位大师能给讲解一下吗？

walle666

学习了，谢谢