xmike un piccolo aiuto

[Rafele ‘o Ruoss’]

Ciao @Mike58
ho bisogno di modificare la data di calcolo di questo script che conteggia fino al 26/9
questa è la parte:
grazie

Sub Main()
Dim nu1(3),nu2(2),nu3(3),ruote(2),ruota(1)
Dim posta(1),poste(2),post(3)
Dim ce,n1,n2,n3,n4,n5,n6,n7,n8,k,ini,fin,es,r1,r2,p1,p2,p3,p4,a,b,a1,a2,c,d,casi,co
posta(1)=5oste(2)=5ost(2)=4ost(3)=1
ce=InputBox("da quale estrazione vuoi controllare? ","estrazione",10150)
k=InputBox ("per quanti colpi?","colpi di gioco",9)
Ini = ce
Fin = 50
Scrivi " X Gabriele Catalano ",1
Scrivi String(73,"="),1
Scrivi "Resoconto da "&DataEstrazione(ini,1)&" a "&_
DataEstrazione(fin,1)&" ("&(fin-ce)&" estr.)"
For es=ini To EstrazioneFin
Messaggio "elab. estr. ["&(es)&"] di "&DataEstrazione (es,1)
For r1=1 To 9
For p1=1 To 4
For p2=p1+1 To 5
a=Estratto (es,r1,p1)
b=Estratto (es,r1,p2)
a1=Fuori90(a+b)
For r2=r1+1 To 10

 

[Mike58]

Rafele, a parte che è sempre meglio mettere tutto lo script per valutare in toto la lettura.
Poi avevo visto la stessa richiesta con script integrale su altro forum, copiandolo ed eseguendo lo script ed anche dopo lettura non trovo nessun errore e solo che non c'è la condizione voluta nello script nelle ultime estrazioni.
Pertanto ti ritrovi l'ultima condizione valida alla data
================================================================================ caso n 80
26.09.2023 < MI 68.74.08.73.72 > Ambo <08.73> Dist <25> Somme Or <81> Ver <61> Dia <81>
26.09.2023 < VE 30.87.53.73.42 > Ambo <53.73> Dist <20> Somme Or <36> Ver <56> Dia <36>
------------------------------------------------------------------------------------------
Ciao