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

hlm750908 2003-12-12 05:43:40
如题

先给20分

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

我的结碟率 99%
...全文
39 14 打赏 收藏 举报
写回复
14 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
johnzzq 2003-12-17
我有,可与我联系。john.cs@163.com
  • 打赏
  • 举报
回复
hxy2003 2003-12-15
up
  • 打赏
  • 举报
回复
netbooting 2003-12-14
我有一个,你规定它输入什么就能输入什么,如:0123456789.那么只能输入数字和小数点,并且小数点只能输入一次,
  • 打赏
  • 举报
回复
Apple200228 2003-12-13
我有一个可以控制只能输入某些类型(数字、浮点数字、日期、自定义以及全字母等)的FlatBox孔件,需要吗?
  • 打赏
  • 举报
回复
hlm750908 2003-12-13
控件放在什么目录?
文件名是什么?
  • 打赏
  • 举报
回复
hlm750908 2003-12-13
我怎样找到控件
  • 打赏
  • 举报
回复
_131_ 2003-12-13
金蝶就有!
安装一个金蝶应该就有这个控件了!
一起有个软件叫《润嘉财务》什么的也有!
功能也还是强大的!
还有现在一个软件叫做《格林财务管理系统》,也有这个控件!
具体地址:http://www.greensoft.cn/
你看看,应该有的!
  • 打赏
  • 举报
回复
hlm750908 2003-12-13
货币输入控件谁有?
要钱的不要钱的都行
  • 打赏
  • 举报
回复
hlm750908 2003-12-13
数字转金额的函数模块我有,谢谢你
  • 打赏
  • 举报
回复
ehais 2003-12-13
Number_To_Chinese
调用此函数可实现
  • 打赏
  • 举报
回复
ehais 2003-12-13
晕!我给你一段代码吧,只是用将数字变为大写汉字可以适用于金额,日期、数字的大写转换!如果合适可要给分咯
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
  • 打赏
  • 举报
回复
hlm750908 2003-12-13
发过来试试
2ego@163.com
  • 打赏
  • 举报
回复
sanwaxubin 2003-12-12
我也想要一个啊!
我的邮箱是:xsoft@126.com
  • 打赏
  • 举报
回复
hlm750908 2003-12-12
我的邮箱是:

2ego@sohu.com
2ego@163.com
xhego@126.com
  • 打赏
  • 举报
回复
发帖
控件
加入

1433

社区成员

VB 控件
社区管理员
  • 控件
申请成为版主
帖子事件
创建了帖子
2003-12-12 05:43
社区公告
暂无公告