HOW DO I RETURN AN ARRAY FROM A FUNCTION PROCEDURE 1

[TNN]

I am trying to return an array from a called function. I think this is something new in VB6 but I can't make it work.
Any help is appreciated.
I have tried the following code with no success:

Public Function EvaluateHrs(B As Integer, i As Integer) As Currency()
Dim EvaluateHrsItems(2) As Currency
'Calculations here.
EvaluateHrsItems(0) = Calc1
EvaluateHrsItems(1) = Calc2
EvaluateHrsItems(2) = Calc3
EvaluateHrs = EvaluateHrsItems
End Function

'Calling function from this Sub.
Public Sub CalcGross(B as integer, i As Integer)
Dim HrsItems() As Currency
HrsItems()=EvaluateHrs B, i 'This line won't work
If HrsItems(0) <> 0 Then
curOTPay = HrsItems(0)
End If

'etc.
End Sub

Thank You for any help.
TNN, Tom
TNPAYROLL@AOL.COM



TOM

http://WWW.TNPAYROLL@AOL.COM

 

[Nld]

Here's how:
Excuse the extra code, I was just checking. When talking to the array you see it as a pointer and so exclude the brackets:

Option Explicit

Private Sub Form_Load()
CalcGross 3, 1
End Sub
Public Function EvaluateHrs(B As Integer, i As Integer) As Currency()
Dim EvaluateHrsItems(2) As Currency
'Calculations here.
EvaluateHrsItems(0) = 10
EvaluateHrsItems(1) = 20
EvaluateHrsItems(2) = 30
EvaluateHrs = EvaluateHrsItems
End Function

'Calling function from this Sub.
Public Sub CalcGross(B As Integer, i As Integer)
Dim HrsItems() As Currency, curOTPay As Currency
HrsItems = EvaluateHrs(B, i) 'Now it should
If HrsItems(0) <> 0 Then
curOTPay = HrsItems(0)
End If

'etc.
End Sub

 

[TNN]

Thank You NlD,
Got It

TNN, Tom
TNPAYROLL@AOL.COM



TOM

http://WWW.TNPAYROLL@AOL.COM