ScriptControlによるeval（AccessにあってVBに無いもの）

'ScriptControlによるeval（AccessにあってVBに無いもの）
Function Evaltest(siki As String)
Dim sc As Object
    Set sc = CreateObject("ScriptControl")
    sc.Language = "VBScript"
    Evaltest = sc.Eval(siki)
    Set sc = Nothing
End Function

テスト
?Evaltest("1+2+3")
 6 

トップページに戻る

Tips一覧に戻る