x rubino O CHI VUOLE

[solare]

ciao, Allego questo listato messo da beppignello.
Potresti inserire la possibilità della selezione periodica ossia Mensili ?
oltre alla possibilità di selezionare il periodo di elaborazione
Grazie

Option Explicit
Sub Main
   ''''2.3.6.17.19.20.21.22.27.28.29.34.39.61.67.78.82.85.87.88
   Dim es,fine,r,retfre,classei,classef,qt,nsorte
   Dim anum(90)
   r = InputBox("Ruota",,1)
   fine = InputBox("Estraz.n.",,EstrazioneFin)
   nsorte = InputBox("Sorte ",,2)
   classei = InputBox("Classe ini",,20)
   classef = InputBox("Classe fin",,16)
   qt = ScegliNumeri(anum)
   '''
   Scrivi "Ruota di " & NomeRuota(r)
   Scrivi "Estraz.n." & fine & " / " & DataEstrazione(fine)
   Scrivi
   Call Integrale(anum,classef,classei,nsorte,r,fine)
End Sub
Function Integrale(ANUM,Classei,classef,nsorte,r,fine)
   Dim coltot,i,acol,aretritardi,aretidestr,freale,frealeini,cl,hh,qtn
   Dim rt(1)
   rt(1) = r
   '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
   Call ElencoRitardiTurbo(ANUM,rt,nsorte,3950,fine,aretritardi,aretidestr)
   frealeini = UBound(aretritardi)
   ColoreTesto(1)
   Scrivi "Sviluppo in Classe..." & classef,1
   Scrivi "Comb.Iniziale " & StringaNumeri(ANUM,".") & "   Freq." & frealeini,1
   ColoreTesto(0)
   '''''''S V I L U P P O    I N T E G R A L E   classe a decrescere
   For cl = 1 To classef - Classei
   ReDim rie(99999,2)
   Classei = classef - cl
   Scrivi
   ColoreTesto(1)
   Scrivi "Sviluppo In classe..." & Classei,1
   ColoreTesto(0)
   coltot = InitSviluppoIntegrale(ANUM,Classei)
   If coltot > 0 Then
      Do While GetCombSviluppo(acol) = True
         i = i + 1
         Call AvanzamentoElab(1,coltot,i)
         Call Messaggio("Colonna " & i)
         If ScriptInterrotto Then Exit Do
         Call ElencoRitardiTurbo(acol,rt,nsorte,3950,fine,aretritardi,aretidestr)
         freale = UBound(aretritardi)
          rie(i,1) = freale
          rie(i,2) = StringaNumeri(acol," ")
      Loop
      Call OrdinaMatrice(rie,- 1,1)
      Scrivi "---Miglior freq." & rie(1,1) & "   Comb." & rie(1,2),1
      '''sostituisci anum con nuova comb.
         ReDim av(90),ANUM(90)
         Call SplitByChar(rie(1,2)," ",av)
         qtn = UBound(av)
         For hh = 0 To qtn
            ANUM(hh + 1) = av(hh)
         Next
    End If
   Next
End Function

 

[trivellato]

SALVE CONCORDO PIENAMENTE LA RICHIESTA DI SOLARE GRAZIE