Buon giorno a tutte/i.
Terminate le numerose premesse,
si tratta di trovare un algoritmo capace di contare i ritardi in maniera corretta.
Mi perdonerete se insisto sulle accezioni del termine CORRETTA.
Innanzi tutto vediamo con un semplicissimo script (PER SPAZIOMETRIA) come è possibile contare le ESTRAZIONI.
Successivamente in esso inserirò tutte le condizioni necessarie
per avere il VALORE del RITARDO calcolato correttamente.
CODICE
Option Explicit
Sub Main
Dim Ini,Fin,Es,R,C
Ini = 1 ' PRIMA ESTRAZIONE
Fin = EstrazioniArchivio ' TUTTE LE ESTRAZIONI IN ARCHIVIO
R = CA_ ' Cagliari
For Es = Ini To Fin
C = C + 1 'AUMENTA DI UNO IL CONTATORE "C"
Next
Scrivi C 'ESPLICITA IL VALORE DEL CONTATORE "C"
End Sub
Eseguito lo script, restituisce il numero di estrazioni che è in grado di trovare.
All'esecuzione restituisce 10000 o più estrazioni ovvero quante ce ne sono in archivio.