字符串转换成金额的两种方式

‘获取暂支金额费用
       Dim TemporaryAmount
       TemporaryAmount = Browser("SAP").Page("SAP").Frame("表单").WebEdit("暂支金额").GetROProperty("value")
       MsgBox CCur(TemporaryAmount)
       ‘去除金额中间的,号
       Dim TemporaryAmount_V
       
                            TemporaryAmount_V = Split(TemporaryAmount ,",")
       Dim  i
       Dim TemporaryAmount_value
                             For i =0 To UBound(TemporaryAmount_V)              
         TemporaryAmount_value=TemporaryAmount_value&TemporaryAmount_V(i)
          Next

         msgbox  TemporaryAmount_value

字符串转换成金额的两种方式

原文：http://my.oschina.net/marcello/blog/519202