Domandina agli esperti

[Mat]

x Ananda
Tu dici: <<Grazie Mat. Ma come ricavi i ritardi di cui parli?>>

Anche manualmente è semplice quando si possiede il file che ho allegato.
Ad esempio per la ruota di TO, se leggi l'allegato l'ultima volta che c'è stato un ambo risale al

30/10/2014

Se fai la differenza tra l'indice attuale e quello a quella data troverai esattamente 1411 di ritardo, allo stesso modo si opera per tutti gli altri.
Ciao,
Matteo

 

[ananda]

x Ananda
Tu dici: <<Grazie Mat. Ma come ricavi i ritardi di cui parli?>>

Anche manualmente è semplice quando si possiede il file che ho allegato.
Ad esempio per la ruota di TO, se leggi l'allegato l'ultima volta che c'è stato un ambo risale al

30/10/2014

Se fai la differenza tra l'indice attuale e quello a quella data troverai esattamente 1411 di ritardo, allo stesso modo si opera per tutti gli altri.
Ciao,
Matteo

Grazie

 

[joe]

Ciao Matteo, buongiorno a tutte/i.

Volevo chiedere se questi Ambi hanno un loro nome.

Grazie.

 

[Mat]

Ciao Joe e buonasera a tutti,
a me non risulta che abbiano un nome particolare, però sono sicuramente Sincrononi di LIV. 2, come giustamente li ha chiamati Ananda, perché si tratta di quelle righe che hanno 2 numeri presenti.
Ciao a tutti,
Matteo

 

[joe]

Ok.

Così è ... (per Spaziometria).

Option Explicit
Sub Main
'Ambi Sincroni di Livello 2 (Attuali)
'Script By Joe V.2.0 del 07/11/2023
   Dim Ini,Fin,Es,R,A,B,L,R_E(90),R_A(89,90)
   Ini = 1 : Fin = EstrazioneFin : L = 40
   For R = 1 To 10
      For A = 1 To 90
         R_E(A) = EstrattoRitardo(R,A,Ini,Fin)
      Next
      For A = 1 To 89
         For B = A + 1 To 90
            R_A(A,B) = AmboRitardo(R,A,B,Ini,Fin)
         Next
      Next
      For A = 1 To 89
         For B = A + 1 To 90
            If R_A(A,B) >= L Then
               If R_E(A) = R_A(A,B) Then
                  If R_E(B) = R_A(A,B)Then
                     Scrivi SiglaRuota(R) & " " & Format2(A) & "." & Format2(B) & " RC " & R_E(A)
                  End If
               End If
            End If
         Next
      Next
   Next
  Scrivi
  Scrivi "Agg. al " & DataEstrazione(Fin,,,"/")
End Sub

 

[ananda]

Ok.

Così è ... (per Spaziometria).

Option Explicit
Sub Main
'Ambi Sincroni di Livello 2 (Attuali)
'Script By Joe V.2.0 del 07/11/2023
   Dim Ini,Fin,Es,R,A,B,L,R_E(90),R_A(89,90)
   Ini = 1 : Fin = EstrazioneFin : L = 40
   For R = 1 To 10
      For A = 1 To 90
         R_E(A) = EstrattoRitardo(R,A,Ini,Fin)
      Next
      For A = 1 To 89
         For B = A + 1 To 90
            R_A(A,B) = AmboRitardo(R,A,B,Ini,Fin)
         Next
      Next
      For A = 1 To 89
         For B = A + 1 To 90
            If R_A(A,B) >= L Then
               If R_E(A) = R_A(A,B) Then
                  If R_E(B) = R_A(A,B)Then
                     Scrivi SiglaRuota(R) & " " & Format2(A) & "." & Format2(B) & " RC " & R_E(A)
                  End If
               End If
            End If
         Next
      Next
   Next
  Scrivi
  Scrivi "Agg. al " & DataEstrazione(Fin,,,"/")
End Sub

Grazie Joe