VBA实现适配古老Fortran规范的非标准Scientific科学计数法输出方案问询

可以通过自定义VBA函数实现该需求，核心逻辑是将常规科学计数法的底数除以10、指数加1，把底数范围从[1,10)调整为[0.1,1)，再拼接成指定格式即可。

完整自定义函数代码 #

Function FortranSciFormat(inputVal As Double, Optional decimalLen As Integer = 3) As String
    ' 处理0值特殊情况
    If inputVal = 0 Then
        FortranSciFormat = "0." & String(decimalLen, "0") & "E+00"
        Exit Function
    End If
    
    Dim sign As String
    Dim absVal As Double
    Dim expOld As Integer
    Dim coeffNew As Double
    Dim expNew As Integer
    
    ' 提取符号
    sign = IIf(inputVal < 0, "-", "")
    absVal = Abs(inputVal)
    
    ' 计算原始指数（10的幂次）
    expOld = Int(Log(absVal) / Log(10))
    ' 计算新的系数（0.xxx格式）和新指数
    coeffNew = absVal / (10 ^ (expOld + 1))
    expNew = expOld + 1
    
    ' 拼接最终结果
    FortranSciFormat = sign & Format(coeffNew, "0." & String(decimalLen, "0")) & _
                       IIf(expNew >= 0, "E+", "E-") & Format(Abs(expNew), "00")
End Function

使用示例 #

直接在VBA代码中调用函数即可：

Sub TestFormat()
    Dim x As Double
    Dim mystring As String
    x = 6000000
    ' 调用自定义函数，默认保留3位小数
    mystring = FortranSciFormat(x)
    ' 输出结果为 0.600E+07
    Debug.Print mystring
End Sub

可选调整说明 #

• 如果需要修改小数点后保留的位数，调用函数时传入第二个参数即可，例如保留4位小数写为FortranSciFormat(x,4)，输出结果为0.6000E+07
• 代码已兼容负数场景，例如输入x=-6000000时，输出结果为-0.600E+07

内容的提问来源于stack exchange，提问作者SAL