summaryrefslogtreecommitdiff
path: root/basic/qa/vba_tests/datevalue.vb
diff options
context:
space:
mode:
Diffstat (limited to 'basic/qa/vba_tests/datevalue.vb')
-rw-r--r--basic/qa/vba_tests/datevalue.vb8
1 files changed, 4 insertions, 4 deletions
diff --git a/basic/qa/vba_tests/datevalue.vb b/basic/qa/vba_tests/datevalue.vb
index 20aac6416345..6ac6fe73d47e 100644
--- a/basic/qa/vba_tests/datevalue.vb
+++ b/basic/qa/vba_tests/datevalue.vb
@@ -28,12 +28,12 @@ Function verify_testDateValue() as String
Dim date1, date2 As Date
testName = "Test DateValue function"
date2 = 25246
-
+
On Error GoTo errorHandler
-
+
date1 = DateValue("February 12, 1969") '2/12/1969
TestLog_ASSERT date1 = date2, "the return date is: " & date1
-
+
date2 = 39468
date1 = DateValue("21/01/2008") '1/21/2008
TestLog_ASSERT date1 = date2, "the return date is: " & date1
@@ -61,5 +61,5 @@ Sub TestLog_ASSERT(assertion As Boolean, Optional testId As String, Optional tes
result = result & Chr$(10) & " Failed: " & testMsg
failCount = failCount + 1
End If
-
+
End Sub