‘ 给出一个完全格式化输出的自定义函数
Public Function CCC(nD#, nU%, nV%) As String
' nD 输出数据,nU 数据长度,nV 小数后位数
' C1 整数部分,C2 小数部分
Dim nX#, C1$, C2$
nX = Abs(nD) * 10 ^ nV + 0.5
nX = nX / 10 ^ nV
C1 = Trim(Str(Int(nX)))
If nD < 0 Then C1 = "-" & C1
If Abs(nD) < 1 Then C1 = IIf(nD < 0, "-0", "0")
C2 = Trim(Str(nX - Int(nX)))
C2 = Mid$(C2, 1, nV + 1)
Do While Len(C1) < nU - nV - 1
C1 = Chr(32) & C1
Loop
CCC = C1 & C2
End Function
‘ 调用:输出数据 = CCC(数字型数据, 输出数据占用的长度, 小数点后位数)