15 lines
313 B
VB.net
15 lines
313 B
VB.net
|
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
|