用我的程序换你的可用分~~

[lovingkiss]

Function TurnNumber(StrTemp As String) As String
'编制：蒋玉龙
'QQ：66840199
'功能：将数据转换成为财会专用数据,每三位一个分隔符号
'转换以字符方式转换
Dim MyPos As String '全部的字符
Dim IntPart As String '整数部分
Dim IntPartTemp As String '临时的整数部分
Dim StrOther As String '剩余部分

MyPos = InStr(1, StrTemp, ".")
If MyPos = 0 Then
IntPart = StrTemp
StrOther = ""
Else
IntPart = Left(StrTemp, MyPos - 1)
StrOther = Right(StrTemp, Len(StrTemp) - MyPos + 1)
End If
Do While Not Len(IntPart) <= 3
IntPartTemp = "," & Right(IntPart, 3) & IntPartTemp
IntPart = Left(IntPart, Len(IntPart) - 3)
Loop
IntPartTemp = IntPart & IntPartTemp
TurnNumber = IntPartTemp & StrOther
End Function


以上为VB中的写法，脚本需要将定义去掉~~

Function TurnNumber(StrTemp)'编制：蒋玉龙
'QQ：66840199
'功能：将数据转换成为财会专用数据,每三位一个分隔符号
'转换以字符方式转换
Dim MyPos '全部的字符
Dim IntPart '整数部分
Dim IntPartTemp '临时的整数部分
Dim StrOther '剩余部分

MyPos = InStr(1, StrTemp, ".")
If MyPos = 0 Then
IntPart = StrTemp
StrOther = ""
Else
IntPart = Left(StrTemp, MyPos - 1)
StrOther = Right(StrTemp, Len(StrTemp) - MyPos + 1)
End If
Do While Not Len(IntPart) <= 3
IntPartTemp = "," & Right(IntPart, 3) & IntPartTemp
IntPart = Left(IntPart, Len(IntPart) - 3)
Loop
IntPartTemp = IntPart & IntPartTemp
TurnNumber = IntPartTemp & StrOther
End Function


如果你觉得好，请转给偶点可用分
如果你觉得不好，请离开这里——记得关门哦~~

[lovingkiss]

谢谢~~

[funboy88]

我还以为是转换成大写的财务数据呢，一看不是，应该是
123,456,789
对吧？


上次别人送了五百给我，我送点给你吧，

[funboy88]

funboy88给lovingkiss捐献了300可用分;lovingkiss收到了：270可用分

[funboy88]

哈，搞得我现在没有可用分了，

[lovingkiss]

呵呵——赶紧罢，也用程序换好了

[Triumph]

FormatCurrency 函数

返回表达式，此表达式已被格式化为货币值（使用系统控制面板中定义的货币符号）。

FormatCurrency(
expression[,NumDigitsAfterDecimal [,IncludeLeadingDigit [,UseParensForNegativeNumbers [,GroupDigits]]]]
)

参数
Expression

必选项。要被格式化的表达式。

NumDigitsAfterDecimal

可选项。指示小数点右侧显示位数的数值。默认值为 -1，指示使用的是计算机的区域设置。

IncludeLeadingDigit

可选项。三态常数，指示是否显示小数值小数点前面的零。有关数值，请参阅“设置”部分。

UseParensForNegativeNumbers

可选项。三态常数，指示是否将负值置于括号中。有关数值，请参阅“设置”部分。

GroupDigits

可选项。三态常数，指示是否使用计算机区域设置中指定的数字分组符号将数字分组。有关数值，请参阅“设置”部分。

设置
IncludeLeadingDigit、UseParensForNegativeNumbers 和 GroupDigits 参数可以有以下值：

常数 值 描述
TristateTrue -1 True
TristateFalse 0 False
TristateUseDefault -2 使用计算机区域设置中的设置。


说明
当省略一个或多个可选项参数时，由计算机区域设置提供被省略参数的值。 与货币值相关的货币符号的位置由系统的区域设置决定。

注意 除“显示起始的零”设置来自区域设置的“数字”附签外，所有其他设置信息均取自区域设置的“货币”附签。

下面例子利用 FormatCurrency 函数把 expression 格式化为 currency 并且赋值给 MyCurrency:

Dim MyCurrency
MyCurrency = FormatCurrency(1000) 'MyCurrency 包含 $1000.00 。

[lovingkiss]

嗯，是我疏忽了这个函数~~