Val 函数
（创建时间：2012年08月28日 01:15:00）
Jangogo ： 

把字符串转成数字 ，VB 的Val 函数对于 有千分符的字符串转成数字会有问题。

例如 VBA.Val("2,333.45") =2

 

我们自己的这个Val函数处理了这个问题

MyApp.Val("2,333.45") =2333.45

 

函数的实现：

 

 


 

VB
  1. Public Function Val(s As String) As Double  
  2.     On Error Resume Next  
  3.     Val = VBA.Val(Replace(s, ",", ""))   
  4. End Function  
2012年08月28日 01:15
回复(0)分类(1)转发(0)全文打开
文档中心