Почему VarType() всегда возвращает 8204 для Массивы

Question

В Майкрософт документации VarType MSDN для VarType функции VBScript в это говорит (с жирным акцентом):

«Замечание Функция VarType никогда не возвращает значение массива самых . Он всегда добавляется к некоторому другому значению, чтобы указать массив из определенного типа. Значение для Variant возвращается только тогда, когда оно добавлено к значению для Array, чтобы указать, что аргумент функции VarType является массивом . Например, значение, возвращаемое для массива рассчитывается как 2 + 8192, или 8194. Если объект имеет свойство по умолчанию, VarType (объект) возвращает тип своего имущества по умолчанию .»

НО

код, такой как

Dim A,I1, I2, I3 
I1 = 1 
I2 = 2 
I3 = 3 
A = Array(I1,I2,I3) 

Dim A2 
A2 = Split("Test,Test,Test",",") 

AT = VarType(A) 
AT2 = VarType(A2) 
IT1 = VarType(I1) 
IT2 = VarType(I2) 
IT3 = VarType(I3) 

WScript.Echo IT1 
WScript.Echo IT2 
WScript.Echo IT3 
WScript.Echo AT & " - 8192 = " & AT - 8192 
WScript.Echo AT2 & " - 8192 = " & AT2 - 8192 
WScript.Echo CStr(VarType(A(2))) 

возвращается

2 
2 
2 
8204 - 8192 = 12 
8204 - 8192 = 12 
2 

I1 - I3 ВСЕ возвращают свои proper vbInteger И, ссылаясь индивидуально в свой массив, ТАКЖЕ возвращают vbInteger, но массив настаивает, что это массив из vbVariant.

Если я не полностью отсутствует что-то здесь, кажется, что в НЕСМОТРЯ документации нет никакого способа, чтобы создать массив, где элементы являются ВСЕ ЖЕ типа и иметь VarType распознает его как угодно, но только массив vbVariant ,

Я чувствую, что это уже должен быть вопрос, но я подошел пустой поиск здесь, поэтому не стесняйтесь связываться, если я пропустил существующие вопросы.

Answer 1

От documentation

В VBScript, переменные всегда одного основного типа данных, Variant.

Данные, содержащиеся в переменной, могут быть любого типа, но сами переменные всегда имеют тип Variant. При проверке с VarType содержимое позиции массива вернет тип содержащихся данных. Но сам массив представляет собой соединение «клетки» из Variant типа

Таким образом, в вашем случае VarType вернется vbArray (8192) + vbVariant (12) = 8204

Answer 2

Это просто ошибка в документации:

==>type D:\VB_scripts\SO\30511987.vbs 
option explicit 
Dim ii, aA(3) 
aA(1)=5 
aA(2)="string" 
aA(3)=Now 

Wscript.Echo "array", VarType(aA), TypeName(aA) 

For ii=0 To UBound(aA) 
    Wscript.Echo "aA(" & CStr(ii) & ")", VarType(aA(ii)), TypeName(aA(ii)) 
Next 

==>cscript D:\VB_scripts\SO\30511987.vbs 
array 8204 Variant() 
aA(0) 0 Empty 
aA(1) 2 Integer 
aA(2) 8 String 
aA(3) 7 Date 

==>