Sub Main()
Dim num(10),ruota(01),sorte
sorte = ScegliSorte
IniStart = Timer
Call ScegliNumeri(num)
Ini = EstrazioneIni
fin = EstrazioneFin
Tot = fin - Ini + 01
Call Scrivi(" Statistica Veloce su Formazione dei Numeri scelti" & " ",1,0,6)
Call Scrivi(" " & StringaNumeri(num,,True) & " ",1,0,2)
Call Scrivi(" Per la sorte ..." & " " & NomeSorte(sorte) & " ",1,- 1,3)
Call Scrivi(String(100,"="))
Call Scrivi(" Dalla data ..." & DataEstrazione(Ini) & " alla data ..." & DataEstrazione(fin) & " - Estrazioni Totali " & Format2(Tot),1)
Call Scrivi(String(100,"="))
Call Scrivi
ReDim atitoli(18)
atitoli(01) = " Ruota "
atitoli(02) = " Combinazione "
atitoli(03) = " Ritardo 00-19"
atitoli(04) = " Rit. Max 00-19"
atitoli(05) = " Incr.Rit.Max 00-19"
atitoli(06) = " Frequenza 00-19"
atitoli(07) = " Ritardo 20-39"
atitoli(08) = " Rit. Max 20-39"
atitoli(09) = " Incr.Rit.Max 20-39"
atitoli(10) = " Frequenza 20-39"
atitoli(11) = " Ritardo 40-60"
atitoli(12) = " Rit. Max 40-60"
atitoli(13) = " Incr.Rit.Max 40-60"
atitoli(14) = " Frequenza 40-60"
atitoli(15) = " Ritardo "
atitoli(16) = " Rit. Max "
atitoli(17) = " Incr.Rit.Max "
atitoli(18) = " Frequenza "
Call InitTabella(atitoli,1,,,5)
For r = 11 To 12
ruota(01) = r
Call AvanzamentoElab(01,12,r)
If ScriptInterrotto Then Exit For
Call StatisticaFormazioneTurbo(num,ruota,sorte,RetRit1,RetRitMax1,RetIncrRitMax1,RetFreq1,fin - 19,fin - 00)
Call StatisticaFormazioneTurbo(num,ruota,sorte,RetRit2,RetRitMax2,RetIncrRitMax2,RetFreq2,fin - 39,fin - 20)
Call StatisticaFormazioneTurbo(num,ruota,sorte,RetRit3,RetRitMax3,RetIncrRitMax3,RetFreq3,fin - 60,fin - 40)
Call StatisticaFormazioneTurbo(num,ruota,sorte,RetRit4,RetRitMax4,RetIncrRitMax4,RetFreq4,ini - 00,fin - 00)
ReDim avalori(18)
avalori(01) = NomeRuota(r)
avalori(02) = StringaNumeri(num,,True)
avalori(03) = RetRit1
avalori(04) = RetRitMax1
avalori(05) = RetIncrRitMax1
avalori(06) = RetFreq1
avalori(07) = RetRit2
avalori(08) = RetRitMax2
avalori(09) = RetIncrRitMax2
avalori(10) = RetFreq2
avalori(11) = RetRit3
avalori(12) = RetRitMax3
avalori(13) = RetIncrRitMax3
avalori(14) = RetFreq3
avalori(15) = RetRit4
avalori(16) = RetRitMax4
avalori(17) = RetIncrRitMax4
avalori(18) = RetFreq4
Call AddRigaTabella(avalori)
Call SetColoreCella(02,,7)
Next
Call CreaTabella()
Call Scrivi(" Script By Disaronno ",1,- 1,3)
FinEnd = Timer
Call Scrivi("Tempo di elaborazione : " & FormattaSecondi((FinEnd + 01) - IniStart))
End Sub
Function ScegliSorte
ReDim aVoci(04)
aVoci(00) = "Estratto"
aVoci(01) = "Ambo"
aVoci(02) = "Terno"
aVoci(03) = "Quaterna"
aVoci(04) = "Cinquina"
ScegliSorte = ScegliOpzioneMenu(aVoci,00,"Secegli Tipo Sorte") + 01
End Function
Function FormattaSecondi(s)
'Questa Function trasforma il numero di secondi passato come parametro in una stringa
' passando i secondi si ottengono ore minuti e secondi in formato hh:mm:ss
' s ---> Numero di secondi da formattare
' ritorna una stringa il cui formato è hh:mm:ss (la function non funziona se in totale abbiamo piu di 99 ore )
Dim hh
Dim Mm
Dim Ss
Dim TimeStr
hh = s \ 3600
Mm =(s Mod 3600) \ 60
Ss = s -((hh * 3600) +(Mm * 60))
TimeStr = Format2(hh) & ":" & Format2(Mm) & ":" & Format2(Ss)
FormattaSecondi = TimeStr
End Function
non mancherò di riprovare a richiedervi aiuto in tal senso. Per ora grazie mille ugualmente a tutti e buona domenica 
