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

   1 Function doUnitTest() as Integer
   2     Dim A As String
   3     Dim B As Double
   4     Dim Expected As String
   5     A = "222.222"
   6     ' in da-DK locale ',' is the decimal separator
   7     Expected = "222222"
   8     B = Cdbl(A)
   9     If B <> Expected Then
  10         doUnitTest = 0
  11     Else
  12         doUnitTest = 1
  13     End If
  14 End Function