Cronologico diverso RDL uguale

Option Explicit
' non si garantisce che i risultati ottenuti siano esatti
' non si escludono eventuali e sempre possibili bug
' lo script non da previsioni da giocare ma una semplice foto statistica sempre che sia esatta

Sub Main
  Dim aRsl(90,13)
  Dim aRit(90,13)
  Dim aRuote:aRuote = Array(0,1,2,3,4,5,6,7,8,9,10,12)
  Dim E,R,m
  Dim Ruota,idEstrFin,Rit,nRSL,nLiv,sNumSinc
  Dim RitSincMax,nSincMax,RSincMax
  idEstrFin = EstrazioneFin
  RitSincMax = 0
  nSincMax = 0
  RSincMax = ""
  m = 0
  ' ciclo i 90 estratti
  For E = 1 To 90
     aRsl(E,1) = E
     aRit(E,1) = E
     ReDim aRslrip(0)
     ReDim aRitrip(0)
     For R = 1 To UBound(aRuote)
     ' funzione da verificare non si garantisce la corretta funzionalita
        Call RitSincDiLiv2(E,aRuote(R),idEstrFin,Rit,nRSL,nLiv,sNumSinc)
        ' questa funzione è corretta perche interna a spaziometria
     ' nRSL=  RitSincDiLiv(E,aRuote(R),idEstrFin,nliv)
        If nLiv = 1 Then
           If RitSincMax < nRSL Then
              RitSincMax = nRSL
              nSincMax = E
              RSincMax = SiglaRuota(aRuote(R))
           End If ' cerco il numero con massimo ritardo sincrono di livello 1
           aRsl(E,R + 1) = FormattaStringa(nRSL,"000")
           aRit(E,R + 1) = FormattaStringa(Rit,"000")
           m = m + 1
           ReDim Preserve aRslrip(m)
           ReDim Preserve aRitrip(m)
           aRslrip(m) = nRSL
           aRitrip(m) = Rit
        Else
           aRsl(E,R + 1) = "---"'
           aRit(E,R + 1) = "---"'
        End If ' nLiv=1
        ' cerco se ci sono medesimi ritardi Sincroni di livello
        ReDim aNsinc(0),aQsinc(0)
        Call NumeriRipetutiRilevatiV(aRslrip,aNsinc,aQsinc)
        If UBound(aNsinc) > 0 Then
           aRsl(E,13) = StringaNumeri(aNsinc)
        End If
        ' cerco se ci sono medesimi ritardi cronologici
        ReDim aNrit(0),aQrit(0)
        Call NumeriRipetutiRilevatiV(aRitrip,aNrit,aQrit)
        If UBound(aNrit) > 0 Then
           aRit(E,13) = StringaNumeri(aNrit)
        End If
        Next ' aRuote
     Next ' E
     Scrivi "Massimo Ritardo sincrono di livello 1: E:" & Format2(nSincMax) & "  R: " & RSincMax & "  Rsl: " & RitSincMax
Scrivi "Tabella Estratti con Medesimo RSL"
Call GetTabellaSincroni(aRsl,aRit)
Scrivi "Tabella Estratti con Medesimo RC"
Call GetTabellaRitardi(aRsl,aRit)
End Sub
Sub RitSincDiLiv2(NumeroAnalizzato,Ruota,idEstrFin,Rit,nRSL,nLiv,sNumSinc)
  Dim idTemp,idPrima
  Dim idEstr
  Dim p
  Dim aN(1)
  Dim aR(1)
  Dim aSinc(5)
  aN(1) = NumeroAnalizzato
  aR(1) = Ruota
  idEstr = SerieUltima(1,idEstrFin,aN,aR,1)
  Rit = idEstrFin - idEstr
  ReDim aE(0)
  Call GetArrayNumeriRuota(idEstr,aR(1),aE)
  If UBound(aE) = 0 Then
     Rit = 0 '
     nRSL = 0 '
     nLiv = 0 '
     sNumSinc = "-- -- -- -- --"
  Else
     nLiv = 0
     idTemp = 0
     For p = 1 To 5
        aN(1) = aE(p)
        If SerieUltima(idEstr,idEstrFin,aN,aR,1) = idEstr Then
           nLiv = nLiv + 1
           aSinc(p) = aN(1)
        Else
           aSinc(p) = "--"
           idPrima = SeriePrima(idEstr + 1,idEstrFin,aN,aR,1)
           If idTemp < idPrima Then idTemp = idPrima
        End If
     Next
     If idTemp = 0 Then idTemp = idEstr ' questo se nessun estratto è caduto
     nRSL = idEstrFin - idTemp ' questo calcola il ritardo di livello ;-)
     sNumSinc = StringaNumeri(aSinc," ",True)
  End If
End Sub
Sub GetTabellaSincroni(aRsl,aRit)
Dim aTit,E,id
aTit=Array(0,"Estratto","Bari","Cagliari","Firenze","Genova","Milano","Napoli","Palermo","Roma","Torino","Venezia","Nazionale","RSL Convergente")
Call InitTabella(aTit)
For E = 1 To UBound(aRsl)
     If aRsl(E,13) <> "" Then
        ReDim aTab(13)
        aTab(1) = aRsl(E,1)
       
        For id = 2 To UBound(aRsl,2) - 1
           If aRsl(E,id) <> "---" Then
              aTab(id) = "RSL: ( " & aRsl(E,id) & ")  Rc:[" & aRit(E,id) & "]"
             
           End If
        Next
        aTab(13) = aRsl(E,13)
     
        Call AddRigaTabella(aTab)
     End If
  Next
  Call CreaTabella()

End Sub
Sub GetTabellaRitardi(aRsl,aRit)
Dim aTit,E,id
aTit=Array(0,"Estratto","Bari","Cagliari","Firenze","Genova","Milano","Napoli","Palermo","Roma","Torino","Venezia","Nazionale","RC Convergente")
Call InitTabella(aTit)
For E = 1 To UBound(aRit)
     If aRit(E,13) <> "" Then
        ReDim aTab(13)
        aTab(1) = aRit(E,1)
       
        For id = 2 To UBound(aRit,2) - 1
           If aRit(E,id) <> "---" Then
              aTab(id) = "RSL: ( " & aRsl(E,id) & ")  Rc:[" & aRit(E,id) & "]"
             
           End If
        Next
        aTab(13) = aRit(E,13)
     
        Call AddRigaTabella(aTab)
     End If
  Next
  Call CreaTabella()

End Sub