中文数字就是
壹。。
这个要用一个自己的函数。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楼主给点分分呀
<!--
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">