tdf#130857 qt weld: Implement QtInstanceWidget::strip_mnemonic
[LibreOffice.git] / basic / qa / basic_coverage / test_isdate_method.bas
blobf4f0dfa6f667dda315e2ae57bfdff2741276e293
2 ' This file is part of the LibreOffice project.
4 ' This Source Code Form is subject to the terms of the Mozilla Public
5 ' License, v. 2.0. If a copy of the MPL was not distributed with this
6 ' file, You can obtain one at http://mozilla.org/MPL/2.0/.
9 Option Explicit
11 Function doUnitTest as String
12 dim aDate as Date
13 aDate = Date( )
14 ' ISDATE
15 If ( IsDate( aDate ) = False ) Then
16 doUnitTest = "FAIL"
17 Else
18 doUnitTest = "OK"
19 End If
20 End Function