Дело не в единице. Там любое двухбайтное целое может оказаться.
Об эту бяку я споткнулся года 4-5 назад. Кажется, даже топик здесь был.
Тогда официальная дока на некий класс автоматизации сказала мне, что свойство возвращает булеан, во что я поверил, а он, такой-сякой, единицу мне в булеан запихивал.
Сейчас попробовал думать – баг это или фича. Решил, что баг - на таком основании:
Если бы это была фича, то кроме двухбайтных целых можно было бы напрямую, без copymemory или putmem в булеан любую букву запихнуть. Однако, это не так – проверка типа в примере VladK происходит. Значит, какой-то кусок механизма приведения типов отрабатывает (проверка совместимости объявленных типов), а какой-то нет – частично не работает для этого случая встроенное преобразование.
Слово частично означает следующее – если в процедуре GetP присваивать строку "3003" то произойдет преобразование к ближайшему совместимому типу – Integer и значение отлично присвоится в целевой boolean, а если присваивать букву – "K", то произойдет ошибка преобразования типов
Для фичи было бы прилично не проверять совместимость типов совсем и ошибку выдавать как раз для первого случая (попытки присвоения строки "3003") – вроде переполнения целого.
А так получается, что приведение к ближайшему совместимому числовому типу работает, а встроенное преобразование при этом выключается.
Дальше все ломается и логическое значение ведет себя как неотрицаемое - т.е. значение тождественно равно своему отрицанию.
и даже
b = cbool(b) его уже не лечит
Лечить может правильно подобранный OR - типа If b Then (b or -1)
модифицированный тест теста
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
Sub t1()
Dim b As Boolean
GetP b
b = CBool(b)
If b Then
Debug.Print "check 1: b is true"
Else
Debug.Print "check 1: b is false"
End If
If Not b Then
Debug.Print "check 2: b is false"
Else
Debug.Print "check 2: b is true"
End If
Debug.Print "check 3: b is " & b
Debug.Print b, b Or 4
Dim v As Variant
v = False
GetP v
If v Then
Debug.Print "check 104: v is true"
Else
Debug.Print "check 104: v is false"
End If
If Not b Then
Debug.Print "check 204: v is false"
Else
Debug.Print "check 204: v is true"
End If
Debug.Print "check 304: v is " & v
Debug.Print v, v Or 4
End Sub
Sub GetP(ByRef pOut As Variant)
Dim bb As Boolean
pOut = "3003" 'AscW("K")' "K" '1
End Sub
