Mega Code Archive

 

Categories / VisualBasic Script / Data Type

 

Mathematica does not understand 1 2E-03, use 1 210^-03 instead

Function Scientific(s As String) As String   Dim pos%   pos = InStr(s, "E")   If pos Then     Scientific = Left(s, pos - 1) + "*10^" + Mid(s, pos + 1)   Else     Scientific = s   End If End Function