Alien.
Advanced Premium Member
CIAO joe puoi inserire l'archivio 10elotto in questo tuo script, grazie.
| Option Explicit |
| Sub Main |
| 'Presenze nei 10 Colpi dopo Indice Mensile |
| 'V.1 Script By Joe |
| Dim Ini,Fin,Es |
| Dim R,I,Q,K |
| Dim F,N,NU(1),P(90),RU(1),M |
| R = NZ_ |
| I = Int(InputBox("Quale ?","INDICE MENSILE",1)) |
| Q = 10 ' Estrazioni Controllate |
| RU(1) = R |
| Ini = EstrazioneIni : Fin = EstrazioneFin |
| For Es = Ini To Fin |
| AvanzamentoElab Ini,Fin,Es |
| If IndiceMensile(Es) = I Then |
| For N = 1 To 90 |
| NU(1) = N |
| P(N) = P(N) + SerieFreq(Es + 1,Es + Q,NU,RU,1) |
| If P(N) > M Then M = P(N) |
| Next |
| End If |
| Next |
| For F = M To 0 Step - 1 |
| For N = 1 To 90 |
| If P(N) = F Then |
| K = K + 1 |
| Scrivi "N° " & Format2(N) & Space(2) & FormatSpace(F,4) & Space(1) & "Pres." |
| End If |
| Next |
