以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  关于中文货币格式转成数字的问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=125992)
--  作者：ap9709130
--  发布时间：2018/10/11 16:12:00
--  关于中文货币格式转成数字的问题
各位老师

狐表里有把数字转成中文货币格式的函数,有没有把中文货币格式 转换成数字的函数啊? 多谢!
--  作者：有点甜
--  发布时间：2018/10/11 16:19:00
--  

Dim str As String = "壹万贰千叁佰肆拾伍圆壹角贰分"
Dim s1 As String = "万千佰拾角分"
Dim s2 As String = "壹贰叁肆伍"
Dim s3 As String = "12345"
For i As Integer = 0 To s2.length-1
    str = str.Replace(s2(i), s3(i))
Next
For Each s As String In s1
    str = str.Replace(s, "")
Next
str = str.replace("圆", ".")

msgbox(str)