B
Bernd P
Hi Ron,
Thanks. You are right.
This should do the trick:
Function nsig(d As Double, l As Long) As Double
'Returns double with l most significant digits of d.
Dim s As String
s = "0." & String(l - 1, "0") & "E+0"
nsig = Format(d, s)
End Function
Regards,
Bernd
Thanks. You are right.
This should do the trick:
Function nsig(d As Double, l As Long) As Double
'Returns double with l most significant digits of d.
Dim s As String
s = "0." & String(l - 1, "0") & "E+0"
nsig = Format(d, s)
End Function
Regards,
Bernd