vb 字符串转为数字 和判断字符串是否是数字字符串【转】

1 Val 函数

返回包含于字符串内的数字，字符串中是一个适当类型的数值。

语法

Val(string)

必要的 string 参数可以是任何有效的字符串表达式.

说明

Val 函数，在它不能识别为数字的第一个字符上，停止读入字符串。那些被认为是数值的一部分的符号和字符，例如美圆号与逗号，都不能被识别。但是函数可以识别进 位制符号 &O（八进制）和 &H（十六进制）。空白、制表符和换行符都从参数中被去掉。

下面的返回值为 1615198：

Val(" 1615 198th Street N.E.")

在下面的代码中，Val 为所示的十六进制数值返回十进制数值 -1。

Val("&HFFFF")

注意 Val 函数只会将句点（.）当成一个可用的小数点分隔符。当使用不同的小数点分隔符时，如在国际版应用程序中，代之以 CDbl 来把字符串转换为数字。  
  
Val 函数示例
本示例使用 Val 函数返回字符串中所含的数值。

Dim MyValue
MyValue = Val("2457") ' 返回 2457。
MyValue = Val(" 2 45 7") ' 返回 2457。
MyValue = Val("24 and 57") ' 返回 24。  
2 IsNumeric 函数

返回 Boolean 值，指出表达式的运算结果是否为数。

语法  
   
IsNumeric(expression)

必要的 expression 参数是一个 Variant，包含数值表达式或字符串表达式。

说明

如果整个 expression 的运算结果为数字，则 IsNumeric 返回 True；否则返回 False。

如果 expression 是日期表达式，则 IsNumeric 返回 False。  
   
IsNumeric 函数示例
本示例使用 IsNumeric 函数判断变量的值是否可为数值。

Dim MyVar, MyCheck
MyVar = "53" ' 指定值。
MyCheck = IsNumeric(MyVar) ' 返回 True。

MyVar = "459.95" ' 指定值。
MyCheck = IsNumeric(MyVar) ' 返回 True。

MyVar = "45 Help" ' 指定值。
MyCheck = IsNumeric(MyVar) ' 返回 False。

摘自：网络整理

相关文章参考：

※VB SendMessage向其他程序窗口发送字符串消息实例

※VB 二进制数组与十六进制字符串相互转换

※VB 汉字字符串转换成拼音

※VB查找替代字符串的函数

※VB中字符串匹配的多种方式

※vb 字符串转为数字和判断字符串是否是数字字符串【转】

※查找替代字符串的函数

※VB中使用MD5算法

※VB的MD5加密模块

※加密算法-MD5算法

※VB 字符串MD5加密函数

 

★VB部分相关文章推荐：★

---

☆VB6 中善用ByRef 提升速度

☆[vb] Set 语句

☆VB_Format自定义格式

☆用VB如读取内存地址