Public Function ToStringB__v2(v As Variant) As String Const PREFIX$ = " KMGTPEZY" Dim s$, p#, n&, i&: p = CDbl(v): n = 1 For i = 2 To Len(PREFIX) If p >= 1000 Then p = p / 1000: n = n + 1 Else Exit For Next i s = Format(p, IIf(p >= 100, "0", IIf(p >= 10, "0.0", "0.00"))) ToStringB__v2 = s & " " & IIf(n > 1, Mid(PREFIX, n, 1), "") & "B" End Function
Public Function ToStringIB__v2(v As Variant) As String Const PREFIX$ = " KMGTPEZY" Dim s$, p#, n&, i&: p = CDbl(v): n = 1 For i = 2 To Len(PREFIX) If p >= 1024 Then p = p / 1024: n = n + 1 Else Exit For Next i s = Format(p, IIf(p >= 100, "0", IIf(p >= 10, "0.0", "0.00"))) ToStringIB__v2 = s & " " & IIf(n > 1, Mid(PREFIX, n, 1), "") & "iB" End Function
