中文数字就是
壹。。
这个要用一个自己的函数。Const CHAR1 = "零壹贰叁肆伍陆柒捌玖分角元拾佰仟万拾佰仟亿"
Function Change(ByVal Money As Integer, ByRef MoneyOfChar As String) As Long
On Error GoTo ErrorHead
Dim I As Long
Dim TempStr As String
Dim MoneyStr As String
Dim Seat As Long, LenStr As Long
TempStr = ""
MoneyStr = CStr(Int(Money * 100))
LenStr = Len(MoneyStr)
For I = LenStr To 1 Step -1
Seat = CLng(Mid(MoneyStr, LenStr - I + 1, 1))
TempStr = TempStr & Mid(CHAR1, Seat + 1, 1) & Mid(CHAR1, 10 + I, 1)
Next
Change = -1
MoneyOfChar = TempStr
Exit Function
ErrorHead:
Change = Err.Number
MoneyOfChar = ""
End Functionhttp://search.csdn.net/Expert/topic/1138/1138318.xml?temp=.9120447楼主给点分分呀
壹。。
这个要用一个自己的函数。Const CHAR1 = "零壹贰叁肆伍陆柒捌玖分角元拾佰仟万拾佰仟亿"
Function Change(ByVal Money As Integer, ByRef MoneyOfChar As String) As Long
On Error GoTo ErrorHead
Dim I As Long
Dim TempStr As String
Dim MoneyStr As String
Dim Seat As Long, LenStr As Long
TempStr = ""
MoneyStr = CStr(Int(Money * 100))
LenStr = Len(MoneyStr)
For I = LenStr To 1 Step -1
Seat = CLng(Mid(MoneyStr, LenStr - I + 1, 1))
TempStr = TempStr & Mid(CHAR1, Seat + 1, 1) & Mid(CHAR1, 10 + I, 1)
Next
Change = -1
MoneyOfChar = TempStr
Exit Function
ErrorHead:
Change = Err.Number
MoneyOfChar = ""
End Functionhttp://search.csdn.net/Expert/topic/1138/1138318.xml?temp=.9120447楼主给点分分呀
解决方案 »
- 怎样将绑定出的时间格式2011-6-3替换成2011/6/3这种格式?菜鸟..在线等
- 请教 菜单问题?他这个是怎么做的?有源码不?
- 如何禁止框架里的JS控制父窗口啊?
- 请问如何更改form的提交页面?
- 求助,关于无限级树的展开问题?
- 一个时间转换的问题。。。。
- 我有个id="A1.EndDate"的textbox 在客户端怎么用js访问她啊?这样子写不行,点击没有反映
- 怎么用JS限制一个输入框只能输入数字??
- 急救(怎样在talbe的单元格中划斜线)
- 100分求解!如何在两个Window之间传递数据?
- 使用Cookie缓存窗口对象的问题
- 为什么我的JavaScript访问不到网页上的XML的?请指教
<!--
function check(str) {
reg = /^[0-9]*$/ig;
var isValid = reg.test(str);
alert(isValid);
}
check("123");
check("012一");
check("二123");
check("12d23");
//-->
</script>
即
check("123");true
check("12.3");true
check("012一");false
check("二123");false
check("12d23");false有办法吗?
<!--
function check(str) {
reg = /^(\d*)(\.*)(\d*)$/ig;
var isValid = reg.test(str);
alert(isValid);
}
check("0.000");
check("121.000");
check("1245");
check("0.123456");
check("12.3");
check("012一");
check("二123");
check("12d23");
//-->
</script>
//字符屏蔽,屏蔽非整數的字符
function chkInt()
{
if ((event.keyCode < 48 || event.keyCode > 57) && event.keyCode!=13) event.returnValue = false;
}//字符屏蔽,屏蔽非整數或者非浮點數的字符
function chkFloat(obj)
{
var Code=event.keyCode
var pos=obj.value.indexOf(".")
var len=obj.value.length if (pos>=0 && (Code==46 || len-pos>2)) event.returnValue = false;
if ((Code < 48 || Code > 57) && Code!=13 && Code!=46) event.returnValue = false;
}</script><input name="bb" Style="IME-MODE:disabled" onKeyPress="chkInt()">
<input onkeyup="value=value.replace(/[^\d.]/g,'') " onbeforepaste="clipboardData.setData('text',clipboardData.getData('text').replace(/[^\d.]/g,''))" ID="Text2" NAME="Text2">