richiesta script per ritardo di oro e doppio oro al 10elotto

[ppaaoolloo]

ciao
se possibile vorrei poter provare uno script
che mi trovi il ritardo attuale sia del numero oro
che del doppio oro.
forse esiste già uno script del genere per spaziometria
ma non sono riuscito a trovarlo, se qualcuno gentilmente
me lo può fornire lo ringrazio anticipatamente

grazie

ciao

 

[Beppignello]

è molto semplice

il nr.oro è il primo estratto di Bari

il doppio oro è il secondo estratto di Bari

leggi questi 2 numeri del lotto e calcoli il ritardo nell'archivio



ciao.

 

[Membro cancellato 16574]

Buonanotte ,
Salutando , se puo' servire ,
Postiamo questo listato .

Option Explicit
Sub Main
Dim ini,fin,aRuote(01),x : ini = EstrazioneIni : fin = EstrazioneFin : aRuote(01) = BA_
Dim aTitoli : aTitoli = Array(aTitoli,"Numero","RIT","R.M","IRM","FRE","ORO","RIT","R.M","IRM","FRE","DOPPIO","RIT","R.M","IRM","FRE")
Call InitTabella(aTitoli)
For x = 01 To 90 : Call Messaggio(x) : Call AvanzamentoElab(01,90,x)
ReDim nu(01) : nu(01) = x
ReDim aposizioni(05) : aposizioni(01) = True : aposizioni(02) = True
Dim RetRit,RetRitMax,RetIncrRitMax,RetFre
Call StatisticaFormazioneTurbo(nu,aRuote,AMBATA_,RetRit,RetRitMax,RetIncrRitMax,RetFre,ini,fin,,aposizioni)
ReDim aposizioneNO(05),aposizioneDO(05) : aposizioneNO(01) = True : aposizioneDO(02) = True
Dim RetRitNO,RetRitMaxNO,RetIncrRitMaxNO,RetFreNO
Call StatisticaFormazioneTurbo(nu,aRuote,AMBATA_,RetRitNO,RetRitMaxNO,RetIncrRitMaxNO,RetFreNO,ini,fin,,aposizioneNO)
Dim RetRitDO,RetRitMaxDO,RetIncrRitMaxDO,RetFreDO
Call StatisticaFormazioneTurbo(nu,aRuote,AMBATA_,RetRitDO,RetRitMaxDO,RetIncrRitMaxDO,RetFreDO,ini,fin,,aposizioneDO)
Dim aValori : aValori = Array(aValori,x,RetRit,RetRitMax,RetIncrRitMax,RetFre,_
"",RetRitNO,RetRitMaxNO,RetIncrRitMaxNO,RetFreNO,_
"",RetRitDO,RetRitMaxDO,RetIncrRitMaxDO,RetFreDO)
Call AddRigaTabella(aValori)
Next
Call ScegliTabella()
End Sub
Function ScegliTabella()
Dim aVoci : aVoci = Array(aVoci,"Tabella Normale","Tabella Excell")
ScegliTabella = ScegliOpzioneMenu(aVoci,02,"Scegli il Tipo di Tabella")
If ScegliTabella = 01 Then Call CreaTabella(01)
If ScegliTabella = 02 Then Call CreaTabellaOrdinabile(01)
End Function

Controllare sempre .
Salvo errori ed omissis .