Try to use this function:
Public Function CalcFraction(ByVal eString As String) As String
Dim TestBook As New XLWorkbook
Dim testworksheet = TestBook.Worksheets.Add("test")
testworksheet.Cell("a1").Value = eString
testworksheet.Cell("a1").Style.NumberFormat.Format = "# ???/???"
TestBook.CalculateMode = XLCalculateMode.Auto
Return TestBook.Evaluate(TestBook.Worksheets.Worksheet("test").Cell("a1").GetFormattedString)
End Function
to be given - 1/2 + 1/4 and get 3/4
Thanks for all your help!!!
Public Function CalcFraction(ByVal eString As String) As String
Dim TestBook As New XLWorkbook
Dim testworksheet = TestBook.Worksheets.Add("test")
testworksheet.Cell("a1").Value = eString
testworksheet.Cell("a1").Style.NumberFormat.Format = "# ???/???"
TestBook.CalculateMode = XLCalculateMode.Auto
Return TestBook.Evaluate(TestBook.Worksheets.Worksheet("test").Cell("a1").GetFormattedString)
End Function
to be given - 1/2 + 1/4 and get 3/4
Thanks for all your help!!!