■■■■谁知道vb下有好的金额输入控件，就象发票的金额输入部分、会计凭证。。一样

[hlm750908]

如题

先给20分

提供好了再给100分，我急用

我的结碟率 99%

[hlm750908]

我的邮箱是：

[e-mail]
[e-mail]
[e-mail]

• 打赏
• 举报

回复 赞

[sanwaxubin]

我也想要一个啊！
我的邮箱是：[e-mail]

• 打赏
• 举报

回复 赞

[hlm750908]

发过来试试
[e-mail]

• 打赏
• 举报

回复 赞

[ehais]

晕！我给你一段代码吧，只是用将数字变为大写汉字可以适用于金额，日期、数字的大写转换！如果合适可要给分咯
Public Function Number_To_Chinese(ByVal Number As Double) As String
Dim Number_string As String
Dim Dot_pos As Integer
Dim Result_string As String
Dim Is_Zero As Boolean
Dim This_Class_NoNumber As Boolean
Dim Dig_string As String
Dim Integer_Len As Integer, Decimal_Len As Integer
Dim Class_val As Integer


Digit = Array("零", "壹", "贰", "叁", "肆", "伍", "陆", "柒", "捌", "玖", "点")
Digit_Format = Array("", "拾", "佰", "仟")
Class = Array("", "万", "亿", "兆")

Is_Zero = False

Number_string = CStr(Number)
Dot_pos = InStr(Number_string, ".")
If Dot_pos = 0 Then
' 该数为整数
Integer_Len = Len(Number_string)
If Integer_Len Mod 4 = 0 Then
Class_val = Int(Integer_Len / 4) - 1
Else
Class_val = Int(Integer_Len / 4)
End If


For i = 1 To Integer_Len

If (Integer_Len - i - Class_val * 4) = -1 Then
If This_Class_NoNumber = False Then
Result_string = Result_string & Class(Class_val) & Divvy
End If
Class_val = Class_val - 1
Is_Zero = False
This_Class_NoNumber = True
End If
Dig_string = Mid(Number_string, i, 1)
If CInt(Dig_string) = 0 Then

Is_Zero = True
Else
If Is_Zero = True Then
Result_string = Result_string & Digit(0) & Divvy
End If

Result_string = Result_string & Digit(Dig_string) & Divvy
If (Integer_Len - i) Mod 4 <> 0 Then
Result_string = Result_string & Digit_Format(((Integer_Len - i) Mod 4)) & Divvy
End If
Is_Zero = False
This_Class_NoNumber = False
End If

Next
Else
' 该处为整数部分
Integer_Len = Dot_pos - 1
If Integer_Len Mod 4 = 0 Then
Class_val = Int(Integer_Len / 4) - 1
Else
Class_val = Int(Integer_Len / 4)
End If


For i = 1 To Integer_Len

If (Integer_Len - i - Class_val * 4) = -1 Then
If This_Class_NoNumber = False Then
Result_string = Result_string & Class(Class_val) & Divvy
End If
Class_val = Class_val - 1
Is_Zero = False
This_Class_NoNumber = True
End If
Dig_string = Mid(Number_string, i, 1)
If CInt(Dig_string) = 0 Then
Is_Zero = True
Else
If Is_Zero = True Then
Result_string = Result_string & Digit(0) & Divvy
End If

Result_string = Result_string & Digit(Dig_string) & Divvy
If (Integer_Len - i) Mod 4 <> 0 Then
Result_string = Result_string & Digit_Format(((Integer_Len - i) Mod 4)) & Divvy
End If
Is_Zero = False
This_Class_NoNumber = False
End If

Next

If Integer_Len = 0 Then '纯小数
Result_string = Result_string & Digit(0) & Divvy
End If


Result_string = Result_string & Digit(10) & Divvy
' 该处为小数部分
For i = Dot_pos + 1 To Len(Number_string)
Result_string = Result_string & Digit(Mid(Number_string, i, 1)) & Divvy
Next

End If
Number_To_Chinese = Result_string
End Function

• 打赏
• 举报

回复 赞

[ehais]

Number_To_Chinese
调用此函数可实现

• 打赏
• 举报

回复 赞

[hlm750908]

数字转金额的函数模块我有，谢谢你

• 打赏
• 举报

回复 赞

[hlm750908]

货币输入控件谁有？
要钱的不要钱的都行

• 打赏
• 举报

回复 赞

[_131_]

金蝶就有！
安装一个金蝶应该就有这个控件了！
一起有个软件叫《润嘉财务》什么的也有！
功能也还是强大的！
还有现在一个软件叫做《格林财务管理系统》，也有这个控件！
具体地址：http://www.greensoft.cn/
你看看，应该有的！

• 打赏
• 举报

回复 赞

[hlm750908]

我怎样找到控件

• 打赏
• 举报

回复 赞

[hlm750908]

控件放在什么目录？
文件名是什么？

• 打赏
• 举报

回复 赞

[Apple200228]

我有一个可以控制只能输入某些类型（数字、浮点数字、日期、自定义以及全字母等）的FlatBox孔件，需要吗？

• 打赏
• 举报

回复 赞

[netbooting]

我有一个，你规定它输入什么就能输入什么，如:0123456789.那么只能输入数字和小数点，并且小数点只能输入一次，

• 打赏
• 举报

回复 赞

[hxy2003]

up

• 打赏
• 举报

回复 赞

[johnzzq]

我有，可与我联系。[e-mail]

• 打赏
• 举报

回复 赞