[B]Option[/B] [B]Explicit[/B]
[B]Sub[/B] [B]Main[/B]
[B]Dim[/B] [B]fine[/B],[B]ne[/B],[B]Ini[/B],[B]sor[/B],[B]n[/B],[B]ritardo[/B],[B]ritardomax[/B],[B]Incrritmax[/B],[B]frequenza[/B],[B]ix[/B],[B]y[/B],[B]retcolpi[/B],[B]retestratti[/B],[B]retidestr[/B],[B]t[/B],[B]last[/B],[B]yz[/B]
[B]Dim[/B] [B]rtfr[/B](999999,2),[B]an[/B](1)
[B]Call[/B] [B]ImpostaArchivio10ELotto[/B](1)
[B]Ini[/B] [B]=[/B] [B]EstrazioneIni[/B]
[B]fine[/B] [B]=[/B] [B]InputBox[/B]("Estrazione n.",,[B]EstrazioneFin[/B])
[B]yz[/B] [B]=[/B] [B]CInt[/B]([B]InputBox[/B]("Vuoi combinazioni composta da n.Numeri? 0=Tutti ",,0))
[B]For[/B] [B]n[/B] [B]=[/B] 1 [B]To[/B] 90
[B]an[/B](1) [B]=[/B] [B]n[/B]
[B]Call[/B] [B]StatisticaFormazioneDL[/B]([B]an[/B],1,[B]ritardo[/B],[B]ritardomax[/B],[B]Incrritmax[/B],[B]frequenza[/B],[B]Ini[/B],[B]fine[/B])
[B]ix[/B] [B]=[/B] [B]FormattaStringa[/B]([B]ritardo[/B],"000") [B]&[/B] [B]FormattaStringa[/B]([B]frequenza[/B],"0000")
[B]rtfr[/B]([B]ix[/B],1) [B]=[/B] [B]rtfr[/B]([B]ix[/B],1) [B]&[/B] [B]Format2[/B]([B]n[/B]) [B]&[/B] "."
[B]rtfr[/B]([B]ix[/B],2) [B]=[/B] [B]rtfr[/B]([B]ix[/B],2) [B]+[/B] 1
[B]Next[/B]
[B]Scrivi[/B] "Situazione 10 e LOTTO rit/freq. ",1
[B]Scrivi[/B] "Periodo Inizio : " [B]&[/B] [B]Ini[/B] [B]&[/B] " fine : " [B]&[/B] [B]fine[/B] [B]&[/B] "/" [B]&[/B] [B]DataEstrazione[/B]([B]fine[/B]),1
[B]Scrivi[/B] "Rit Freque Numeri ",1
[B]Messaggio[/B]("Attendere elaborazione in corso")
[B]For[/B] [B]y[/B] [B]=[/B] 0 [B]To[/B] 999999
[B]If[/B] [B]rtfr[/B]([B]y[/B],1) [B]<>[/B] "" [B]And[/B] [B]rtfr[/B]([B]y[/B],2) [B]>[/B] [B]yz[/B] [B]Then[/B]
[B]ColoreTesto[/B](2)
[B]Scrivi[/B] [B]FormattaStringa[/B]([B]y[/B],"000 / 0000") [B]&[/B] " " [B]&[/B] [B]rtfr[/B]([B]y[/B],1),1
[B]ColoreTesto[/B](0)
''''verificaesiti
[B]ReDim[/B] [B]av[/B](20),[B]av5[/B](20)
[B]Call[/B] [B]SplitByChar[/B]([B]rtfr[/B]([B]y[/B],1),".",[B]av[/B])
[B]last[/B] [B]=[/B] [B]UBound[/B]([B]av[/B])
[B]For[/B] [B]t[/B] [B]=[/B] 0 [B]To[/B] [B]last[/B] [B]-[/B] 1
[B]av5[/B]([B]t[/B] [B]+[/B] 1) [B]=[/B] [B]av[/B]([B]t[/B])
[B]Next[/B]
[B]Call[/B] [B]VerificaEsitoDL[/B]([B]av[/B],[B]fine[/B] [B]+[/B] 1,1,,,[B]retcolpi[/B],[B]retestratti[/B],[B]retidestr[/B])
[B]If[/B] [B]retestratti[/B] [B]<>[/B] "" [B]Then[/B]
[B]Scrivi[/B] "-------" [B]&[/B] [B]retidestr[/B] [B]&[/B] "..colpo n." [B]&[/B] [B]Format2[/B]([B]retcolpi[/B]) [B]&[/B] " " [B]&[/B] [B]retestratti[/B]
[B]End[/B] [B]If[/B]
[B]End[/B] [B]If[/B]
[B]Next[/B]
[B]End[/B] [B]Sub[/B]