Novità

xmike un piccolo aiuto

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)=5:poste(2)=5:post(2)=4:post(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
 
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
 

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 11 luglio 2025
    Bari
    39
    28
    27
    01
    80
    Cagliari
    54
    79
    69
    43
    61
    Firenze
    62
    60
    86
    80
    05
    Genova
    45
    10
    42
    79
    84
    Milano
    28
    59
    23
    46
    11
    Napoli
    01
    55
    52
    50
    39
    Palermo
    75
    17
    74
    82
    54
    Roma
    38
    13
    79
    25
    44
    Torino
    68
    29
    26
    40
    06
    Venezia
    46
    84
    64
    27
    67
    Nazionale
    72
    77
    46
    61
    23
    Estrazione Simbolotto
    Nazionale
    12
    34
    36
    10
    39

Ultimi Messaggi

Indietro
Alto