update emoji autocorrect entries from po-files

[LibreOffice.git] / basic / qa / basic_coverage / da-DK / cdbl-2.vb

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