PER MIKE58 O JOE91

[trivellatomariotretre33]

INNANZITUTTO UN SALUTO X TUTTO IL FORUM IN PARTICOLARE A MIKE E JOE MI SERVIREBBE UNO SCRIPT CHE MI SEGNALI
IL RITARDO STORICO DI TUTTI GLI AMBI X OGNI RUOTA MA CHE NON OLTREPASSI LO STORICO (MA QUANDO STA PER AVVICINARSI ALLO STORICO) GRAZIE ANTICIPATAMENTE.

 

[Joe91]

Ciao Trivellato ...

non so se non sai che scrivere un messaggio tutto in maiuscolo è sinonimo di ...

Comunque sia, di tanto in tanto s'ha di queste richieste, scritte ... così.

Dunque ti sconsiglio vivamente tale approccio anche se poi ... è comune.

E ... occorre CONTROLLARE che funzioni correttamente, perchè è scritto al volo.

Option Explicit
Sub Main
Dim R,N,M,L
Dim Ini,Fin
Dim Ru(1),Nu(2)
Dim SR,SS,RP
Ini = 1 : Fin = EstrazioneFin
L = 99/100
For R = 1 To 12 : Ru(1) = R
Messaggio NomeRuota(R)
AvanzamentoElab 1,12,R
For N = 1 To 89
For M = N + 1 To 90
Nu(1) = N : Nu(2) = M
SR = SerieRitardoTurbo(Ini,Fin,Nu,Ru,2)
SS = SerieStoricoTurbo(Ini,Fin,Nu,Ru,2)
RP = SR/SS
If RP > L And RP < 1 Then
Scrivi FormattaStringa(Round(RP,3)*100,"00.0") & "%  " & SiglaRuota(R) & " ",False,False
Scrivi StringaNumeri(Nu,,True) & " Rc" & FormatSpace(SR,5,True)
End If
Next
Next
Scrivi
Next
End Sub

 

[trivellatomariotretre33]

GRAZIE JOE91 QUELLO CHE VOLEVO OTTIMO