tdf#136801 : IsNumeric("+2") and CInt("+2") return correct values

Change-Id: I036f21c8196530973d2cdc366da7654ccd930892
Reviewed-on: https://gerrit.libreoffice.org/c/core/+/106556
Tested-by: Jenkins
Reviewed-by: Mike Kaganski <mike.kaganski@collabora.com>

basic/qa/vba_tests/cint.vb

@@ -73,6 +73,10 @@ REM    TestLog_ASSERT nr1 = nr2, "the return CInt is: " & nr1
     nr1 = CInt("&H754")
     TestLog_ASSERT nr1 = nr2, "the return CInt is: " & nr1
 
+    nr2 = 21
+    nr1 = CInt("+21")
+    TestLog_ASSERT nr1 = nr2, "the return CInt is:" & nr1
+
     result = result & Chr$(10) & "Tests passed: " & passCount & Chr$(10) & "Tests failed: " & failCount & Chr$(10)
     verify_testCInt = result
 

basic/qa/vba_tests/isnumeric.vb

@@ -51,6 +51,10 @@ rem    TestLog_ASSERT date1 = date2, "the return IsNumeric is: " & date1
     date1 = IsNumeric("123")
     TestLog_ASSERT date1 = date2, "the return IsNumeric is: " & date1
 
+    date2 = True
+    date1 = IsNumeric("+123")
+    TestLog_ASSERT date1 = date2, "the return IsNumeric is: " & date1
+
     result = result & Chr$(10) & "Tests passed: " & passCount & Chr$(10) & "Tests failed: " & failCount & Chr$(10)
     verify_testIsNumeric = result
 

basic/source/sbx/sbxscan.cxx

@@ -108,7 +108,9 @@ ErrCode ImpScan( const OUString& rWSrc, double& nVal, SbxDataType& rType,
     SbxDataType eScanType = SbxSINGLE;
     while( *p == ' ' || *p == '\t' )
         p++;
-    if( *p == '-' )
+    if (*p == '+')
+        p++;
+    else if( *p == '-' )
     {
         p++;
         bMinus = true;