summaryrefslogtreecommitdiffstats
path: root/basic/qa/basic_coverage/da-DK/cdbl.vb
blob: 128cfcc9903dfaab4062854424c453e0a5961a32 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Function doUnitTest() as Integer
    Dim A As String
    Dim B As Double
    Dim Expected As String
    A = "222.222"
    ' in da-DK locale ',' is the decimal separator
    Expected = "222222"
    B = Cdbl(A)
    If B <> Expected Then
        doUnitTest = 0
    Else
        doUnitTest = 1
    End If
End Function