admin 管理员组

文章数量: 1184232


2024年5月17日发(作者：双向链表c语言实现)

Public Function DaXie(txtJE As Double) As String

On Error GoTo err1

Dim I As Long '迴圈變數

Dim K As Long '記錄整數位元迴圈位置

Dim NC As String '輸入金額 '

Dim chrNum As String '保存從字串中取出的數字

Dim c1 As String '中文大寫單位

Dim c2 As String '中文角分

Dim c3 As String '中文大寫數位

Dim Zheng As String '整數部分

Dim Xiao As String '小數部分

NC = Trim(Format(txtJE, "##0.00"))

c1 = "仟佰拾萬仟佰拾億仟佰拾萬仟佰拾元"

c2 = "角分"

c3 = "玖捌柒陸伍肆三貳壹"

If NC = 0 Then

DaXie = "零元整"

Exit Function

End If

DaXie = ""

Zheng = Mid(NC, 1, (Len(NC)

Xiao = Mid(NC, (Len(Zheng) +

If Val(Xiao) <> 0 Then

For I = Len(Xiao) To 1

- 3))

2), 2)

Step -1


本文标签： 整數 部分 链表 双向 字串

版权声明：本文标题：VB中将数字转成人民币大写代码 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://www.roclinux.cn/b/1715894101a689888.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。