EstrattoRitardo chiarimenti

[hemico]

Avrei bisogno di un chiarimento riguardo a RitardoEstratto.
Questo lo script "incriminato".

Sub Main()
   Dim n(3)
   Dim Ambate(2)
   Dim Ruotadigioco(2)
   Dim Poste(1)
   Ruotadigioco(1) = BA_
   Ruotadigioco(2) = CA_
   Poste(1) = 1.0
   For Es = EstrazioneFin - 500 To EstrazioneFin
      If IndiceMensile(Es) = 1 Then 'Prima del Mese
         K = K + 1 : Scrivi String(105,"=") & " " & K,1
         n(1) = Estratto(Es,BA_,4)
         n(2) = Estratto(Es,CA_,4)
         n(3) = Differenza(n(1),n(2))
         Ambate(1) = Fuori90(n(3) + 1)
         Ambate(2) = Fuori90(n(3) - 1)
         Scrivi "Test",1
         ColoreTesto 1:Scrivi DataEstrazione(es) & " ---> " & IndiceMensile(es) & "° Estrazione Mensile" & Chr(10) & _
         "Ambata 1 = " & Format2(Ambate(1)) & "  Amabata 2 = " & Format2(Ambate(2)),1
         Scrivi "Ritardo Attuale Ambata 1 sulla Ruota di " & NomeRuota(BA_) & " è di Estrazioni " & _
         EstrattoRitardo(BA_,Ambate(1))
         Scrivi "Ritardo Attuale Ambata 1 sulla Ruota di " & NomeRuota(CA_) & " è di Estrazioni " & _
         EstrattoRitardo(CA_,Ambate(1))
         Scrivi "Ritardo Attuale Ambata 2 sulla Ruota di " & NomeRuota(BA_) & " è di Estrazioni " & _
         EstrattoRitardo(BA_,Ambate(2))
         Scrivi "Ritardo Attuale Ambata 2 sulla Ruota di " & NomeRuota(CA_) & " è di Estrazioni " & _
         EstrattoRitardo(CA_,Ambate(2))
         Scrivi
         ImpostaGiocata 1,Ambate,Ruotadigioco,Poste,12,1
         Gioca Es,1
      End If
   Next
   ScriviResoconto
End Sub

Il problema nasce dal fatto che EstrattoRitardo mi da il Ritardo delle varie ambate al momento che eseguo lo script.
Vorrei sapere se esiste una funzione che mi dia il Ritardo del estratto al momento reale della generazione del pronostico

Questo un estratto

Test
01.06.2017 ---> 1° Estrazione Mensile
Ambata 1 = 64 Amabata 2 = 62
Ritardo Attuale Ambata 1 sulla Ruota di Bari è di Estrazioni 3 <------ ritardo al 12/09 ritardo al 01.06.2017 ------> ?
Ritardo Attuale Ambata 1 sulla Ruota di Cagliari è di Estrazioni 7 <------ ritardo al 12/09 ritardo al 01.06.2017 ------> ?
Ritardo Attuale Ambata 2 sulla Ruota di Bari è di Estrazioni 14 <------ ritardo al 12/09 ritardo al 01.06.2017 ------> ?
Ritardo Attuale Ambata 2 sulla Ruota di Cagliari è di Estrazioni 5 <------ ritardo al 12/09 ritardo al 01.06.2017 ------> ?

Estrazione generatrice del pronostico 09324 [ 65 - 01/06/2017]
G 0001 Numeri in gioco : 64.62 su BA CA per Estratto
V N. [64.62 ] [CA] [.. .. 62 .. ..] C. 2 Estratto 09326 [ 67 - 06/06/2017]
Interrotta per esito verificato

Sono andato a verificare ed il ritardo era
Ambata 1 Bari Estrazioni 2
Ambata 1 Cagliari Estrazioni 15
Ambata 2 Bari Estrazioni 41
Ambata 2 Cagliari Estrazioni 15

Questo per prendere confidenza il passo successivo era quello di escludere dal pronostico eventuali numeri ritardatari sopra una determinata soglia

Mi auguro che la mia esposizione sia sufficentemente chiara.

Grazie anticipato per chi vorrà aiutarmi.

 

[Mike58]

Ciao la soluzione c'è.
Al codice EstrattoRitardo bisogna anche definire il range di inizio e fine altrimenti se omesso prende i valori di inizio 1 e fine - fine archivio.
Quindi l'estrazione di rilevamento "es" deve rappresentare la fine del codice

Sub Main()
   Dim n(3)
   Dim Ambate(2)
   Dim Ruotadigioco(2)
   Dim Poste(1)
   Ruotadigioco(1) = BA_
   Ruotadigioco(2) = CA_
   Poste(1) = 1.0
   For Es = EstrazioneFin - 500 To EstrazioneFin
      If IndiceMensile(Es) = 1 Then 'Sesta del Mese
         K = K + 1 : Scrivi String(105,"=") & " " & K,1
         n(1) = Estratto(Es,BA_,4)
         n(2) = Estratto(Es,CA_,4)
         n(3) = Differenza(n(1),n(2))
         Ambate(1) = Fuori90(n(3) + 1)
         Ambate(2) = Fuori90(n(3) - 1)
         Scrivi "Test",1
         ColoreTesto 1:Scrivi DataEstrazione(es) & " ---> " & IndiceMensile(es) & "° Estrazione Mensile" & Chr(10) & _
         "Ambata 1 = " & Format2(Ambate(1)) & "  Amabata 2 = " & Format2(Ambate(2)),1
         Scrivi "Ritardo Attuale Ambata 1 sulla Ruota di " & NomeRuota(BA_) & " è di Estrazioni " & _
         EstrattoRitardo(BA_,Ambate(1),1,es)
         Scrivi "Ritardo Attuale Ambata 1 sulla Ruota di " & NomeRuota(CA_) & " è di Estrazioni " & _
         EstrattoRitardo(CA_,Ambate(1),1,es)
         Scrivi "Ritardo Attuale Ambata 2 sulla Ruota di " & NomeRuota(BA_) & " è di Estrazioni " & _
         EstrattoRitardo(BA_,Ambate(2),1,es)
         Scrivi "Ritardo Attuale Ambata 2 sulla Ruota di " & NomeRuota(CA_) & " è di Estrazioni " & _
         EstrattoRitardo(CA_,Ambate(2),1,es)
         Scrivi
         ImpostaGiocata 1,Ambate,Ruotadigioco,Poste,12,1
         Gioca Es,1
      End If
   Next
   ScriviResoconto
End Sub

 

[hemico]

Grazie Mike per la delucidazione.
Si aprono nuovi mondi