diff options
| -rw-r--r-- | basic/qa/vba_tests/cint.vb | 4 | ||||
| -rw-r--r-- | basic/qa/vba_tests/isnumeric.vb | 4 | ||||
| -rw-r--r-- | basic/source/sbx/sbxscan.cxx | 4 |
3 files changed, 11 insertions, 1 deletions
diff --git a/basic/qa/vba_tests/cint.vb b/basic/qa/vba_tests/cint.vb index 6c1d53c93c61..a178a0f97d62 100644 --- a/basic/qa/vba_tests/cint.vb +++ b/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 diff --git a/basic/qa/vba_tests/isnumeric.vb b/basic/qa/vba_tests/isnumeric.vb index 2383f4bfe299..511a51bd9106 100644 --- a/basic/qa/vba_tests/isnumeric.vb +++ b/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 diff --git a/basic/source/sbx/sbxscan.cxx b/basic/source/sbx/sbxscan.cxx index d2f5c91e3483..de3d50dbed38 100644 --- a/basic/source/sbx/sbxscan.cxx +++ b/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; |