Alien.
Advanced Premium Member
Ciao,
Ho corretto e provato lo script.
Le modifiche sono solo nei titoli e nei dettagli ... pertanto è quello fatto da Disaronno che ringrazio per i suggerimenti.
Lo propongo col suo output.
(Ribadendo che non intendo e non ho interesse ad occuparmi di questi "nuovi" giochi).
Codice:Sub Main Call ImpostaArchivio10ELotto(1)'Serale Dim Nu(1) Fin = EstrazioniArchivioDL q = CInt(InputBox("Quante Estrazioni ?","RITARDO MINIMO",13)) - 1 Ini = Fin - q Scrivi "10eLotto Ritardatari (By Joe)",1 :Scrivi Scrivi q + 1 & " Estrazioni dal " & DataEstrazioneDL(Ini) & " al " & DataEstrazioneDL(Fin),1 :Scrivi Scrivi "NUMERI NON ESTRATTI : ",1,0 For N = 1 To 90 : Nu(1) = N If SerieFreqDL(Ini,Fin,Nu,1) = 0 Then Scrivi Format2(N) & " ",1,0 Next End Sub
Output Attuale:
Codice:10eLotto Ritardatari (By Joe) 13 Estrazioni dal 08.07.2014 al 05.08.2014 NUMERI NON ESTRATTI : 05 25 58 65 84
perfetto ma se possibile inserire anche i numeri + frequenti...........forse con numeri non usciti e numeri + frequenti.....forse......un colpo gobbo si potrebbe prendere.....solo forse................ma non si può fare uno statistica......tipo dalla data alla data..............gen 2013 al mar 2013 ecc........per vedere cosa succede................
Ultima modifica: