J-Gio91 |
|
| Buongiorno a tutte/i. Essendo la descrizione di una ricerca in tempo reale di dati totalmente sconosciuti e prevedibili solo per ipotesi ... ho dovuto modificare il percorso perché non ho trovato in Spaziometria, una istruzione adattabile a quanto precedentemente fatto per l' ESTRATTO DETERMINATO. Dunque propongo questo piccolo script per Spaziometria che estende la ricerca alle 5 posizioni. Successivamente renderò adatto anche il precedente script per fargli produrre dei risultati confrontabili. (Imponendo la Stessa Ruota, lo Stesso Periodo, lo Stesso Estratto ... ecc ) Con questo piccolo script,si ottiene un elenco di 10 Estrazioni in ritardo continuo e successivo. CODICE Option Explicit
Sub Main
Dim Nu(1),Ru(1),Rit,Est,Ini,Fin,Pos(5)
Nu(1) = 1 : Ru(1) = CA_ : Ini = 7000 : Fin = 7149 : Pos(1) = True
Call ElencoRitardi(Nu,Ru,1,Ini,Fin,Rit,Est)
Scrivi StringaNumeri(Est)
Scrivi
Scrivi Fin & " " & StringaEstratti (Fin,Ru(1))
End Sub  NB: E' un elenco di 10 estrazioni in cui apparentemente c'è l'estratto 1 in Cagliari ... ma nell'ultima ...non c'è!
Dunque 10 presenze ... diventano 9.Edited by J-Gio91 - 18/5/2022, 10:13 |
| | |
