basic/qa/basic_coverage/da-DK/cdbl-2.vb


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 Double
    A = "222,222"
    ' in da-DK locale ',' is the decimal separator
    Expected = 222.222
    B = Cdbl(A)
    If B <> Expected Then
        doUnitTest = 0
    Else
        doUnitTest = 1
    End If
End Function