获取对应金额后，拼接字符串。如￥&"100"

果子哩 获取对应金额后，拼接字符串。如￥&"100"

那还想要千分符怎么处理？比如输入1000，输出￥1,000.00这样的。

方法

Function getMoney(number,format)

Dim iRet = ""

Dim sRet = ""

Dim result = ""

number = CStr(number)

iRet = Len(number)

If iRet <= 3

result = format&number

Return result

End If

Do While iRet > 3

sRet = Right(number,3)

If result = ""

result = sRet&result

Else

result = sRet&","&result

End If

number = Left(number,iRet - 3)

iRet = Len(number)

Loop

result = format&number&","&result

Return result

End Function

调用：TracePrint(getMoney(12345678,'￥'))

输出结果："￥123,456,789"

没考虑小数点吧？

dim a = "1888000.999"
a=split(a,".")
dim b=regex.FindAll(a[0],"(.{1,3})(?=(?:.{3})*$)")
b="$ " & join(b,",") & (len(a)>1 and "." & a[1] or "")
traceprint(b)

虫子老师真是高手啊，简单明了。正则用的也太牛了

牛！

我也来献丑下，主要用了字符串命令，望高手指正：（比起虫子老师，我这算雕虫小技了，哈哈）

感觉还是使用正则+数组，更加简洁明了，虫子老师能不能收我为徒啊：

叶辉_374502 感觉还是使用正则+数组，更加简洁明了，虫子老师能不能收我为徒啊：

正则不难，只要理解了他的规则，就能随心所欲了

我记得时间格式化功能好像可以格式为货币数据，之前好像是有叶飞的课程讲过这个

深呼吸工作室 我记得时间格式化功能好像可以格式为货币数据，之前好像是有叶飞的课程讲过这个

现在不行了