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

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