SerieUltima SE

[genios]

Script di joe91 modificato da me . Gira ma in out non restituisce nulla .
Forse il motivo sta nella mancanza della funzione SerieUltimaSE ?

'Somma Ultimi Ritardi (10 ritardi di 10 ruote)
'Scritto da Joe91 Maggio 2007 modificato da me per il super enalotto 
Sub Main
    Dim R(10)
    Dim NN(1)
    fin = EstrazioniArchivioSE
    For n = 1 To 90
        NN(1) = n
        a = fin
        For Rit = 1 To 10
            A = SerieUltima(a - 250,a,N) - 1
        Next
        If fin - a > 270 Then Scrivi Format2(N) & " " & Fin - a
    Next
    Scrivi

End Sub
Function SerieUltima(ini,fin,n)
    For Es = fin To 1 Step - 1
        If PosizioneSE(es,n) > 0 Then
            SerieUltima = es
            Exit For
        End If
    Next
End Function

 

[genios]

Grazie Magia .