Mega Code Archive

 

Categories / VB.Net Tutorial / Windows

 

Calculate Expression

public class Test    public Shared Sub Main         Dim objExcel As Excel.Application         objExcel = New Excel.Application              Dim strMath As String         strMath = "cos(3.673/4)/exp(-3.333)"         If strMath <> "" Then             Try                 Console.WriteLine(objExcel.Evaluate(strMath).ToString)             Catch exc As Exception                 Console.WriteLine(exc.Message)             End Try         End If         objExcel.Workbooks.Close()         objExcel.Quit()         objExcel = Nothing    End Sub End class