Listato 10elotto5 minuti

[solare]

Ciao, chiedo cortesemente la verifica di questo listato se non sbaglio è stato fatto da Luigib, vorrei sapere se possibile se è per 10elotto oppure 10elotto5minuti
a me interesserebbe x 10elotto5minuti.
Grazie
Option Explicit
Sub Main

Dim Inizio,Fine,idEstr
Dim k,EntroColpi,e,ee,c
Dim nBase,nUscito
Dim nUscite
ReDim aPresenze(90,90)
Dim RetRit,RetRitMax,RetFreq


Call ImpostaArchivio10ELotto(1)

EntroColpi = CInt(InputBox("Entro quanti colpi ?","Colpi",1))
Inizio = EstrazioniArchivioDL - 5000

Fine = EstrazioniArchivioDL


For k = Inizio To Fine
For e = 1 To 20
nBase = EstrattoDL(k,e)
For c = 1 To EntroColpi
idEstr = k + c
For ee = 1 To 20
nUscito = EstrattoDL(idEstr,ee)
aPresenze(nBase,nUscito) = aPresenze(nBase,nUscito) + 1
Next
Next
Next
Call AvanzamentoElab(Inizio,Fine,k)
If ScriptInterrotto Then Exit For
Next

ReDim aTitoli(6)

aTitoli(1) = "Numero Spia"
aTitoli(2) = "Numero Piu Freq"
aTitoli(3) = "Uscite"
aTitoli(4) = "Ritardo"
aTitoli(5) = "RitardoMax"
aTitoli(6) = "Frequenza"

Call InitTabella(aTitoli)

For nBase = 1 To 90
ReDim aValori(6)

aValori(1) = nBase
aValori(2) = GetNumeroPiuFreq(nBase,aPresenze,nUscite)
aValori(3) = nUscite

ReDim aN(1)
aN(1) = aValori(2)
Call StatisticaFormazioneDL(aN,1,RetRit,RetRitMax,0,RetFreq,Inizio,Fine)

aValori(4) = RetRit
aValori(5) = RetRitMax
aValori(6) = RetFreq

Call AddRigaTabella(aValori)
Next

Call CreaTabella




End Sub
Function GetNumeroPiuFreq(nBase,aPresenze,nUscite)

Dim k
ReDim aOrd(90,2)

For k = 1 To 90
aOrd(k,1) = k
aOrd(k,2) = aPresenze(nBase,k)
Next

Call OrdinaMatrice(aOrd,- 1,2)

GetNumeroPiuFreq = aOrd(1,1)
nUscite = aOrd(1,2)

End Function

 

[mpisticchia]

Ciao,
così com'è è per il 10eLotto serale:
Call ImpostaArchivio10ELotto(1)
ma basta cambiare con ImpostaArchivio10ELotto(2) e cambi archivio

 

[solare]

ok Grazie