以“/”为千位分隔符的字符串数字格式

Question

sValA 变量。

例如sValA = 23224560.

我需要以下格式：

23/224/560

（将 / 字符指定为 千位分隔符 。）

我尝试了什么：

Format(23224560, "#,##0")returns：23224560

但是Format(23224560, "#/##0")returns：23224/560！ （需要）

Answer 1

除了系统可识别的数字格式，您不能使用千位分隔符 - 您的千位分隔符似乎是逗号。要使用系统千位分隔符以外的任何内容，您可以通过重复模式来获得您想要的结果：

?Format(23224560, "###/###/##0")
23/224/560

当然，这只有在您的号码至少为 7 位数字且最多为 9 位数字时才有效。您可以使用 Select 块来进行格式化：

Dim sValA As String
sValA = 23224560

Dim result As String

Select Case Len(sValA)
  Case 1 To 3
      result = Format$(sValA, "##0")
  Case 4 To 6
      result = Format$(sValA, "###/##0")
  Case 7 To 9
      result = Format$(sValA, "###/###/##0")
  'Case...
End Select

PS - 你最好使用 Format$ 函数 returns 和 String，而不是 Format [=26] =]一个Variant (String).

以“/”为千位分隔符的字符串数字格式

String Number format with "/" for thousand separator

string

vba

string-formatting

number-formatting

separator