Sub TestFunct()
    Dim a( 1  To  4 ) As Long
    b = Funct1(a())
    Debug.Print a( 1 )
End Sub

Function Funct1(a() As Long) As Boolean
    a( 1 ) =  1 
    Funct1 = True
End Function

Option Explicit

Private Sub Command1_Click()
    Dim a As Long
    Dim b As Date
    Dim c As String
    Dim arr1() As Variant
    
    arr1 = Sample()
    
    a = arr1( 0 )
    b = arr1( 1 )
    c = arr1( 2 )
    Debug.Print a
    Debug.Print b
    Debug.Print c
End Sub

Private Function Sample() As Variant
    Dim arr( 0  To  2 ) As Variant
    arr( 0 ) =  10 
    arr( 1 ) = Now
    arr( 2 ) = "sample"
    
    Sample = arr
End Function

public function t (...) as long()
dim f() as long
redim f ( 1  To  10 )
t = f
end Function

На сайте осуществляется обработка файлов cookie, необходимых для работы сайта, а также для анализа использования сайта и улучшения предоставляемых сервисов с использованием метрической программы Яндекс.Метрика.

Продолжая использовать сайт, вы даёте согласие на обработку файлов cookie, необходимых для работы сайта. Другие опции вы можете выбрать по своему усмотрению.

По нижеприведенным ссылкам мы можете ознакомиться с действующим на сайте пользовательским соглашением и политикой конфиденциальности.

Пользовательское соглашение
Политика конфиденциальности

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы