diff options
Diffstat (limited to 'basic/qa/vba_tests/weekday.vb')
| -rw-r--r-- | basic/qa/vba_tests/weekday.vb | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/basic/qa/vba_tests/weekday.vb b/basic/qa/vba_tests/weekday.vb index 95212eb58ceb..a37f07d1fac4 100644 --- a/basic/qa/vba_tests/weekday.vb +++ b/basic/qa/vba_tests/weekday.vb @@ -6,7 +6,7 @@ Dim result As String Function doUnitTest() As String result = verify_testWeekDay() -If failCount <> 0 And passCount > 0 Then +If failCount <> 0 or passCount = 0 Then doUnitTest = result Else doUnitTest = "OK" @@ -23,8 +23,6 @@ Function verify_testWeekDay() As String result = "Test Results" & Chr$(10) & "============" & Chr$(10) Dim testName As String - Dim TestDateTime As Date - Dim TestStr As String Dim date1, date2 testName = "Test WeekDay function" On Error GoTo errorHandler |