クリスタルレポートについて

質問

教えてください。
クリスタルレポートでの指数表記の文字列(1.3e-003等)を通常の数字に変換(0.0013等)した結果を印刷したいのですがどうすればよいのでしょうか？
VAL関数ではうまくいきません。
よろしくお願いします。

回答No.1

imogasi

Function aa(s)
p = InStr(s, "e")
x = Val(Mid(s, p + 2, Len(s) - (p + 1)))
If Mid(s, p + 1, 1) = "+" Then
y = 10 ^ x * Val(Mid(s, 1, p - 1))
Else
y = 10 ^ (-x) * Val(Mid(s, 1, p - 1))
End If
aa = y
End Function
'------
Sub test01()
s = "1.3e-003"
' s = "1.32e+04"
' s = "1.2333e-04"
x = aa(s)
MsgBox x
End Sub