From dc36d07d9e5e1c70c0e7bdc9adede5a10e4413f1 Mon Sep 17 00:00:00 2001 From: Takeshi Abe Date: Mon, 29 May 2017 19:47:34 +0900 Subject: basic: Drop unused variables in test scripts Change-Id: I9893e8bed254dcac91fbc7abb5ab4817a28ba339 Reviewed-on: https://gerrit.libreoffice.org/38133 Tested-by: Jenkins Reviewed-by: Takeshi Abe --- basic/qa/vba_tests/abs.vb | 3 --- basic/qa/vba_tests/array.vb | 3 --- basic/qa/vba_tests/asc.vb | 3 --- basic/qa/vba_tests/atn.vb | 3 --- basic/qa/vba_tests/cbool.vb | 2 -- basic/qa/vba_tests/cdate.vb | 2 -- basic/qa/vba_tests/cdbl.vb | 2 -- basic/qa/vba_tests/choose.vb | 1 - basic/qa/vba_tests/chr.vb | 2 -- basic/qa/vba_tests/cint.vb | 2 -- basic/qa/vba_tests/clng.vb | 2 -- basic/qa/vba_tests/cos.vb | 2 -- basic/qa/vba_tests/csng.vb | 2 -- basic/qa/vba_tests/cstr.vb | 1 - basic/qa/vba_tests/cvdate.vb | 2 -- basic/qa/vba_tests/cverr.vb | 2 -- basic/qa/vba_tests/dateadd.vb | 2 -- basic/qa/vba_tests/datediff.vb | 2 -- basic/qa/vba_tests/datepart.vb | 2 -- basic/qa/vba_tests/dateserial.vb | 2 -- basic/qa/vba_tests/datevalue.vb | 2 -- basic/qa/vba_tests/day.vb | 2 -- basic/qa/vba_tests/error.vb | 2 -- basic/qa/vba_tests/exp.vb | 2 -- basic/qa/vba_tests/fix.vb | 2 -- basic/qa/vba_tests/formatnumber.vb | 2 -- basic/qa/vba_tests/hex.vb | 2 -- basic/qa/vba_tests/hour.vb | 2 -- basic/qa/vba_tests/iif.vb | 2 -- basic/qa/vba_tests/instr.vb | 2 -- basic/qa/vba_tests/instrrev.vb | 2 -- basic/qa/vba_tests/int.vb | 2 -- basic/qa/vba_tests/isarray.vb | 2 -- basic/qa/vba_tests/isdate.vb | 2 -- basic/qa/vba_tests/isempty.vb | 2 -- basic/qa/vba_tests/iserror.vb | 2 -- basic/qa/vba_tests/isnull.vb | 2 -- basic/qa/vba_tests/isnumeric.vb | 2 -- basic/qa/vba_tests/isobject.vb | 1 - basic/qa/vba_tests/lbound.vb | 2 -- basic/qa/vba_tests/left.vb | 2 -- basic/qa/vba_tests/len.vb | 2 -- basic/qa/vba_tests/log.vb | 2 -- basic/qa/vba_tests/ltrim.vb | 2 -- basic/qa/vba_tests/mid.vb | 2 -- basic/qa/vba_tests/minute.vb | 2 -- basic/qa/vba_tests/mirr.vb | 2 -- basic/qa/vba_tests/month.vb | 2 -- basic/qa/vba_tests/monthname.vb | 2 -- basic/qa/vba_tests/nper.vb | 2 -- basic/qa/vba_tests/npv.vb | 2 -- basic/qa/vba_tests/oct.vb | 2 -- basic/qa/vba_tests/pmt.vb | 2 -- basic/qa/vba_tests/ppmt.vb | 2 -- basic/qa/vba_tests/pv.vb | 2 -- basic/qa/vba_tests/qbcolor.vb | 2 -- 56 files changed, 113 deletions(-) (limited to 'basic/qa/vba_tests') diff --git a/basic/qa/vba_tests/abs.vb b/basic/qa/vba_tests/abs.vb index fc0c48a8eda3..bc9516fb606f 100644 --- a/basic/qa/vba_tests/abs.vb +++ b/basic/qa/vba_tests/abs.vb @@ -24,9 +24,6 @@ Function verify_testABS() As String result = "Test Results" & Chr$(10) & "============" & Chr$(10) Dim testName As String - Dim TestDateTime As Date - Dim TestStr As String - Dim date1, date2 As Date 'variables for test Dim nr1, nr2 As Double testName = "Test ABS function" diff --git a/basic/qa/vba_tests/array.vb b/basic/qa/vba_tests/array.vb index 78714bacec7b..63f39bed7178 100644 --- a/basic/qa/vba_tests/array.vb +++ b/basic/qa/vba_tests/array.vb @@ -28,9 +28,6 @@ Function verify_testARRAY() As String result = "Test Results" & Chr$(10) & "============" & Chr$(10) Dim testName As String - Dim TestDateTime As Date - Dim TestStr As String - Dim date1, date2 As Date 'variables for test Dim a, b, C As Variant a = Array(10, 20, 30) testName = "Test ARRAY function" diff --git a/basic/qa/vba_tests/asc.vb b/basic/qa/vba_tests/asc.vb index 2d8b3bcef141..813abe9f859d 100644 --- a/basic/qa/vba_tests/asc.vb +++ b/basic/qa/vba_tests/asc.vb @@ -24,9 +24,6 @@ Function verify_testASC() As String result = "Test Results" & Chr$(10) & "============" & Chr$(10) Dim testName As String - Dim TestDateTime As Date - Dim TestStr As String - Dim date1, date2 As Date 'variables for test Dim nr1, nr2 As Double testName = "Test ASC function" diff --git a/basic/qa/vba_tests/atn.vb b/basic/qa/vba_tests/atn.vb index 69cc31ba48cd..4155a1cb2b93 100644 --- a/basic/qa/vba_tests/atn.vb +++ b/basic/qa/vba_tests/atn.vb @@ -23,9 +23,6 @@ Function verify_testATN() As String result = "Test Results" & Chr$(10) & "============" & Chr$(10) Dim testName As String - Dim TestDateTime As Date - Dim TestStr As String - Dim date1, date2 As Date Dim nr1, nr2 As Double testName = "Test ATN function" On Error GoTo errorHandler diff --git a/basic/qa/vba_tests/cbool.vb b/basic/qa/vba_tests/cbool.vb index 43ef17496c0c..cf3b8224d0e7 100644 --- a/basic/qa/vba_tests/cbool.vb +++ b/basic/qa/vba_tests/cbool.vb @@ -24,8 +24,6 @@ Function verify_testCBool() As String result = "Test Results" & Chr$(10) & "============" & Chr$(10) Dim testName As String - Dim TestDateTime As Date - Dim TestStr As String Dim res2, res1 As Boolean Dim a1, a2 As Integer testName = "Test CBool function" diff --git a/basic/qa/vba_tests/cdate.vb b/basic/qa/vba_tests/cdate.vb index d3af4db692a6..718712e93c04 100644 --- a/basic/qa/vba_tests/cdate.vb +++ b/basic/qa/vba_tests/cdate.vb @@ -23,8 +23,6 @@ Function verify_testCDate() As String result = "Test Results" & Chr$(10) & "============" & Chr$(10) Dim testName As String - Dim TestDateTime As Date - Dim TestStr As String Dim date1, date2 As Date 'variables for test testName = "Test CDate function" On Error GoTo errorHandler diff --git a/basic/qa/vba_tests/cdbl.vb b/basic/qa/vba_tests/cdbl.vb index 65839f956823..bb51c6a00e60 100644 --- a/basic/qa/vba_tests/cdbl.vb +++ b/basic/qa/vba_tests/cdbl.vb @@ -23,8 +23,6 @@ Function verify_testCdbl() As String result = "Test Results" & Chr$(10) & "============" & Chr$(10) Dim testName As String - Dim TestDateTime As Date - Dim TestStr As String Dim nr1, nr2 As Double 'variables for test testName = "Test Cdbl function" On Error GoTo errorHandler diff --git a/basic/qa/vba_tests/choose.vb b/basic/qa/vba_tests/choose.vb index 10c18f1eb3d4..3d30cfce12ad 100644 --- a/basic/qa/vba_tests/choose.vb +++ b/basic/qa/vba_tests/choose.vb @@ -23,7 +23,6 @@ Function verify_testChoose() As String result = "Test Results" & Chr$(10) & "============" & Chr$(10) Dim testName As String - Dim TestDateTime As Date Dim var1, var2 testName = "Test Choose function" diff --git a/basic/qa/vba_tests/chr.vb b/basic/qa/vba_tests/chr.vb index 3d1ca56657b6..eb5aeb8dfb20 100644 --- a/basic/qa/vba_tests/chr.vb +++ b/basic/qa/vba_tests/chr.vb @@ -23,8 +23,6 @@ Function verify_testCHR() As String result = "Test Results" & Chr$(10) & "============" & Chr$(10) Dim testName As String - Dim TestDateTime As Date - Dim TestStr As String Dim str1, str2 As String testName = "Test CHR function" On Error GoTo errorHandler diff --git a/basic/qa/vba_tests/cint.vb b/basic/qa/vba_tests/cint.vb index 0ddb6891dec0..6c1d53c93c61 100644 --- a/basic/qa/vba_tests/cint.vb +++ b/basic/qa/vba_tests/cint.vb @@ -23,8 +23,6 @@ Function verify_testCInt() As String result = "Test Results" & Chr$(10) & "============" & Chr$(10) Dim testName As String - Dim TestDateTime As Date - Dim TestStr As String Dim nr1, nr2 As Integer 'variables for test testName = "Test CInt function" diff --git a/basic/qa/vba_tests/clng.vb b/basic/qa/vba_tests/clng.vb index 4ee4d5b692f2..768bafee19e6 100644 --- a/basic/qa/vba_tests/clng.vb +++ b/basic/qa/vba_tests/clng.vb @@ -23,8 +23,6 @@ Function verify_testCLng() As String result = "Test Results" & Chr$(10) & "============" & Chr$(10) Dim testName As String - Dim TestDateTime As Date - Dim TestStr As String Dim nr1, nr2 As Long 'variables for test testName = "Test CLng function" diff --git a/basic/qa/vba_tests/cos.vb b/basic/qa/vba_tests/cos.vb index 18a663877a52..4f9d725742db 100644 --- a/basic/qa/vba_tests/cos.vb +++ b/basic/qa/vba_tests/cos.vb @@ -23,8 +23,6 @@ Function verify_testCOS() As String result = "Test Results" & Chr$(10) & "============" & Chr$(10) Dim testName As String - Dim TestDateTime As Date - Dim TestStr As String Dim nr1, nr2 As Double 'variables for test testName = "Test COS function" diff --git a/basic/qa/vba_tests/csng.vb b/basic/qa/vba_tests/csng.vb index bdc44f645a0a..476cc6a6fd34 100644 --- a/basic/qa/vba_tests/csng.vb +++ b/basic/qa/vba_tests/csng.vb @@ -23,8 +23,6 @@ Function verify_testCSng() As String result = "Test Results" & Chr$(10) & "============" & Chr$(10) Dim testName As String - Dim TestDateTime As Date - Dim TestStr As String Dim nr1, nr2 As Single 'variables for test Dim nr3 As Double diff --git a/basic/qa/vba_tests/cstr.vb b/basic/qa/vba_tests/cstr.vb index 6c852dfd8dcf..62258962a831 100644 --- a/basic/qa/vba_tests/cstr.vb +++ b/basic/qa/vba_tests/cstr.vb @@ -23,7 +23,6 @@ Function verify_testCStr() As String result = "Test Results" & Chr$(10) & "============" & Chr$(10) Dim testName As String - Dim TestDateTime As Date Dim str2, str3 Dim str1 As String 'variables for test testName = "Test CStr function" diff --git a/basic/qa/vba_tests/cvdate.vb b/basic/qa/vba_tests/cvdate.vb index 118d9e0ece21..58ef6ca7d673 100644 --- a/basic/qa/vba_tests/cvdate.vb +++ b/basic/qa/vba_tests/cvdate.vb @@ -23,8 +23,6 @@ Function verify_testCVDate() As String result = "Test Results" & Chr$(10) & "============" & Chr$(10) Dim testName As String - Dim TestDateTime As Date - Dim TestStr As String Dim date1, date2 As Date 'variables for test testName = "Test CVDate function" On Error GoTo errorHandler diff --git a/basic/qa/vba_tests/cverr.vb b/basic/qa/vba_tests/cverr.vb index 02ba4a5905ed..11707ba2517c 100644 --- a/basic/qa/vba_tests/cverr.vb +++ b/basic/qa/vba_tests/cverr.vb @@ -23,8 +23,6 @@ Function verify_testCVErr() 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 CVErr function" On Error GoTo errorHandler diff --git a/basic/qa/vba_tests/dateadd.vb b/basic/qa/vba_tests/dateadd.vb index d62664f3c247..8de4f86ff040 100644 --- a/basic/qa/vba_tests/dateadd.vb +++ b/basic/qa/vba_tests/dateadd.vb @@ -23,8 +23,6 @@ Function verify_testDateAdd() As String result = "Test Results" & Chr$(10) & "============" & Chr$(10) Dim testName As String - Dim TestDateTime As Date - Dim TestStr As String Dim date1, date2 As Date 'variables for test testName = "Test DateAdd function" On Error GoTo errorHandler diff --git a/basic/qa/vba_tests/datediff.vb b/basic/qa/vba_tests/datediff.vb index dd5048d35c5a..1b5e7ebf449d 100644 --- a/basic/qa/vba_tests/datediff.vb +++ b/basic/qa/vba_tests/datediff.vb @@ -23,8 +23,6 @@ Function verify_testDateDiff() As String result = "Test Results" & Chr$(10) & "============" & Chr$(10) Dim testName As String - Dim TestDateTime As Date - Dim TestStr As String Dim date1 Dim date2 testName = "Test DateDiff function" diff --git a/basic/qa/vba_tests/datepart.vb b/basic/qa/vba_tests/datepart.vb index 9dff5a31dd69..b07a04d97260 100644 --- a/basic/qa/vba_tests/datepart.vb +++ b/basic/qa/vba_tests/datepart.vb @@ -23,8 +23,6 @@ Function verify_testDatePart() As String result = "Test Results" & Chr$(10) & "============" & Chr$(10) Dim testName As String - Dim TestDateTime As Date - Dim TestStr As String Dim date1 'variables for test Dim date2 testName = "Test DatePart function" diff --git a/basic/qa/vba_tests/dateserial.vb b/basic/qa/vba_tests/dateserial.vb index 56a973ad5ee0..4b28f09d5840 100644 --- a/basic/qa/vba_tests/dateserial.vb +++ b/basic/qa/vba_tests/dateserial.vb @@ -16,8 +16,6 @@ End Function Function verify_testDateSerial() as String Dim testName As String - Dim TestDateTime As Date - Dim TestStr As String Dim date1, date2 As Date passCount = 0 failCount = 0 diff --git a/basic/qa/vba_tests/datevalue.vb b/basic/qa/vba_tests/datevalue.vb index 3863363f7a60..6ece72a6d055 100644 --- a/basic/qa/vba_tests/datevalue.vb +++ b/basic/qa/vba_tests/datevalue.vb @@ -23,8 +23,6 @@ Function verify_testDateValue() as String result = "Test Results" & Chr$(10) & "============" & Chr$(10) Dim testName As String - Dim TestDateTime As Date - Dim TestStr As String Dim date1, date2 As Date testName = "Test DateValue function" date2 = 25246 diff --git a/basic/qa/vba_tests/day.vb b/basic/qa/vba_tests/day.vb index 408d7b81d9e1..1bb4fbef9dcf 100644 --- a/basic/qa/vba_tests/day.vb +++ b/basic/qa/vba_tests/day.vb @@ -23,8 +23,6 @@ Function verify_testday() As String result = "Test Results" & Chr$(10) & "============" & Chr$(10) Dim testName As String - Dim TestDateTime As Date - Dim TestStr As String Dim date1, date2 'variables for test testName = "Test day function" On Error GoTo errorHandler diff --git a/basic/qa/vba_tests/error.vb b/basic/qa/vba_tests/error.vb index 8787c891c824..fd96f80b14d0 100644 --- a/basic/qa/vba_tests/error.vb +++ b/basic/qa/vba_tests/error.vb @@ -23,8 +23,6 @@ Function verify_testError() 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 Error function" On Error GoTo errorHandler diff --git a/basic/qa/vba_tests/exp.vb b/basic/qa/vba_tests/exp.vb index 7de010ae911b..e6f5a5a06616 100644 --- a/basic/qa/vba_tests/exp.vb +++ b/basic/qa/vba_tests/exp.vb @@ -23,8 +23,6 @@ Function verify_testExp() 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 Exp function" On Error GoTo errorHandler diff --git a/basic/qa/vba_tests/fix.vb b/basic/qa/vba_tests/fix.vb index db1aedaa2c74..95235f335e69 100644 --- a/basic/qa/vba_tests/fix.vb +++ b/basic/qa/vba_tests/fix.vb @@ -23,8 +23,6 @@ Function verify_testFix() 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 Fix function" On Error GoTo errorHandler diff --git a/basic/qa/vba_tests/formatnumber.vb b/basic/qa/vba_tests/formatnumber.vb index 0f4c7be5a5d3..3132e58edb54 100644 --- a/basic/qa/vba_tests/formatnumber.vb +++ b/basic/qa/vba_tests/formatnumber.vb @@ -25,8 +25,6 @@ Function verify_testFormatNumber() 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 FormatNumber function" On Error GoTo errorHandler diff --git a/basic/qa/vba_tests/hex.vb b/basic/qa/vba_tests/hex.vb index af0bb9577671..83af4c148338 100644 --- a/basic/qa/vba_tests/hex.vb +++ b/basic/qa/vba_tests/hex.vb @@ -23,8 +23,6 @@ Function verify_testHex() 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 Hex function" On Error GoTo errorHandler diff --git a/basic/qa/vba_tests/hour.vb b/basic/qa/vba_tests/hour.vb index 3383fc7bf742..9236463f42e8 100644 --- a/basic/qa/vba_tests/hour.vb +++ b/basic/qa/vba_tests/hour.vb @@ -23,8 +23,6 @@ Function verify_testHour() As String result = "Test Results" & Chr$(10) & "============" & Chr$(10) Dim testName As String - Dim TestDateTime As Date - Dim TestStr As String Dim date1, date2, myTime testName = "Test Hour function" On Error GoTo errorHandler diff --git a/basic/qa/vba_tests/iif.vb b/basic/qa/vba_tests/iif.vb index 90891d01279f..fd77563e52df 100644 --- a/basic/qa/vba_tests/iif.vb +++ b/basic/qa/vba_tests/iif.vb @@ -23,8 +23,6 @@ Function verify_testIIf() As String result = "Test Results" & Chr$(10) & "============" & Chr$(10) Dim testName As String - Dim TestDateTime As Date - Dim TestStr As String Dim date1, date2, testnr testName = "Test IIf function" On Error GoTo errorHandler diff --git a/basic/qa/vba_tests/instr.vb b/basic/qa/vba_tests/instr.vb index 0e3eb7e5230e..b8977088ba83 100644 --- a/basic/qa/vba_tests/instr.vb +++ b/basic/qa/vba_tests/instr.vb @@ -23,8 +23,6 @@ Function verify_testInStr() As String result = "Test Results" & Chr$(10) & "============" & Chr$(10) Dim testName As String - Dim TestDateTime As Date - Dim TestStr As String Dim date1, date2, SearchString, SearchChar testName = "Test InStr function" On Error GoTo errorHandler diff --git a/basic/qa/vba_tests/instrrev.vb b/basic/qa/vba_tests/instrrev.vb index 5d524f5c2b1a..dfbed9ad239b 100644 --- a/basic/qa/vba_tests/instrrev.vb +++ b/basic/qa/vba_tests/instrrev.vb @@ -23,8 +23,6 @@ Function verify_testInStrRev() As String result = "Test Results" & Chr$(10) & "============" & Chr$(10) Dim testName As String - Dim TestDateTime As Date - Dim TestStr As String Dim date1, date2, SearchString, SearchChar testName = "Test InStrRev function" On Error GoTo errorHandler diff --git a/basic/qa/vba_tests/int.vb b/basic/qa/vba_tests/int.vb index ad771a142ae8..c5495a87d5f9 100644 --- a/basic/qa/vba_tests/int.vb +++ b/basic/qa/vba_tests/int.vb @@ -23,8 +23,6 @@ Function verify_testInt() 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 Int function" On Error GoTo errorHandler diff --git a/basic/qa/vba_tests/isarray.vb b/basic/qa/vba_tests/isarray.vb index 75b806731633..3f7dc8a8c265 100644 --- a/basic/qa/vba_tests/isarray.vb +++ b/basic/qa/vba_tests/isarray.vb @@ -23,8 +23,6 @@ Function verify_testIsArray() As String result = "Test Results" & Chr$(10) & "============" & Chr$(10) Dim testName As String - Dim TestDateTime As Date - Dim TestStr As String Dim date1, date2 Dim MyArray(1 To 5) As Integer, YourArray ' Declare array variables. testName = "Test IsArray function" diff --git a/basic/qa/vba_tests/isdate.vb b/basic/qa/vba_tests/isdate.vb index 01687b275c27..355c9bb8b942 100644 --- a/basic/qa/vba_tests/isdate.vb +++ b/basic/qa/vba_tests/isdate.vb @@ -23,8 +23,6 @@ Function verify_testIsDate() 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 IsDate function" On Error GoTo errorHandler diff --git a/basic/qa/vba_tests/isempty.vb b/basic/qa/vba_tests/isempty.vb index f5dfa58b71f5..1080122fada3 100644 --- a/basic/qa/vba_tests/isempty.vb +++ b/basic/qa/vba_tests/isempty.vb @@ -23,8 +23,6 @@ Function verify_testIsEmpty() As String result = "Test Results" & Chr$(10) & "============" & Chr$(10) Dim testName As String - Dim TestDateTime As Date - Dim TestStr As String Dim date1, date2, MyVar testName = "Test IsEmpty function" On Error GoTo errorHandler diff --git a/basic/qa/vba_tests/iserror.vb b/basic/qa/vba_tests/iserror.vb index 36cb7ac0e173..943b4dcc2c10 100644 --- a/basic/qa/vba_tests/iserror.vb +++ b/basic/qa/vba_tests/iserror.vb @@ -23,8 +23,6 @@ Function verify_testIsError() 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 IsError function" On Error GoTo errorHandler diff --git a/basic/qa/vba_tests/isnull.vb b/basic/qa/vba_tests/isnull.vb index 42a3cc2b156a..145294f6d961 100644 --- a/basic/qa/vba_tests/isnull.vb +++ b/basic/qa/vba_tests/isnull.vb @@ -23,8 +23,6 @@ Function verify_testIsNull() 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 IsNull function" On Error GoTo errorHandler diff --git a/basic/qa/vba_tests/isnumeric.vb b/basic/qa/vba_tests/isnumeric.vb index 0331faaa0101..2383f4bfe299 100644 --- a/basic/qa/vba_tests/isnumeric.vb +++ b/basic/qa/vba_tests/isnumeric.vb @@ -23,8 +23,6 @@ Function verify_testIsNumeric() 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 IsNumeric function" On Error GoTo errorHandler diff --git a/basic/qa/vba_tests/isobject.vb b/basic/qa/vba_tests/isobject.vb index 41c1d3173624..82a1a0aa39a6 100644 --- a/basic/qa/vba_tests/isobject.vb +++ b/basic/qa/vba_tests/isobject.vb @@ -23,7 +23,6 @@ Function verify_testIsObject() As String result = "Test Results" & Chr$(10) & "============" & Chr$(10) Dim testName As String - Dim TestDateTime As Date Dim TestStr As String Dim MyObject As Object Dim date1, date2, YourObject diff --git a/basic/qa/vba_tests/lbound.vb b/basic/qa/vba_tests/lbound.vb index 934fa45b59dd..34999c534349 100644 --- a/basic/qa/vba_tests/lbound.vb +++ b/basic/qa/vba_tests/lbound.vb @@ -23,8 +23,6 @@ Function verify_testLBound() As String result = "Test Results" & Chr$(10) & "============" & Chr$(10) Dim testName As String - Dim TestDateTime As Date - Dim TestStr As String Dim date1, date2 Dim MyArray(1 To 10, 5 To 15, 10 To 20) ' Declare array variables. testName = "Test LBound function" diff --git a/basic/qa/vba_tests/left.vb b/basic/qa/vba_tests/left.vb index ab03fd55022f..8a6576fd2cbc 100644 --- a/basic/qa/vba_tests/left.vb +++ b/basic/qa/vba_tests/left.vb @@ -23,8 +23,6 @@ Function verify_testLeft() 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 Left function" On Error GoTo errorHandler diff --git a/basic/qa/vba_tests/len.vb b/basic/qa/vba_tests/len.vb index 600da8ad5fbd..d524d96b8af1 100644 --- a/basic/qa/vba_tests/len.vb +++ b/basic/qa/vba_tests/len.vb @@ -23,8 +23,6 @@ Function verify_testLen() 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 Len function" On Error GoTo errorHandler diff --git a/basic/qa/vba_tests/log.vb b/basic/qa/vba_tests/log.vb index 1312717b8590..675798bc1a72 100644 --- a/basic/qa/vba_tests/log.vb +++ b/basic/qa/vba_tests/log.vb @@ -23,8 +23,6 @@ Function verify_testLog() 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 Log function" On Error GoTo errorHandler diff --git a/basic/qa/vba_tests/ltrim.vb b/basic/qa/vba_tests/ltrim.vb index 1f95d067e12e..d85d02a76966 100644 --- a/basic/qa/vba_tests/ltrim.vb +++ b/basic/qa/vba_tests/ltrim.vb @@ -23,8 +23,6 @@ Function verify_testLTrim() 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 LTrim function" On Error GoTo errorHandler diff --git a/basic/qa/vba_tests/mid.vb b/basic/qa/vba_tests/mid.vb index 9ec61afc2206..b7070b33b86d 100644 --- a/basic/qa/vba_tests/mid.vb +++ b/basic/qa/vba_tests/mid.vb @@ -23,8 +23,6 @@ Function verify_testMid() 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 Mid function" On Error GoTo errorHandler diff --git a/basic/qa/vba_tests/minute.vb b/basic/qa/vba_tests/minute.vb index 049884bffac0..20761b1e70cd 100644 --- a/basic/qa/vba_tests/minute.vb +++ b/basic/qa/vba_tests/minute.vb @@ -23,8 +23,6 @@ Function verify_testMinute() 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 Minute function" On Error GoTo errorHandler diff --git a/basic/qa/vba_tests/mirr.vb b/basic/qa/vba_tests/mirr.vb index 36efb0a25065..ebf35ea3b0e8 100644 --- a/basic/qa/vba_tests/mirr.vb +++ b/basic/qa/vba_tests/mirr.vb @@ -23,8 +23,6 @@ Function verify_testMIRR() As String result = "Test Results" & Chr$(10) & "============" & Chr$(10) Dim testName As String - Dim TestDateTime As Date - Dim TestStr As String Dim date1, date2, LoanAPR, InvAPR, Fmt, RetRate, Msg testName = "Test MIRR function" On Error GoTo errorHandler diff --git a/basic/qa/vba_tests/month.vb b/basic/qa/vba_tests/month.vb index 8fedc954d81f..98d614a571b2 100644 --- a/basic/qa/vba_tests/month.vb +++ b/basic/qa/vba_tests/month.vb @@ -23,8 +23,6 @@ Function verify_testMonth() As String result = "Test Results" & Chr$(10) & "============" & Chr$(10) Dim testName As String - Dim TestDateTime As Date - Dim TestStr As String Dim date1, date2 Dim ldate As Date testName = "Test Month function" diff --git a/basic/qa/vba_tests/monthname.vb b/basic/qa/vba_tests/monthname.vb index 0db37d296e92..fe90f14dba01 100644 --- a/basic/qa/vba_tests/monthname.vb +++ b/basic/qa/vba_tests/monthname.vb @@ -23,8 +23,6 @@ Function verify_testMonthName() 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 MonthName function" On Error GoTo errorHandler diff --git a/basic/qa/vba_tests/nper.vb b/basic/qa/vba_tests/nper.vb index e81b739658dd..2677a883c78c 100644 --- a/basic/qa/vba_tests/nper.vb +++ b/basic/qa/vba_tests/nper.vb @@ -23,8 +23,6 @@ Function verify_testNPer() 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 NPER function" On Error GoTo errorHandler diff --git a/basic/qa/vba_tests/npv.vb b/basic/qa/vba_tests/npv.vb index 9992de7845cc..cc6262a81189 100644 --- a/basic/qa/vba_tests/npv.vb +++ b/basic/qa/vba_tests/npv.vb @@ -23,8 +23,6 @@ Function verify_testNPV() 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 NPV function" On Error GoTo errorHandler diff --git a/basic/qa/vba_tests/oct.vb b/basic/qa/vba_tests/oct.vb index d75764e267aa..52feef2c8146 100644 --- a/basic/qa/vba_tests/oct.vb +++ b/basic/qa/vba_tests/oct.vb @@ -23,8 +23,6 @@ Function verify_testOct() 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 Oct function" On Error GoTo errorHandler diff --git a/basic/qa/vba_tests/pmt.vb b/basic/qa/vba_tests/pmt.vb index 4998dd492fe0..937f7e6f1b58 100644 --- a/basic/qa/vba_tests/pmt.vb +++ b/basic/qa/vba_tests/pmt.vb @@ -23,8 +23,6 @@ Function verify_testPMT() 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 PMT function" On Error GoTo errorHandler diff --git a/basic/qa/vba_tests/ppmt.vb b/basic/qa/vba_tests/ppmt.vb index 984c97ff3b6e..47a67b120de4 100644 --- a/basic/qa/vba_tests/ppmt.vb +++ b/basic/qa/vba_tests/ppmt.vb @@ -23,8 +23,6 @@ Function verify_testPPMT() 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 PPMT function" On Error GoTo errorHandler diff --git a/basic/qa/vba_tests/pv.vb b/basic/qa/vba_tests/pv.vb index e951c66f119c..d63d6f355b78 100644 --- a/basic/qa/vba_tests/pv.vb +++ b/basic/qa/vba_tests/pv.vb @@ -23,8 +23,6 @@ Function verify_testPV() 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 PV function" On Error GoTo errorHandler diff --git a/basic/qa/vba_tests/qbcolor.vb b/basic/qa/vba_tests/qbcolor.vb index aebfc4ff4bf8..c0a1a1813156 100644 --- a/basic/qa/vba_tests/qbcolor.vb +++ b/basic/qa/vba_tests/qbcolor.vb @@ -23,8 +23,6 @@ Function verify_testQBcolor() As String result = "Test Results" & Chr$(10) & "============" & Chr$(10) Dim testName As String - Dim TestDateTime As Date - Dim TestStr As String Dim date1, date2 As Long testName = "Test QBcolor function" On Error GoTo errorHandler -- cgit