blob: 128cfcc9903dfaab4062854424c453e0a5961a32 (
plain)
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 String
A = "222.222"
' in da-DK locale ',' is the decimal separator
Expected = "222222"
B = Cdbl(A)
If B <> Expected Then
doUnitTest = 0
Else
doUnitTest = 1
End If
End Function
|