Как использовать определяемый пользователем тип в функции?

Question

Следующая тривиальный пример не работает:

Public Type MyType 
    a As Double 
    b As Integer 
End Type 

Function Test() As Variant 
    Dim x As MyType 
    Test = 2 
End Function 

Compile Error: User-defined type not defined

Как "определить" тип?

Answer 1

ваш код компилируется нормально в моем первенствовать 2010

так или иначе было бы не использовать для использования определенного пользователем типа

здесь следует «завершить» пример

Option Explicit 

Public Type MyType 
    a As Double 
    b As Integer 
End Type 

Sub main() 
    Dim x As MyType 

    'initialize fields of your type 
    x.a = 1.2 
    x.b = 1 

    MsgBox Test(x) 
End Sub 


Function Test(x As MyType) As Variant 

    Test = x.a + x.b 

End Function