G
gennaro
Guest
Salve a tutti... volevo chiedervi come passare piu' informazioni da una FUNCTION.
Mi spiego meglio: ho scritto questa Function che mi restituisce SOLO il numero di presenze di un certo ambo in un certo range estrattivo ma avrei bisogno di tirare fuori
qualche altra informazione come il valore della variabile appo
Sara' una stupidaggine ma mi manca un tassello....
Grato per tutto quello che fate, vi ringrazio.
Function GetPresenzeAmbo(IdNum1,IdNum2,IdRuota,IdInizio,IdFine)
Dim Ruota(1),NumAmbo(2)
Conta = 0
Inizio = IdInizio
NumAmbo(1) = IdNum1
NumAmbo(2) = IdNum2
Ruota(1) = IdRuota
For j = Inizio To IdFine
appo = SeriePrima(Inizio,IdFine,NumAmbo,Ruota,2)
If appo <> 0 Then
Conta = Conta + 1
Inizio = appo + 1
End If
Next
GetPresenzeAmbo = Conta
End Function
Mi spiego meglio: ho scritto questa Function che mi restituisce SOLO il numero di presenze di un certo ambo in un certo range estrattivo ma avrei bisogno di tirare fuori
qualche altra informazione come il valore della variabile appo
Sara' una stupidaggine ma mi manca un tassello....
Grato per tutto quello che fate, vi ringrazio.
Function GetPresenzeAmbo(IdNum1,IdNum2,IdRuota,IdInizio,IdFine)
Dim Ruota(1),NumAmbo(2)
Conta = 0
Inizio = IdInizio
NumAmbo(1) = IdNum1
NumAmbo(2) = IdNum2
Ruota(1) = IdRuota
For j = Inizio To IdFine
appo = SeriePrima(Inizio,IdFine,NumAmbo,Ruota,2)
If appo <> 0 Then
Conta = Conta + 1
Inizio = appo + 1
End If
Next
GetPresenzeAmbo = Conta
End Function