| ho recuperato uno script vecchiotto, che forse può tornare utile non so, provatelo con spaziometria, se volete crea una lunghetta da fascia ritardo da .. a impostate un'estrazione vecchia e provate a vedere i risultati che realizzava nel passato. CODICE Option Explicit Sub Main Dim ini,fine,fa,finale,n,rt,m,nc,retestratti,retidestr,x,k Dim nu(201,3),numeri(90) finale = EstrazioniArchivioSE fine = InputBox("Estraz.n.",,finale) fa = CInt(InputBox("Fasce rit. ",,9)) nc = CInt(InputBox("a fascia ",,40)) ini = 1 Scrivi "Situazione all'Estrazione n." & fine,1 Scrivi "Fascia RITARDO < di " & fa + nc Scrivi "Fascia RITARDO > di " & fa '''''''''''''''''''''''''''''''''''''''''''''''''''' '''''rileva ritardi For n = 1 To 90 rt = EstrattoRitardoSE(n,ini,fine) nu(rt,1) = rt nu(rt,2) = Format2(n) Next '''''riepilogo ritardi Call OrdinaMatrice(nu,- 1,1) For m = 0 To 200 If Int(nu(m,1)) >= fa And nu(m,1) <= fa + nc Then Scrivi nu(m,2) & " " & nu(m,1) x = x + 1 numeri(x) = nu(m,2) End If Next Scrivi:Scrivi StringaNumeri(numeri," ") & " Qt.Num. " & x,1,2,3 For k = 1 To 9 Call VerificaEsitoSE(numeri,fine + k,2,1,,,retestratti,retidestr) If retestratti <> "" Then Scrivi "------> colpo n. " & retidestr - fine & " " & retidestr & " " & retestratti End If Next End Sub
|