VBA "Scientific" 非标准数字格式

Question

由于不明确的原因（我需要匹配古代 Fortran 代码中使用的一些格式）我需要使用 VBA（到文本文件）从 Excel 输出一些非标准数字科学计数法。

例如如果 x = 6000000

正常VBA:

  mystring = Format(x, "0.000E+00")

生产

  "6.000E+06"

我需要一种生产方式

  "0.600E+07"

相反。我想不出使用 Format 函数执行此操作的方法。这可能吗？

Answer 1

应该这样做：

Dim x As Double
    x = 6000000
Dim myString As String
myString = "0" & VBA.Format(x, ".0000E+00")
Debug.Print myString

VBA "Scientific" non-standard number format