script somma ritardi posizione estrazionale .

[Jai.Jai]

jai.jai l'idea non è mia dello script è pertanto io posso rispondere in merito allo script e al suo costrutto.
Si !! si può aggiungere il cumulo RitPosizionale + freqPosizionale, ma tieni presente che lo script ricerca con ordinamento SommaRitPosizionale.
Quindi il suo uso è anche interattivo e si presta a modifiche ad hoc e personalizzabili.

Se poi sei quel Jai,Jai che si intende anche di script allora saprai utilizzarlo per lo scopo voluto.
Ciao

Sub Main
   Dim Mat(90,21),Nu(1),Ru(1),T,V
   Ini = EstrazioneIni
   fin = EstrazioneFin
   scelta = CInt(InputBox("1 = Ritardo Corrente" & Chr(13) & "2 = Ritardo Storico","Scelta Ritardo",1))
   righe = CInt(InputBox("Quante righe visualizzo",,10))
   ResetTimer
   For r = 1 To 11
      If r = 11 Then r = 12
      If scelta = 1 Then Scrivi "Ritadi Correnti di Posizioni",1
      If scelta = 2 Then Scrivi "Ritardi storici di Posizioni",1
      T = Array(T,"k","Ruota","Num","RP1","RP2","RP3","RP4","RP5","SOMMA_RP","Min","Max","FP1","FP2","FP3","FP4","FP5","Cum1","Cum2","Cum3","Cum4","Cum5")
      Call InitTabella(T,RGB(187,187,187),,,5)
      k = 0
      For n = 1 To 90
         Nu(1) = n
         ReDim rit(5),fre(5)
         For p = 1 To 5
            ReDim pos(5)
            pos(p) = True
            If scelta = 1 Then rit(p) = EstrattoRitardoTurbo(r,n,Ini,fin,,,pos)
            If scelta = 2 Then rit(p) = EstrattoStoricoTurbo(r,n,Ini,fin,,,pos)
            fre(p) = EstrattoFrequenzaTurbo(r,n,Ini,fin,,,pos)
           
         Next
         min = MinimoV(rit,1,- 1)
         max = MassimoV(rit)
         somRit = rit(1) + rit(2) + rit(3) + rit(4) + rit(5)
         minF = MinimoV(fre,1,-1)
         maxF = MassimoV(fre)
         somFre = fre(1)+fre(2)+fre(3)+fre(4)+fre(5)
         '--------------------------------------------------
         cum1 = rit(1)+fre(1)
         cum2 = rit(2)+fre(2)
         cum3 = rit(3)+fre(3)
         cum4 = rit(4)+fre(4)
         cum5 = rit(5)+fre(5)
         k = k + 1
         Mat(k,1) = k
         Mat(k,2) = SiglaRuota(r)
         Mat(k,3) = Nu(1)
         Mat(k,4) = rit(1)
         Mat(k,5) = rit(2)
         Mat(k,6) = rit(3)
         Mat(k,7) = rit(4)
         Mat(k,8) = rit(5)
         Mat(k,9) = somRit
         Mat(k,10) = min
         Mat(k,11) = max
         Mat(k,12) = fre(1)
         Mat(k,13) = fre(2)
         Mat(k,14) = fre(3)
         Mat(k,15) = fre(4)
         Mat(k,16) = fre(5)
         Mat(k,17) = cum1
         Mat(k,18) = cum2
         Mat(k,19) = cum3
         Mat(k,20) = cum4
         Mat(k,21) = cum5
      Next
      Call Messaggio("ATTENDERE Elaborazione......  " & TempoTrascorso)
      Call OrdinaMatrice(Mat,- 1,9)
      Call AvanzamentoElab(1,11,r)
      For x = 1 To righe
         V = Array(V,x,Mat(x,2),Mat(x,3),Mat(x,4),Mat(x,5),Mat(x,6),Mat(x,7),Mat(x,8),Mat(x,9),Mat(x,10),Mat(x,11),Mat(x,12),Mat(x,13),Mat(x,14),Mat(x,15),Mat(x,16),Mat(x,17),Mat(x,18),Mat(x,19),Mat(x,20),Mat(x,21))
         Call AddRigaTabella(V)
         Call SetColoreCella(3,3,0)
         Call SetColoreCella(9,3,0)
         For xx = 4 To 8
            If V(xx) = V(10) And V(10) > 99 Then Call SetColoreCella((xx),7,5)
         Next
         For xy = 17 To 21
         Call SetColoreCella((xy),4,0)
         Next
         For yy = 10 To 11
         Call SetColoreCella((yy),6,0)
         Next
      Next
      CreaTabella
   Next
End Sub

Si sono quel Jai.Jai ;-) provvederò per quello .... ti ringrazio mike58!! un abbraccio virtuale anti-covid!