|
|
| Ciao, Miki55@. Ti ho messo lo script anche in privato. Ma ora che vedo questa tabella non credo di aver capito. Ad ogni modo, ecco lo script. 'Estratto in sincronismo continuo che ha superato ritardo scelto - storico e attuale (Cinzia)
Sub main()
Dim n(1),ru(1)
w=18' Qui è possibile modificare il ritardo
For es=2 To EstrazioneFin' iniziare almeno dall' estrazione n. 2
For r=1 To 10
ru(1)=r
If Estratto(es-1,r,1)>0 Then
If Estratto(es,r,1)>0 Then
For p=1 To 5
a=Estratto(es-1,r,p)
For p1=1 To 5
a1=Estratto(es,r,p1)
If a=a1 Then
n(1)=a
s=SeriePrima(es+1,EstrazioneFin,n,ru,1)
If s>0 Then
st=s-es
If st>w Then
If st>mx Then mx=st
casi=casi+1
Scrivi FormatSpace(es-1,4,1)&" "&siglaruota(r)&" "&format2(n(1))&" "&FormatSpace(es,4,1)&" "&siglaruota(r)&" "&format2(n(1))&" st "&FormatSpace(st,4,1)
End If
Else
If s=0 Then
at=EstrazioneFin-es
If at>w Then
If at>mx1 Then mx1=at
casi1=casi1+1
ColoreTesto 1
Scrivi FormatSpace(es-1,4,1)&" "&siglaruota(r)&" "&format2(n(1))&" "&FormatSpace(es,4,1)&" "&siglaruota(r)&" "&format2(n(1))&" at "&FormatSpace(at,4,1)
ColoreTesto 0
End If
End If
End If
End If
Next
Next
End If
End If
Next
Next
Scrivi
Scrivi "Casi storici con ritardo > a "&w&" = "&casi
Scrivi "Il massimo ritardo storico è di "&mx
Scrivi
Scrivi "Casi attuali con ritardo > a "&w&" = "&casi1
Scrivi "Il massimo ritardo attuale è di "&mx1
Scrivi
End Sub |
| | |
