v3.2.4

Author: ws-garcia

src/LO Basic/VBAExpressionsLib/UDFunctions.xba

@@ -71,4 +71,12 @@ Public Function Concat(List As Variant) As String
     Next i
     Concat = Apostrophe & tmpResult & Apostrophe
 End Function
+Public Function SimpleProduct(ByRef aValues As Variant) As Double
+    Dim firstNumber As Double
+    Dim secondNumber As Double
+
+    firstNumber = CDbl(aValues(LBound(aValues)))
+    secondNumber = CDbl(aValues(UBound(aValues)))
+    SimpleProduct = firstNumber * secondNumber
+End Function
 </script:module>

src/LO Basic/VBAExpressionsLib/VBAcallBack.xba

@@ -33,5 +33,5 @@ option ClassModule
 '@--------------------------------------------------------------------
 ' Expose functions defined in the UDFunctions.cls
 Public UserDefFunctions As New UDFunctions
-
+Public SimpleMath As New clsSimpleMath
 </script:module>

src/LO Basic/VBAExpressionsLib/VBAexpressions.xba

@@ -4747,8 +4747,13 @@ Private Sub GetTokenStart(ByRef expression As String, ByRef startIndex As Long,
         Else
             If outLng >= 3 Then
                 If AscW(strVBA.MidB(expression, outLng - 2, 2)) = 69 Then 'Ignore Sci notation "E"
-                    outLng = outLng - 4
-                    curChar = strVBA.MidB(expression, outLng, 2)
+                    If outLng > 4 Then
+                        curChar = strVBA.MidB(expression, outLng - 4, 2)
+                        Select Case AscW(curChar) 'Previous char must be numeric: #E[+-]#
+                            Case 48 To 57
+                                outLng = outLng - 4
+                        End Select
+                    End If
                 End If
             End If
         End If

src/LO Basic/VBAExpressionsLib/script.xlb

@@ -7,4 +7,5 @@
  <library:element library:name="VBAexpressions"/>
  <library:element library:name="VBAcallBack"/>
  <library:element library:name="UDFunctions"/>
+ <library:element library:name="clsSimpleMath"/>
 </library:library>

src/VBAexpressions.cls

@@ -4629,8 +4629,13 @@ Private Sub GetTokenStart(ByRef expression As String, ByRef startIndex As Long,
         Else
             If outLng >= 3 Then
                 If AscW(MidB$(expression, outLng - 2, 2)) = 69 Then 'Ignore Sci notation "E"
-                    outLng = outLng - 4
-                    curChar = MidB$(expression, outLng, 2)
+                    If outLng > 4 Then
+                        curChar = MidB$(expression, outLng - 4, 2)
+                        Select Case AscW(curChar) 'Previous char must be numeric: #E[+-]#
+                            Case 48 To 57
+                                outLng = outLng - 4
+                        End Select
+                    End If
                 End If
             End If
         End If