Vb6 ght最终不得不这样做，因为无论出于何种原因，windows本地化都无法正确处理希腊值。因此，我可能需要一个函数来正确处理这个特定客户机的问题。我只是希望能有一个不需要太多重构的解决方案。谢谢你们。谢谢，但问题是这些数字是从网页上解析出来的。所以我不能把他

---

ght最终不得不这样做，因为无论出于何种原因，windows本地化都无法正确处理希腊值。因此，我可能需要一个函数来正确处理这个特定客户机的问题。我只是希望能有一个不需要太多重构的解决方案。谢谢你们。谢谢，但问题是这些数字是从网页上解析出来的。所以我不能把他们作为一个数字，我需要格式化它之前作为一个字符串，让它被用作一个数字。我正在测试的系统被设置为希腊，这就是我的问题所在。因此，必须获取字符串值并进行转换。数一数。目前没有办法。format方法和numberformat都不会忽略希腊语设置。但这是一个信息，有人正在检查这个线程。如果你知道源代码总是设置为“希腊语”，那么你可能很容易编写自己的数字解析器。这样，您就可以完全控制源代码的解析。解析后，您应该将该数字存储在适当类型的数字变量中，然后如@tcarvin所述，使用VB

Format（）

函数将其返回到字符串中。我同意，这不是第一次声明的格式问题，而是解析问题。谷歌快速搜索发现了这一点，看看是否有帮助：欣赏来自tcarvin的链接。以及可能解决方案的标记。我可能不得不这样做，因为无论出于什么原因，windows本地化都不能正确地处理希腊值。因此，我可能需要一个函数来正确处理这个特定客户机的问题。我只是希望能有一个不需要太多重构的解决方案。谢谢大家。仅供参考，

format（sTwo）

没有意义——您必须传递一个

Double

（或

Long

）而不是

字符串
，而
formatnumber（“2.0”…
更有意义——同样，您需要一个将要格式化的
Double
。这里有两个独立的问题——转换字符串（可能来自美国地区或文化）对于一个数字，第二个是将一个数字格式化为当前语言环境。第二个很简单——只需将
格式
/
格式数字
与
双精度
s一起使用，而不是
字符串
s！第一个会很快变成一个乱码。请欣赏。问题是，数据是以字符串的形式出现的，没有办法解决。我们我们有其他方法只获取实际数字。但在本例中，它当前无法使用。仅供参考，
format（sTwo）
没有任何意义——您必须传递一个
双精度（
Double
（或
Long
）而不是
字符串和
formatnumber（“2.0”，…
的意义就更小了——同样，您需要一个将要格式化的
Double
对于一个数字，第二个是将一个数字格式化为当前语言环境。第二个很简单——只需将
格式
/
格式数字
与
双精度
s一起使用，而不是
字符串
s！第一个会很快变成一个乱码。请欣赏。问题是，数据是以字符串的形式出现的，没有办法解决。我们我有其他的方法只得到一个实际的数字。但是对于这个例子，它目前不能被使用。
public sub main ()
     dim sTwo as string, sThousand as string

     sTwo = "2.0"
     sThousand = "1,000"

     debug.print "should be 2.0 or 2"
     debug.print sTwo
     ' "2.0"
      debug.print clng(sTwo)
     ' 20
     debug.print cdbl(sTwo)
     ' 20
     debug.print format(sTwo)
     ' 20 

     debug.print "\nshould be 1000.0 or 1000"
     debug.print sThousand
     ' "1000"
     debug.print clng(sThousand)
     ' 1
     debug.print cdbl(sThousand)
     ' 1
     debug.print format(sThousand)
     ' 1
 end sub

?formatnumber("2.0", 1, vbUseDefault, vbFalse, vbTrue)
20,0
?formatnumber("2.0", 0, vbUseDefault, vbFalse, vbTrue)     
20
?formatnumber("2.0", 0, 0, vbFalse, vbTrue)
20
?formatnumber("2.0", 0, 0, vbFalse, vbfalse)
20

FormatNumber(1000, 0, vbUseDefault, vbFalse, vbFalse)

FormatNumber(1000, 0, vbUseDefault, vbFalse, vbTrue)