ник: alexmartinboy
Сам очень долго не мог найти, так чтобы для чайников. В книгах сложно сразу все понять что к чему, а тут чел классно описал
1 Public Function MakeConection(n As Integer, karta As Long) As Double
2 If (n >= 1) Then
3 Dim i As Integer
4 Dim s As Double
5 ReDim mass(0 To n - 1) As Double
6 Dim rst As ADODB.Recordset
7 Set rst = New ADODB.Recordset
8 rst.Open "SELECT [Исходящие звонки].Kode, [Исходящие звонки].Звонок, [Исходящие
9 звонки].[Результат]" & _
10 "FROM [Исходящие звонки]" & _
11 "WHERE ((([Исходящие звонки].Kode) = " & karta & " ) And (([Исходящие звонки].[Результат]) 12 Is Not Null))" & _
13 "ORDER BY [Исходящие звонки].Звонок;", CurrentProject.Connection
14 s = 0
15 i = 0
16 rst.MoveFirst
17 Do Until rst.EOF
18 mass(i) = rst(2)
19 s = s + mass(i) / (n - i)
20 rst.MoveNext
21 i = i + 1
22 Loop
23 rst.Close
24 Set rst = Nothing
25 MakeConection = s
26 Else: MakeConection = 99
27 End If
28 End Function
вот ссылка, где он все рассписал, что означает каждая строчка- что к чему.
http://societykey.blogspot.com/2012/12/VBA-programmirovanie.html 