Auguri di buon Natale

Option Explicit
'Ritardo di Posizione capolista ruota - Cinzia27 [19.12.2021]
'Riadattato da Gam per Spaziometria
Sub Main()

Dim n(1),ru(1),LivArch
Dim Ini,Fin,q,r,es,co,a,x,rt,comax,Stringa

LivArch = 0
Scrivi " I più ritardatari su ruota (Cinzia)"

Fin = EstrazioneFin
Ini = Fin - 50
q = Int(InputBox(" Quanti ritardatari vuoi visualizzare ?",,1))
If q = "" Then Exit Sub

For r = 1 To 12
If r = 11 Then r = 12
ru(1) = r
Scrivi String(35,"*")
co = 0
comax = 0
For es = Ini To Fin
If ScriptInterrotto Then Exit Sub
Messaggio("In elaborazione la Ruota di " & NomeRuota(r))
Call AvanzamentoElab(Ini,Fin,es)
co = co + 1
Scrivi FormatSpace(es,5,1) & " " & DataEstrazione(es) & " " & SiglaRuota(r) & " ",,0

For x = 1 To q
a = NumeroPosRit(es - 1,r,x,LivArch)
n(1) = a
If Posizione(es,r,a,LivArch) > 0 Then

ColoreTesto 2
Scrivi Format2(a),1,0
Scrivi " RC " & FormattaStringa(RitardoEstrattoTurbo(a,es - 1,r,,,LivArch),"000") & " ",,0
comax = co
co = 0
Else
ColoreTesto 0
rt = SerieRitardo(1,es - 1,n,ru,1,,,LivArch)
Scrivi Format2(n(1)) & " ",1,0
Scrivi "RC " & FormattaStringa(rt + 1,"000") & " ",0,0
ColoreTesto 0
End If
ColoreTesto 0

Next


If co > 0 Then
Scrivi "RP " & FormattaStringa(co,"000")
comax = 0
Else Scrivi "RP " & FormattaStringa(comax,"000")'""
End If
Next
Next
Scrivi TempoTrascorso
End Sub