Novità

Indici mensili

ciao a tutti

x Marco elle ,ho visionato la tua proposta ,e siccome due elementi b e c dell'agoritmo hanno continuato a dare esito
se ti era possibile ,volevo chiederti di cambiare la quartina in sestina oppure ottina e ricalcolarla al martedi ultimo scorso.
in pratica la pappa pronta. a buon intenditor........
buon week end a tutti.
 
aldinobis ha scritto:
ciao a tutti

x Marco elle ,ho visionato la tua proposta ,e siccome due elementi b e c dell'agoritmo hanno continuato a dare esito
se ti era possibile ,volevo chiederti di cambiare la quartina in sestina oppure ottina e ricalcolarla al martedi ultimo scorso.
in pratica la pappa pronta. a buon intenditor........
buon week end a tutti.
Clicca per espandere...
Ciao,
ho aggiornato gli algoritmi e ora si può scegliere con il Cintbox
quale giorno della settimana usare
Codice: 
Sub Main()
   Dim posta(5),poste(5),postee(5),posteee(5)
   Dim ruota(5),ruote(5)
   Dim n(6)
   Dim x
   posta(2) = 1
   cp = CInt(InputBox(" Scrivi 1 Martedi 2 Giovedi 3 Venerdi 4 Sabato"," ",1))
   k = CInt(InputBox(" Colpi di Gioco"," ",10))
   For Es = EstrazioneFin - 60 To EstrazioneFin
      If(Sabato(Es)And cp = 4)Or(Venerdi(Es)And cp = 3)Or(Giovedi(Es)And cp = 2)Or(Martedi(Es)And cp = 1)Then
         For x = 1 To 6
            n(x) = 0
         Next
         Scrivi
         Scrivi DataEstrazione(Es),1
         co = 0
         ok = 0
         If(Martedi(Es)And cp = 1)Then
            n(1) = Fuori90(90 +(Estratto(es,5,5)) - Estratto(es,4,4) + 45)
            n(2) = Fuori90(90 +(Estratto(es,1,3)) - Estratto(es,2,1) + 55)
            n(3) = Fuori90(Estratto(es,5,4) + Estratto(es,6,3) + 20)
            n(4) = Fuori90(Estratto(es,1,1) + Estratto(es,2,1) + 1)
            ok = 1
         End If
         If(Giovedi(Es)And cp = 2)Then
            n(1) = Fuori90(Estratto(es,3,2) + Estratto(es,9,4) + 55)
            n(2) = Fuori90(90 +(Estratto(es,7,1)) - Estratto(es,2,2) + 36)
            n(3) = Fuori90(90 +(Estratto(es,7,3)) - Estratto(es,9,2) + 37)
            n(4) = Fuori90(Estratto(es,1,5) + Estratto(es,7,5) + 1)
            ok = 1
         End If
         If(Venerdi(Es)And cp = 3)Then
            n(1) = Fuori90(Estratto(es,4,1) + Estratto(es,12,4) + 14)
            n(2) = Fuori90(90 +(Estratto(es,7,5)) - Estratto(es,2,1) + 87)
            n(3) = Fuori90(90 +(Estratto(es,2,4)) - Estratto(es,10,5) + 85)
            n(4) = Fuori90(Estratto(es,1,1) + Estratto(es,1,4) + 1)
            ok = 1
         End If
         If(Sabato(Es)And cp = 4)Then
            n(1) = Fuori90(Estratto(es,4,5) + Estratto(es,5,5) + 19)
            n(2) = Fuori90(Estratto(es,1,5) + Estratto(es,9,5) + 29)
            n(3) = Fuori90(Estratto(es,1,2) + Estratto(es,6,4) + 43)
            n(4) = Fuori90(Estratto(es,4,1) + Estratto(es,12,4) + 9)
            ok = 1
         End If
         ruote(1) = 1
         If co = co + 1 Then
         End If
         ImpostaGiocata 1,n,ruote,posta,k
         Gioca es,1
      End If
   Next
   ScriviResoconto,0
End Sub
Function Martedi(Es)
   Martedi = False
   Data = Replace(DataEstrazione(Es),".","/")
   Joe = Day(Data) : Mes = Month(Data) : Ann = Year(Data)
   Data = Format2(Joe) & "/" & Format2(Mes) & "/" & Ann
   If WeekDay(Data) = vbTuesday Then Martedi = True
End Function
Function Giovedi(Es)
   Giovedi = False
   Data = Replace(DataEstrazione(Es),".","/")
   Joe = Day(Data) : Mes = Month(Data) : Ann = Year(Data)
   Data = Format2(Joe) & "/" & Format2(Mes) & "/" & Ann
   If WeekDay(Data) = vbThursday Then Giovedi = True
End Function
Function Venerdi(Es)
   Venerdi = False
   Data = Replace(DataEstrazione(Es),".","/")
   Joe = Day(Data) : Mes = Month(Data) : Ann = Year(Data)
   Data = Format2(Joe) & "/" & Format2(Mes) & "/" & Ann
   If WeekDay(Data) = vbFriday Then Venerdi = True
End Function
Function Sabato(Es)
   Sabato = False
   Data = Replace(DataEstrazione(Es),".","/")
   Joe = Day(Data) : Mes = Month(Data) : Ann = Year(Data)
   Data = Format2(Joe) & "/" & Format2(Mes) & "/" & Ann
   If WeekDay(Data) = vbSaturday Then Sabato = True
End Function
 
Ci tengo a ringraziare alcuni Guru del VB script Joe,Mike58,Salvo50,Einplein
e scusate se,,,non mensiono altri per dimenticanza ma....in questo settore
sono encomiabiali e riescono a trovare sempre il modo di trasformare in scrittura
un evento,Io,sono un RE nel rubare e fare il copia-incolla e ne sono grato....
grazie ancora🙏
 
Marco-elle ha scritto:
Ci tengo a ringraziare alcuni Guru del VB script Joe,Mike58,Salvo50,Einplein
e scusate se,,,non mensiono altri per dimenticanza ma....in questo settore
sono encomiabiali e riescono a trovare sempre il modo di trasformare in scrittura
un evento,Io,sono un RE nel rubare e fare il copia-incolla e ne sono grato....
grazie ancora🙏
Clicca per espandere...

hi hi hi, allora siamo in due a essere RE del copia e incolla...:ROFLMAO::ROFLMAO::ROFLMAO:

ti sei scordato del Re dei Re.......LuigiB:love:
 
Marco-elle ha scritto:
Ciao,
ho aggiornato gli algoritmi e ora si può scegliere con il Cintbox
quale giorno della settimana usare
Codice: 
Sub Main()
   Dim posta(5),poste(5),postee(5),posteee(5)
   Dim ruota(5),ruote(5)
   Dim n(6)
   Dim x
   posta(2) = 1
   cp = CInt(InputBox(" Scrivi 1 Martedi 2 Giovedi 3 Venerdi 4 Sabato"," ",1))
   k = CInt(InputBox(" Colpi di Gioco"," ",10))
   For Es = EstrazioneFin - 60 To EstrazioneFin
      If(Sabato(Es)And cp = 4)Or(Venerdi(Es)And cp = 3)Or(Giovedi(Es)And cp = 2)Or(Martedi(Es)And cp = 1)Then
         For x = 1 To 6
            n(x) = 0
         Next
         Scrivi
         Scrivi DataEstrazione(Es),1
         co = 0
         ok = 0
         If(Martedi(Es)And cp = 1)Then
            n(1) = Fuori90(90 +(Estratto(es,5,5)) - Estratto(es,4,4) + 45)
            n(2) = Fuori90(90 +(Estratto(es,1,3)) - Estratto(es,2,1) + 55)
            n(3) = Fuori90(Estratto(es,5,4) + Estratto(es,6,3) + 20)
            n(4) = Fuori90(Estratto(es,1,1) + Estratto(es,2,1) + 1)
            ok = 1
         End If
         If(Giovedi(Es)And cp = 2)Then
            n(1) = Fuori90(Estratto(es,3,2) + Estratto(es,9,4) + 55)
            n(2) = Fuori90(90 +(Estratto(es,7,1)) - Estratto(es,2,2) + 36)
            n(3) = Fuori90(90 +(Estratto(es,7,3)) - Estratto(es,9,2) + 37)
            n(4) = Fuori90(Estratto(es,1,5) + Estratto(es,7,5) + 1)
            ok = 1
         End If
         If(Venerdi(Es)And cp = 3)Then
            n(1) = Fuori90(Estratto(es,4,1) + Estratto(es,12,4) + 14)
            n(2) = Fuori90(90 +(Estratto(es,7,5)) - Estratto(es,2,1) + 87)
            n(3) = Fuori90(90 +(Estratto(es,2,4)) - Estratto(es,10,5) + 85)
            n(4) = Fuori90(Estratto(es,1,1) + Estratto(es,1,4) + 1)
            ok = 1
         End If
         If(Sabato(Es)And cp = 4)Then
            n(1) = Fuori90(Estratto(es,4,5) + Estratto(es,5,5) + 19)
            n(2) = Fuori90(Estratto(es,1,5) + Estratto(es,9,5) + 29)
            n(3) = Fuori90(Estratto(es,1,2) + Estratto(es,6,4) + 43)
            n(4) = Fuori90(Estratto(es,4,1) + Estratto(es,12,4) + 9)
            ok = 1
         End If
         ruote(1) = 1
         If co = co + 1 Then
         End If
         ImpostaGiocata 1,n,ruote,posta,k
         Gioca es,1
      End If
   Next
   ScriviResoconto,0
End Sub
Function Martedi(Es)
   Martedi = False
   Data = Replace(DataEstrazione(Es),".","/")
   Joe = Day(Data) : Mes = Month(Data) : Ann = Year(Data)
   Data = Format2(Joe) & "/" & Format2(Mes) & "/" & Ann
   If WeekDay(Data) = vbTuesday Then Martedi = True
End Function
Function Giovedi(Es)
   Giovedi = False
   Data = Replace(DataEstrazione(Es),".","/")
   Joe = Day(Data) : Mes = Month(Data) : Ann = Year(Data)
   Data = Format2(Joe) & "/" & Format2(Mes) & "/" & Ann
   If WeekDay(Data) = vbThursday Then Giovedi = True
End Function
Function Venerdi(Es)
   Venerdi = False
   Data = Replace(DataEstrazione(Es),".","/")
   Joe = Day(Data) : Mes = Month(Data) : Ann = Year(Data)
   Data = Format2(Joe) & "/" & Format2(Mes) & "/" & Ann
   If WeekDay(Data) = vbFriday Then Venerdi = True
End Function
Function Sabato(Es)
   Sabato = False
   Data = Replace(DataEstrazione(Es),".","/")
   Joe = Day(Data) : Mes = Month(Data) : Ann = Year(Data)
   Data = Format2(Joe) & "/" & Format2(Mes) & "/" & Ann
   If WeekDay(Data) = vbSaturday Then Sabato = True
End Function
Clicca per espandere...
Con l'ultimo aggiornamento,la previsione ricavata giovedi paga l'ambo
in quartina 60-74 al 2° colpo ovviamente è una frequenza temporanea ma......carpediem!
PS:
click the number two on the cintbox
Codice: 
22.02.2024
Estrazione generatrice del pronostico 10392 [ 30 - 22/02/2024]
G 0001 Numeri in gioco : 04.76.18.44 su BA per Ambo
V N. [04.76.18.44                   ] [BA]     [76 04 .. .. ..] C.   2 Ambo       10394 [ 32 - 24/02/2024]
Interrotta per raggiunta durata


29.02.2024
Estrazione generatrice del pronostico 10396 [ 34 - 29/02/2024]
G 0001 Numeri in gioco : 39.70.87.20 su BA per Ambo
V N. [39.70.87.20                   ] [BA]     [.. .. 87 39 ..] C.  10 Ambo       10406 [ 44 - 16/03/2024]
Interrotta per raggiunta durata


07.03.2024
Estrazione generatrice del pronostico 10400 [ 38 - 07/03/2024]
G 0001 Numeri in gioco : 86.32.84.23 su BA per Ambo
Interrotta per raggiunta durata


14.03.2024
Estrazione generatrice del pronostico 10404 [ 42 - 14/03/2024]
G 0001 Numeri in gioco : 88.87.89.40 su BA per Ambo
V N. [88.87.89.40                   ] [BA]     [.. .. .. 89 87] C.   1 Ambo       10405 [ 43 - 15/03/2024]
Interrotta per raggiunta durata


21.03.2024
Estrazione generatrice del pronostico 10408 [ 46 - 21/03/2024]
G 0001 Numeri in gioco : 72.49.30.47 su BA per Ambo
V N. [72.49.30.47                   ] [BA]     [.. .. 30 72 ..] C.   9 Ambo       10417 [ 55 - 06/04/2024]
Interrotta per raggiunta durata


28.03.2024
Estrazione generatrice del pronostico 10411 [ 49 - 28/03/2024]
G 0001 Numeri in gioco : 66.54.80.82 su BA per Ambo
V N. [66.54.80.82                   ] [BA]     [.. .. 82 .. 66] C.   3 Ambo       10414 [ 52 - 02/04/2024]
V N. [66.54.80.82                   ] [BA]     [.. .. 82 54 ..] C.  10 Ambo       10421 [ 59 - 13/04/2024]
Interrotta per raggiunta durata


04.04.2024
Estrazione generatrice del pronostico 10415 [ 53 - 04/04/2024]
G 0001 Numeri in gioco : 73.71.28.39 su BA per Ambo
V N. [73.71.28.39                   ] [BA]     [39 .. .. .. 73] C.   9 Ambo       10424 [ 62 - 19/04/2024]
Interrotta per raggiunta durata


11.04.2024
Estrazione generatrice del pronostico 10419 [ 57 - 11/04/2024]
G 0001 Numeri in gioco : 74.34.33.57 su BA per Ambo
V N. [74.34.33.57                   ] [BA]     [.. 74 34 .. ..] C.   9 Ambo       10428 [ 66 - 27/04/2024]
Interrotta per raggiunta durata


18.04.2024
Estrazione generatrice del pronostico 10423 [ 61 - 18/04/2024]
G 0001 Numeri in gioco : 82.21.31.01 su BA per Ambo
V N. [82.21.31.01                   ] [BA]     [.. 31 .. .. 21] C.  10 Ambo       10433 [ 71 - 04/05/2024]
Interrotta per raggiunta durata


02.05.2024
Estrazione generatrice del pronostico 10431 [ 69 - 02/05/2024]
G 0001 Numeri in gioco : 34.50.90.53 su BA per Ambo
V N. [34.50.90.53                   ] [BA]     [34 50 .. .. ..] C.   7 Ambo       10438 [ 76 - 14/05/2024]
Interrotta per raggiunta durata


09.05.2024
Estrazione generatrice del pronostico 10435 [ 73 - 09/05/2024]
G 0001 Numeri in gioco : 65.08.50.07 su BA per Ambo
V N. [65.08.50.07                   ] [BA]     [.. 50 65 .. ..] C.   3 Ambo       10438 [ 76 - 14/05/2024]
Interrotta per raggiunta durata


16.05.2024
Estrazione generatrice del pronostico 10439 [ 77 - 16/05/2024]
G 0001 Numeri in gioco : 05.84.60.72 su BA per Ambo
V N. [05.84.60.72                   ] [BA]     [84 05 .. .. ..] C.   5 Ambo       10444 [ 82 - 24/05/2024]
Interrotta per raggiunta durata


23.05.2024
Estrazione generatrice del pronostico 10443 [ 81 - 23/05/2024]
G 0001 Numeri in gioco : 84.05.24.52 su BA per Ambo
V N. [84.05.24.52                   ] [BA]     [84 05 .. .. ..] C.   1 Ambo       10444 [ 82 - 24/05/2024]

In corso per altre 4 estrazioni

30.05.2024
Estrazione generatrice del pronostico 10447 [ 85 - 30/05/2024]
G 0001 Numeri in gioco : 60.16.74.18 su BA per Ambo
V N. [60.16.74.18                   ] [BA]     [.. 60 74 .. ..] C.   2 Ambo       10449 [ 87 - 01/06/2024]

In corso per altre 8 estrazioni
+----------------------------------------+
| Prima Giocata      : 10392             |
| Ultima Giocata     : 10447             |
| Range              : 56                |
| Casi giocab perc.  : 25%               |
+----------------------------------------+ +----------------------------------+ +----------------------------------+ +----------------------------------+
|               RESOCONTO                | |       DISTRIBUZIONE ESITI        | | DISTRIBUZIONE ESITI PERCENTUALI  | |        DISTRIBUZIONE CASI        |
+----------------------------------------+ +----------------------------------+ +----------------------------------+ +----------------------------------+
| Casi esaminati     :               14  | | RT | Est | Amb | Ter | Qua | Cin | | RT | Est | Amb | Ter | Qua | Cin | | RT |  Q  |                       |
| Casi vincenti      :               13  | +----------------------------------+ +----------------------------------+ +----------------------------------+
| Percentuale pos.   :          92,86 %  | | BA |     |   14|     |     |     | | BA |     |  100|     |     |     | | BA |   14|                       |
| Pronostici totali  :               14  | | CA |     |     |     |     |     | | CA |     |     |     |     |     | | CA |     |                       |
| Pronostici vinc.   :               13  | | FI |     |     |     |     |     | | FI |     |     |     |     |     | | FI |     |                       |
| Percentuale pos.   :          92,86 %  | | GE |     |     |     |     |     | | GE |     |     |     |     |     | | GE |     |                       |
| Giocate in corso   :                2  | | MI |     |     |     |     |     | | MI |     |     |     |     |     | | MI |     |                       |
| Giocate terminate  :               12  | | NA |     |     |     |     |     | | NA |     |     |     |     |     | | NA |     |                       |
| Bollette giocate   :              128  | | PA |     |     |     |     |     | | PA |     |     |     |     |     | | PA |     |                       |
| Bollette vincenti  :               14  | | RO |     |     |     |     |     | | RO |     |     |     |     |     | | RO |     |                       |
| Attesa media       :                5  | | TO |     |     |     |     |     | | TO |     |     |     |     |     | | TO |     |                       |
| Spesa              :         128,00    | | VE |     |     |     |     |     | | VE |     |     |     |     |     | | VE |     |                       |
| Vincita            :         547,46    | | NZ |     |     |     |     |     | | NZ |     |     |     |     |     | | NZ |     |                       |
| Guadagno           :         419,46    | | TT |     |     |     |     |     | | TT |     |     |     |     |     | | TT |     |                       |
| Perc. Rendimento   :          327,7 %  | +----------------------------------+ +----------------------------------+ +----------------------------------+
| Mass. Esposizione  :          20,00    | 
| Estratto su ruota  :               28  |                                                                                                             
| Ambo su ruota      :               14  |                                                                                                             
|                                        |                                                                                                             
+----------------------------------------+
 
Ultima modifica:
grazie Marco -elle

aspetto l'estrazione di martedi prossimo per vedere che quartina esce fuori

buona domenica a tutti
 
aldinobis ha scritto:
grazie Marco -elle

aspetto l'estrazione di martedi prossimo per vedere che quartina esce fuori

buona domenica a tutti
Clicca per espandere...
Questo è un aggiornamento x ambata e 2 abbinamenti
sempre con la scelta del giorno estrazionale
Codice: 
Sub Main()
   Dim posta(5),poste(5),postee(5),posteee(5)
   Dim ruota(5),ruote(5)
   Dim n(1),n1(2),n2(2)
   Dim x
   posta(1) = 1
   poste(2) = 1
   cp = CInt(InputBox(" Scrivi 1 Martedi 2 Giovedi 3 Venerdi 4 Sabato"," ",1))
   k = CInt(InputBox(" Colpi di Gioco"," ",7))
   For Es = EstrazioneFin - 41 To EstrazioneFin
      If(Sabato(Es)And cp = 4)Or(Venerdi(Es)And cp = 3)Or(Giovedi(Es)And cp = 2)Or(Martedi(Es)And cp = 1)Then
         For x = 1 To 1
            n(x) = 0
         Next
         For x = 1 To 2
            n1(x) = 0
         Next
         For x = 1 To 2
            n2(x) = 0
         Next
         Scrivi
         Scrivi DataEstrazione(Es),1
         co = 0
         ok = 0
         If(Martedi(Es)And cp = 1)Then
            n(1) = Fuori90(Estratto(es,3,3) + Estratto(es,12,2) + 34)
            n1(1) = Fuori90(Estratto(es,3,3) + Estratto(es,12,2) + 34)
            n1(2) = Fuori90(Estratto(es,2,2) * Estratto(es,4,4) + 68)
            n2(1) = Fuori90(Estratto(es,3,3) + Estratto(es,12,2) + 34)
            n2(2) = Fuori90(90 +(Estratto(es,2,2)) - Estratto(es,9,2) + 7)
            ok = 1
         End If
         If(Giovedi(Es)And cp = 2)Then
            n(1) = Fuori90(Estratto(es,7,2) + Estratto(es,10,2) + 89)
            n1(1) = Fuori90(Estratto(es,7,2) + Estratto(es,10,2) + 89)
            n1(2) = Fuori90(Estratto(es,5,5) + Estratto(es,6,1) + 76)
            n2(1) = Fuori90(Estratto(es,7,2) + Estratto(es,10,2) + 89)
            n2(2) = Fuori90(90 +(Estratto(es,2,2)) - Estratto(es,1,5) + 52)
            ok = 1
         End If
         If(Venerdi(Es)And cp = 3)Then
            n(1) = Fuori90(Estratto(es,9,3) + Estratto(es,10,5) + 6)
            n1(1) = Fuori90(Estratto(es,9,3) + Estratto(es,10,5) + 6)
            n1(2) = Fuori90(Estratto(es,2,4) + Estratto(es,9,4) + 15)
            n2(1) = Fuori90(Estratto(es,9,3) + Estratto(es,10,5) + 6)
            n2(2) = Fuori90(Estratto(es,2,3) + Estratto(es,6,2) + 54)
            ok = 1
         End If
         If(Sabato(Es)And cp = 4)Then
            n(1) = Fuori90(Estratto(es,7,3) * Estratto(es,10,5) + 82)
            n1(1) = Fuori90(Estratto(es,7,3) * Estratto(es,10,5) + 82)
            n1(2) = Fuori90(Estratto(es,4,1) + Estratto(es,8,4) + 88)
            n2(1) = Fuori90(Estratto(es,7,3) * Estratto(es,10,5) + 82)
            n2(2) = Fuori90(Estratto(es,2,3) + Estratto(es,12,2) + 21)
            ok = 1
         End If
         ruote(1) = 1
         If co = co + 1 Then
         End If
         ImpostaGiocata 1,n,ruote,posta,k
         ImpostaGiocata 2,n1,ruote,poste,k
         ImpostaGiocata 3,n2,ruote,poste,k
         Gioca es,1
      End If
   Next
   ScriviResoconto,0
End Sub
Function Martedi(Es)
   Martedi = False
   Data = Replace(DataEstrazione(Es),".","/")
   Joe = Day(Data) : Mes = Month(Data) : Ann = Year(Data)
   Data = Format2(Joe) & "/" & Format2(Mes) & "/" & Ann
   If WeekDay(Data) = vbTuesday Then Martedi = True
End Function
Function Giovedi(Es)
   Giovedi = False
   Data = Replace(DataEstrazione(Es),".","/")
   Joe = Day(Data) : Mes = Month(Data) : Ann = Year(Data)
   Data = Format2(Joe) & "/" & Format2(Mes) & "/" & Ann
   If WeekDay(Data) = vbThursday Then Giovedi = True
End Function
Function Venerdi(Es)
   Venerdi = False
   Data = Replace(DataEstrazione(Es),".","/")
   Joe = Day(Data) : Mes = Month(Data) : Ann = Year(Data)
   Data = Format2(Joe) & "/" & Format2(Mes) & "/" & Ann
   If WeekDay(Data) = vbFriday Then Venerdi = True
End Function
Function Sabato(Es)
   Sabato = False
   Data = Replace(DataEstrazione(Es),".","/")
   Joe = Day(Data) : Mes = Month(Data) : Ann = Year(Data)
   Data = Format2(Joe) & "/" & Format2(Mes) & "/" & Ann
   If WeekDay(Data) = vbSaturday Then Sabato = True
End Function
 
Marco-elle ha scritto:
Ciao,
ho aggiornato gli algoritmi e ora si può scegliere con il Cintbox
quale giorno della settimana usare
Codice: 
Sub Main()
   Dim posta(5),poste(5),postee(5),posteee(5)
   Dim ruota(5),ruote(5)
   Dim n(6)
   Dim x
   posta(2) = 1
   cp = CInt(InputBox(" Scrivi 1 Martedi 2 Giovedi 3 Venerdi 4 Sabato"," ",1))
   k = CInt(InputBox(" Colpi di Gioco"," ",10))
   For Es = EstrazioneFin - 60 To EstrazioneFin
      If(Sabato(Es)And cp = 4)Or(Venerdi(Es)And cp = 3)Or(Giovedi(Es)And cp = 2)Or(Martedi(Es)And cp = 1)Then
         For x = 1 To 6
            n(x) = 0
         Next
         Scrivi
         Scrivi DataEstrazione(Es),1
         co = 0
         ok = 0
         If(Martedi(Es)And cp = 1)Then
            n(1) = Fuori90(90 +(Estratto(es,5,5)) - Estratto(es,4,4) + 45)
            n(2) = Fuori90(90 +(Estratto(es,1,3)) - Estratto(es,2,1) + 55)
            n(3) = Fuori90(Estratto(es,5,4) + Estratto(es,6,3) + 20)
            n(4) = Fuori90(Estratto(es,1,1) + Estratto(es,2,1) + 1)
            ok = 1
         End If
         If(Giovedi(Es)And cp = 2)Then
            n(1) = Fuori90(Estratto(es,3,2) + Estratto(es,9,4) + 55)
            n(2) = Fuori90(90 +(Estratto(es,7,1)) - Estratto(es,2,2) + 36)
            n(3) = Fuori90(90 +(Estratto(es,7,3)) - Estratto(es,9,2) + 37)
            n(4) = Fuori90(Estratto(es,1,5) + Estratto(es,7,5) + 1)
            ok = 1
         End If
         If(Venerdi(Es)And cp = 3)Then
            n(1) = Fuori90(Estratto(es,4,1) + Estratto(es,12,4) + 14)
            n(2) = Fuori90(90 +(Estratto(es,7,5)) - Estratto(es,2,1) + 87)
            n(3) = Fuori90(90 +(Estratto(es,2,4)) - Estratto(es,10,5) + 85)
            n(4) = Fuori90(Estratto(es,1,1) + Estratto(es,1,4) + 1)
            ok = 1
         End If
         If(Sabato(Es)And cp = 4)Then
            n(1) = Fuori90(Estratto(es,4,5) + Estratto(es,5,5) + 19)
            n(2) = Fuori90(Estratto(es,1,5) + Estratto(es,9,5) + 29)
            n(3) = Fuori90(Estratto(es,1,2) + Estratto(es,6,4) + 43)
            n(4) = Fuori90(Estratto(es,4,1) + Estratto(es,12,4) + 9)
            ok = 1
         End If
         ruote(1) = 1
         If co = co + 1 Then
         End If
         ImpostaGiocata 1,n,ruote,posta,k
         Gioca es,1
      End If
   Next
   ScriviResoconto,0
End Sub
Function Martedi(Es)
   Martedi = False
   Data = Replace(DataEstrazione(Es),".","/")
   Joe = Day(Data) : Mes = Month(Data) : Ann = Year(Data)
   Data = Format2(Joe) & "/" & Format2(Mes) & "/" & Ann
   If WeekDay(Data) = vbTuesday Then Martedi = True
End Function
Function Giovedi(Es)
   Giovedi = False
   Data = Replace(DataEstrazione(Es),".","/")
   Joe = Day(Data) : Mes = Month(Data) : Ann = Year(Data)
   Data = Format2(Joe) & "/" & Format2(Mes) & "/" & Ann
   If WeekDay(Data) = vbThursday Then Giovedi = True
End Function
Function Venerdi(Es)
   Venerdi = False
   Data = Replace(DataEstrazione(Es),".","/")
   Joe = Day(Data) : Mes = Month(Data) : Ann = Year(Data)
   Data = Format2(Joe) & "/" & Format2(Mes) & "/" & Ann
   If WeekDay(Data) = vbFriday Then Venerdi = True
End Function
Function Sabato(Es)
   Sabato = False
   Data = Replace(DataEstrazione(Es),".","/")
   Joe = Day(Data) : Mes = Month(Data) : Ann = Year(Data)
   Data = Format2(Joe) & "/" & Format2(Mes) & "/" & Ann
   If WeekDay(Data) = vbSaturday Then Sabato = True
End Function
Clicca per espandere...
Ciao Marco trovo che lo script è fantastico puoi fare una variazione, ID mese metti in gioco solo il primo martedì ,giovedì ecc.del mese (cioè quando vi è il martedì ovvio il martedì non esce raramente il primo del mese, non importa quando esce esce non so se mi sono spiegato bene)(il primo del mese può essere il sabato allora aspetti martedì e si gioca.)🤔😛😅
 
Alziamo l'asticella anche se....l'impresa è ardua ma....mai dire mai!
Codice: 
Sub Main()
   Dim posta(5),poste(5),postee(5),posteee(5)
   Dim ruota(5),ruote(5)
   Dim n(6)
   Dim x
   posta(2) = 1
   posta(3) = 1
   cp = CInt(InputBox(" Scrivi 1 Martedi 2 Giovedi 3 Venerdi 4 Sabato"," ",1))
   k = CInt(InputBox(" Colpi di Gioco"," ",10))
   For Es = EstrazioneFin - 40 To EstrazioneFin
      If(Sabato(Es)And cp = 4)Or(Venerdi(Es)And cp = 3)Or(Giovedi(Es)And cp = 2)Or(Martedi(Es)And cp = 1)Then
         For x = 1 To 6
            n(x) = 0
         Next
         Scrivi
         Scrivi DataEstrazione(Es),1
         co = 0
         ok = 0
         If(Martedi(Es)And cp = 1)Then
            n(1) = Fuori90(Estratto(es,5,4) + Estratto(es,10,1) + 3)
            n(2) = Fuori90(Estratto(es,6,3) + Estratto(es,9,3) + 73)
            n(3) = Fuori90(Estratto(es,9,4) + Estratto(es,12,3) + 5)
            n(4) = Fuori90(Estratto(es,2,2) + Estratto(es,7,1) + 46)
            n(5) = Fuori90(Estratto(es,1,4) * Estratto(es,8,4) + 12)
            ok = 1
         End If
         If(Giovedi(Es)And cp = 2)Then
            n(1) = Fuori90(Estratto(es,5,2) + Estratto(es,10,4) + 17)
            n(2) = Fuori90(90 +(Estratto(es,6,2)) - Estratto(es,4,1) + 79)
            n(3) = Fuori90(Estratto(es,1,5) * Estratto(es,4,5) + 81)
            n(4) = Fuori90(Estratto(es,6,2) + Estratto(es,7,1) + 19)
            n(5) = Fuori90(Estratto(es,4,3) + Estratto(es,5,4) + 1)
            ok = 1
         End If
         If(Venerdi(Es)And cp = 3)Then
            n(1) = Fuori90(Estratto(es,2,1) + Estratto(es,3,5) + 6)
            n(2) = Fuori90(90 +(Estratto(es,10,1)) - Estratto(es,3,4) + 90)
            n(3) = Fuori90(Estratto(es,4,3) + Estratto(es,6,3) + 5)
            n(4) = Fuori90(Estratto(es,1,1) + Estratto(es,2,5) + 71)
            n(5) = Fuori90(Estratto(es,4,3) + Estratto(es,6,1) + 5)
            ok = 1
         End If
         If(Sabato(Es)And cp = 4)Then
            n(1) = Fuori90(Estratto(es,9,4) + Estratto(es,10,5) + 14)
            n(2) = Fuori90(90 +(Estratto(es,1,1)) - Estratto(es,8,4) + 10)
            n(3) = Fuori90(Estratto(es,1,1) * Estratto(es,3,1) + 63)
            n(4) = Fuori90(Estratto(es,3,3) + Estratto(es,7,1) + 3)
            n(5) = Fuori90(90 +(Estratto(es,7,5)) - Estratto(es,2,5) + 5)
            ok = 1
         End If
         ruote(1) = 1
         If co = co + 1 Then
         End If
         ImpostaGiocata 1,n,ruote,posta,k
         Gioca es,1
      End If
   Next
   ScriviResoconto,0
End Sub
Function Martedi(Es)
   Martedi = False
   Data = Replace(DataEstrazione(Es),".","/")
   Joe = Day(Data) : Mes = Month(Data) : Ann = Year(Data)
   Data = Format2(Joe) & "/" & Format2(Mes) & "/" & Ann
   If WeekDay(Data) = vbTuesday Then Martedi = True
End Function
Function Giovedi(Es)
   Giovedi = False
   Data = Replace(DataEstrazione(Es),".","/")
   Joe = Day(Data) : Mes = Month(Data) : Ann = Year(Data)
   Data = Format2(Joe) & "/" & Format2(Mes) & "/" & Ann
   If WeekDay(Data) = vbThursday Then Giovedi = True
End Function
Function Venerdi(Es)
   Venerdi = False
   Data = Replace(DataEstrazione(Es),".","/")
   Joe = Day(Data) : Mes = Month(Data) : Ann = Year(Data)
   Data = Format2(Joe) & "/" & Format2(Mes) & "/" & Ann
   If WeekDay(Data) = vbFriday Then Venerdi = True
End Function
Function Sabato(Es)
   Sabato = False
   Data = Replace(DataEstrazione(Es),".","/")
   Joe = Day(Data) : Mes = Month(Data) : Ann = Year(Data)
   Data = Format2(Joe) & "/" & Format2(Mes) & "/" & Ann
   If WeekDay(Data) = vbSaturday Then Sabato = True
End Function
 
Buona sera a tutte/i.

Con la necessaria premessa, che non intendo polemizzare con nessuno,

dal momento che quelle funzioni scritte da me, servivano per tutt'altro ...

sono contento che le troviate utili per complicarvi la vita.

In pratica quando non era possibile stabilire quale fosse l'ultima estrazione del mese ...

... (anche se non me ne importava) servivano a questo.

Poi ... discutendone con Luigi ... sono entrate a far parte delle istruzioni di Spaziometria.

Nello specifico di IsUltimaDelMese.

Dunque "in linea" con il titolo del post ... il mese ... è il mese.

Il giorno della settimana ... sarebbe fuori-tema ... e un pronostico ci azzecca meno di nulla!

Come detto non mi formalizzo perchè a me interessano altre cose della programmazione.

Dunque ho messo mano alla ricerca della soluzione dello scompiglio ... quello del venerdì ...

e per il quale quelle funzioni, non funzionanti, erano divenute obsolete.

Pertanto e per ora, se non ho sbagliato, nel tentativo di soluzione, l'ultima dell' anno dovrebbe essere

l' Estrazione 10571 di Martedì 31/12/2024.

Ed è questo il pronostico che intendo controllare ... quando sarà.

Questo era lo scopo, originario delle funzioni che ho regalato, non so più a chi,

perché voleva sapere qualcosa in più sui giorni delle estrazioni.

Tutto qui.

Anzi no ... attenti al Banco ... ha spigoli duri.

:)
 
Ultima modifica:
joe ha scritto:
Buona sera a tutte/i.

Con la necessaria premessa, che non intendo polemizzare con nessuno,

dal momento che quelle funzioni scritte da me, servivano per tutt'altro ...

sono contento che le troviate utili per complicarvi la vita.

In pratica quando non era possibile stabilire quale fosse l'ultima estrazione del mese ...

... (anche se non me ne importava) servivano a questo.

Poi ... discutendone con Luigi ... sono entrate a far parte delle istruzioni di Spaziometria.

Nello specifico di IsUltimaDelMese.

Dunque "in linea" con il titolo del post ... il mese ... è il mese.

Il giorno della settimana ... sarebbe fuori-tema ... e un pronostico ci azzecca meno di nulla!

Come detto non mi formalizzo perchè a me interessano altre cose della programmazione.

Dunque ho messo mano alla ricerca della soluzione dello scompiglio ... quello del venerdì ...

e per il quale quelle funzioni, non funzionanti, erano divenute obsolete.

Pertanto e per ora, se non ho sbagliato, nel tentativo di soluzione, l'ultima dell' anno dovrebbe essere

l' Estrazione 10571 di Martedì 31/12/2024.

Ed è questo il pronostico che intendo controllare ... quando sarà.

Questo era lo scopo, originario delle funzioni che ho regalato, non so più a chi,

perché voleva sapere qualcosa in più sui giorni delle estrazioni.

Tutto qui.

Anzi no ... attenti al Banco ha spigoli duri.

:)
Clicca per espandere...
Vabbè dai.....però è divertente usare un tuo lavoro per altri scopi e lo sappiamo in molti
che il Banco è spigoloso
:)
 
Marco-elle ha scritto:
Alziamo l'asticella anche se....l'impresa è ardua ma....mai dire mai!
Codice: 
Sub Main()
   Dim posta(5),poste(5),postee(5),posteee(5)
   Dim ruota(5),ruote(5)
   Dim n(6)
   Dim x
   posta(2) = 1
   posta(3) = 1
   cp = CInt(InputBox(" Scrivi 1 Martedi 2 Giovedi 3 Venerdi 4 Sabato"," ",1))
   k = CInt(InputBox(" Colpi di Gioco"," ",10))
   For Es = EstrazioneFin - 40 To EstrazioneFin
      If(Sabato(Es)And cp = 4)Or(Venerdi(Es)And cp = 3)Or(Giovedi(Es)And cp = 2)Or(Martedi(Es)And cp = 1)Then
         For x = 1 To 6
            n(x) = 0
         Next
         Scrivi
         Scrivi DataEstrazione(Es),1
         co = 0
         ok = 0
         If(Martedi(Es)And cp = 1)Then
            n(1) = Fuori90(Estratto(es,5,4) + Estratto(es,10,1) + 3)
            n(2) = Fuori90(Estratto(es,6,3) + Estratto(es,9,3) + 73)
            n(3) = Fuori90(Estratto(es,9,4) + Estratto(es,12,3) + 5)
            n(4) = Fuori90(Estratto(es,2,2) + Estratto(es,7,1) + 46)
            n(5) = Fuori90(Estratto(es,1,4) * Estratto(es,8,4) + 12)
            ok = 1
         End If
         If(Giovedi(Es)And cp = 2)Then
            n(1) = Fuori90(Estratto(es,5,2) + Estratto(es,10,4) + 17)
            n(2) = Fuori90(90 +(Estratto(es,6,2)) - Estratto(es,4,1) + 79)
            n(3) = Fuori90(Estratto(es,1,5) * Estratto(es,4,5) + 81)
            n(4) = Fuori90(Estratto(es,6,2) + Estratto(es,7,1) + 19)
            n(5) = Fuori90(Estratto(es,4,3) + Estratto(es,5,4) + 1)
            ok = 1
         End If
         If(Venerdi(Es)And cp = 3)Then
            n(1) = Fuori90(Estratto(es,2,1) + Estratto(es,3,5) + 6)
            n(2) = Fuori90(90 +(Estratto(es,10,1)) - Estratto(es,3,4) + 90)
            n(3) = Fuori90(Estratto(es,4,3) + Estratto(es,6,3) + 5)
            n(4) = Fuori90(Estratto(es,1,1) + Estratto(es,2,5) + 71)
            n(5) = Fuori90(Estratto(es,4,3) + Estratto(es,6,1) + 5)
            ok = 1
         End If
         If(Sabato(Es)And cp = 4)Then
            n(1) = Fuori90(Estratto(es,9,4) + Estratto(es,10,5) + 14)
            n(2) = Fuori90(90 +(Estratto(es,1,1)) - Estratto(es,8,4) + 10)
            n(3) = Fuori90(Estratto(es,1,1) * Estratto(es,3,1) + 63)
            n(4) = Fuori90(Estratto(es,3,3) + Estratto(es,7,1) + 3)
            n(5) = Fuori90(90 +(Estratto(es,7,5)) - Estratto(es,2,5) + 5)
            ok = 1
         End If
         ruote(1) = 1
         If co = co + 1 Then
         End If
         ImpostaGiocata 1,n,ruote,posta,k
         Gioca es,1
      End If
   Next
   ScriviResoconto,0
End Sub
Function Martedi(Es)
   Martedi = False
   Data = Replace(DataEstrazione(Es),".","/")
   Joe = Day(Data) : Mes = Month(Data) : Ann = Year(Data)
   Data = Format2(Joe) & "/" & Format2(Mes) & "/" & Ann
   If WeekDay(Data) = vbTuesday Then Martedi = True
End Function
Function Giovedi(Es)
   Giovedi = False
   Data = Replace(DataEstrazione(Es),".","/")
   Joe = Day(Data) : Mes = Month(Data) : Ann = Year(Data)
   Data = Format2(Joe) & "/" & Format2(Mes) & "/" & Ann
   If WeekDay(Data) = vbThursday Then Giovedi = True
End Function
Function Venerdi(Es)
   Venerdi = False
   Data = Replace(DataEstrazione(Es),".","/")
   Joe = Day(Data) : Mes = Month(Data) : Ann = Year(Data)
   Data = Format2(Joe) & "/" & Format2(Mes) & "/" & Ann
   If WeekDay(Data) = vbFriday Then Venerdi = True
End Function
Function Sabato(Es)
   Sabato = False
   Data = Replace(DataEstrazione(Es),".","/")
   Joe = Day(Data) : Mes = Month(Data) : Ann = Year(Data)
   Data = Format2(Joe) & "/" & Format2(Mes) & "/" & Ann
   If WeekDay(Data) = vbSaturday Then Sabato = True
End Function
Clicca per espandere...
Fantastico, spero di baciare la "BELLA ADDORMENTATA DEL BOSCO"
a368b2924b185d4b08b39cdb570c3f.jpg
 
Alien. ha scritto:
Ciao Marco trovo che lo script è fantastico puoi fare una variazione, ID mese metti in gioco solo il primo martedì ,giovedì ecc.del mese (cioè quando vi è il martedì ovvio il martedì non esce raramente il primo del mese, non importa quando esce esce non so se mi sono spiegato bene)(il primo del mese può essere il sabato allora aspetti martedì e si gioca.)🤔😛😅
Clicca per espandere...
Si può fare
 
Alien. ha scritto:
Ciao Marco trovo che lo script è fantastico puoi fare una variazione, ID mese metti in gioco solo il primo martedì ,giovedì ecc.del mese (cioè quando vi è il martedì ovvio il martedì non esce raramente il primo del mese, non importa quando esce esce non so se mi sono spiegato bene)(il primo del mese può essere il sabato allora aspetti martedì e si gioca.)🤔😛😅
Clicca per espandere...
Lo script andrebbe modificato per questo tipo di ricerca,però fa quello che vuoi sapere.
Il venerdi non condiderarlo perchè bisognerebbe allungare il range di esamina e diventa
lento e trova parecchi casi negativi a seconda della esamina e ho trovato una via di messo.
Se vuoi,con l'estrazione di ieri,c'è una previsione in corso da tenere sott'occhio
Codice: 
Sub Main()
   Dim posta(5),poste(5),postee(5),posteee(5)
   Dim ruota(5),ruote(5)
   Dim n(6)
   Dim x
   posta(2) = 1
   posta(3) = 1
   cp = CInt(InputBox(" Scrivi 1 Martedi 2 Giovedi 3 Venerdi 4 Sabato"," ",1))
   k = CInt(InputBox(" Colpi di Gioco"," ",10))
   For Es = EstrazioneFin - 40 To EstrazioneFin
      If(Sabato(Es)And cp = 4)Or(Venerdi(Es)And cp = 3)Or(Giovedi(Es)And cp = 2)Or(Martedi(Es)And cp = 1)Then
         For x = 1 To 6
            n(x) = 0
         Next
         Scrivi
         Scrivi DataEstrazione(Es),1
         co = 0
         ok = 0
         If(Martedi(Es)And cp = 1)Then
            n(1) = Fuori90(Estratto(es,5,4) + Estratto(es,10,1) + 3)
            n(2) = Fuori90(Estratto(es,6,3) + Estratto(es,9,3) + 73)
            n(3) = Fuori90(Estratto(es,9,4) + Estratto(es,12,3) + 5)
            n(4) = Fuori90(Estratto(es,2,2) + Estratto(es,7,1) + 46)
            n(5) = Fuori90(Estratto(es,1,4) * Estratto(es,8,4) + 12)
            ok = 1
         End If
         If(Giovedi(Es)And cp = 2)Then
            n(1) = Fuori90(Estratto(es,5,2) + Estratto(es,10,4) + 17)
            n(2) = Fuori90(90 +(Estratto(es,6,2)) - Estratto(es,4,1) + 79)
            n(3) = Fuori90(Estratto(es,1,5) * Estratto(es,4,5) + 81)
            n(4) = Fuori90(Estratto(es,6,2) + Estratto(es,7,1) + 19)
            n(5) = Fuori90(Estratto(es,4,3) + Estratto(es,5,4) + 1)
            ok = 1
         End If
         If(Venerdi(Es)And cp = 3)Then
            n(1) = Fuori90(Estratto(es,2,1) + Estratto(es,3,5) + 6)
            n(2) = Fuori90(90 +(Estratto(es,10,1)) - Estratto(es,3,4) + 90)
            n(3) = Fuori90(Estratto(es,4,3) + Estratto(es,6,3) + 5)
            n(4) = Fuori90(Estratto(es,1,1) + Estratto(es,2,5) + 71)
            n(5) = Fuori90(Estratto(es,4,3) + Estratto(es,6,1) + 5)
            ok = 1
         End If
         If(Sabato(Es)And cp = 4)Then
            n(1) = Fuori90(Estratto(es,9,4) + Estratto(es,10,5) + 14)
            n(2) = Fuori90(90 +(Estratto(es,1,1)) - Estratto(es,8,4) + 10)
            n(3) = Fuori90(Estratto(es,1,1) * Estratto(es,3,1) + 63)
            n(4) = Fuori90(Estratto(es,3,3) + Estratto(es,7,1) + 3)
            n(5) = Fuori90(90 +(Estratto(es,7,5)) - Estratto(es,2,5) + 5)
            ok = 1
         End If
         ruote(1) = 1
         If co = co + 1 Then
         End If
         ImpostaGiocata 1,n,ruote,posta,k
         Gioca es,1
      End If
   Next
   ScriviResoconto,0
End Sub
Function Martedi(Es)
   Martedi = False
   Data = Replace(DataEstrazione(Es),".","/")
   Joe = Day(Data) : Mes = Month(Data) : Ann = Year(Data)
   Data = Format2(Joe) & "/" & Format2(Mes) & "/" & Ann
   If WeekDay(Data) = vbTuesday Then Martedi = True
End Function
Function Giovedi(Es)
   Giovedi = False
   Data = Replace(DataEstrazione(Es),".","/")
   Joe = Day(Data) : Mes = Month(Data) : Ann = Year(Data)
   Data = Format2(Joe) & "/" & Format2(Mes) & "/" & Ann
   If WeekDay(Data) = vbThursday Then Giovedi = True
End Function
Function Venerdi(Es)
   Venerdi = False
   Data = Replace(DataEstrazione(Es),".","/")
   Joe = Day(Data) : Mes = Month(Data) : Ann = Year(Data)
   Data = Format2(Joe) & "/" & Format2(Mes) & "/" & Ann
   If WeekDay(Data) = vbFriday Then Venerdi = True
End Function
Function Sabato(Es)
   Sabato = False
   Data = Replace(DataEstrazione(Es),".","/")
   Joe = Day(Data) : Mes = Month(Data) : Ann = Year(Data)
   Data = Format2(Joe) & "/" & Format2(Mes) & "/" & Ann
   If WeekDay(Data) = vbSaturday Then Sabato = True
End FunctionSub Main()
   Dim posta(5),poste(5),postee(5),posteee(5)
   Dim ruota(5),ruote(5)
   Dim n(6)
   Dim x
   posta(2) = 1
   posta(3) = 1
   cp = CInt(InputBox(" Scrivi 1 Martedi 2 Giovedi 3 Venerdi 4 Sabato"," ",1))
   k = CInt(InputBox(" Colpi di Gioco"," ",10))
   For Es = EstrazioneFin - 670 To EstrazioneFin
      If(Sabato(Es)And cp = 4)Or(Venerdi(Es)And cp = 3)Or(Giovedi(Es)And cp = 2)Or(Martedi(Es)And cp = 1) Then
         For x = 1 To 6
            n(x) = 0
         Next
         Scrivi
         Scrivi DataEstrazione(Es),1
         co = 0
         ok = 0
         If(Martedi(Es)And cp = 1)And IndiceMensile(es) = 1 Then
            n(1) = Fuori90(Estratto(es,9,4) + Estratto(es,10,1) + 2)
            n(2) = Fuori90(90 +(Estratto(es,8,2)) - Estratto(es,10,5) + 3)
            n(3) = Fuori90(90 +(Estratto(es,8,5)) - Estratto(es,7,5) + 12)
            n(4) = Fuori90(Estratto(es,10,2) + Estratto(es,10,5) + 33)
            n(5) = Fuori90(90 +(Estratto(es,10,4)) - Estratto(es,4,5) + 6)
            ok = 1
         End If
         If(Giovedi(Es)And cp = 2)And IndiceMensile(es) = 1Then
            n(1) = Fuori90(Estratto(es,2,1) + Estratto(es,9,3) + 3)
            n(2) = Fuori90(Estratto(es,4,1) + Estratto(es,10,4) + 2)
            n(3) = Fuori90(Estratto(es,5,4) + Estratto(es,10,4) + 21)
            n(4) = Fuori90(Estratto(es,1,5) * Estratto(es,5,1) + 26)
            n(5) = Fuori90(Estratto(es,8,4) + Estratto(es,10,3) + 13)
            ok = 1
         End If
         If(Venerdi(Es)And cp = 3)And IndiceMensile(es) = 1 Then
            n(1) = Fuori90(Estratto(es,3,5) * Estratto(es,6,2) + 9)
            n(2) = Fuori90(90 +(Estratto(es,10,5)) - Estratto(es,5,2) + 15)
            n(3) = Fuori90(Estratto(es,5,5) * Estratto(es,10,3) + 9)
            n(4) = Fuori90(Estratto(es,1,3) * Estratto(es,12,1) + 58)
            n(5) = Fuori90(90 +(Estratto(es,9,4)) - Estratto(es,1,4) + 49)
            ok = 1
         End If
         If(Sabato(Es)And cp = 4)And IndiceMensile(es) = 1 Then
            n(1) = Fuori90(Estratto(es,10,5) + Estratto(es,12,1) + 2)
            n(2) = Fuori90(Estratto(es,7,4) + Estratto(es,12,5) + 29)
            n(3) = Fuori90(Estratto(es,1,3) + Estratto(es,9,1) + 63)
            n(4) = Fuori90(Estratto(es,7,1) * Estratto(es,12,1) + 10)
            n(5) = Fuori90(90 +(Estratto(es,2,4)) - Estratto(es,2,5) + 18)
            ok = 1
         End If
         ruote(1) = 1
         If co = co + 1 Then
         End If
         ImpostaGiocata 1,n,ruote,posta,k
         Gioca es,1
      End If
   Next
   ScriviResoconto,0
End Sub
Function Martedi(Es)
   Martedi = False
   Data = Replace(DataEstrazione(Es),".","/")
   Joe = Day(Data) : Mes = Month(Data) : Ann = Year(Data)
   Data = Format2(Joe) & "/" & Format2(Mes) & "/" & Ann
   If WeekDay(Data) = vbTuesday Then Martedi = True
End Function
Function Giovedi(Es)
   Giovedi = False
   Data = Replace(DataEstrazione(Es),".","/")
   Joe = Day(Data) : Mes = Month(Data) : Ann = Year(Data)
   Data = Format2(Joe) & "/" & Format2(Mes) & "/" & Ann
   If WeekDay(Data) = vbThursday Then Giovedi = True
End Function
Function Venerdi(Es)
   Venerdi = False
   Data = Replace(DataEstrazione(Es),".","/")
   Joe = Day(Data) : Mes = Month(Data) : Ann = Year(Data)
   Data = Format2(Joe) & "/" & Format2(Mes) & "/" & Ann
   If WeekDay(Data) = vbFriday Then Venerdi = True
End Function
Function Sabato(Es)
   Sabato = False
   Data = Replace(DataEstrazione(Es),".","/")
   Joe = Day(Data) : Mes = Month(Data) : Ann = Year(Data)
   Data = Format2(Joe) & "/" & Format2(Mes) & "/" & Ann
   If WeekDay(Data) = vbSaturday Then Sabato = True
End Function
 
Ciao MARCO STRANO MI DA ERRORE LINEA 87 COLONNA 4---- End FunctionSub Main()

MA su chrome ok su OPERA MI DA ERRORE.
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 07 gennaio 2025
    Bari
    29
    37
    09
    53
    08
    Cagliari
    33
    56
    08
    61
    20
    Firenze
    55
    33
    09
    60
    28
    Genova
    56
    09
    78
    59
    04
    Milano
    73
    51
    34
    06
    70
    Napoli
    49
    30
    64
    80
    05
    Palermo
    89
    08
    74
    48
    30
    Roma
    46
    20
    13
    87
    05
    Torino
    05
    85
    90
    28
    16
    Venezia
    51
    42
    17
    05
    09
    Nazionale
    88
    90
    72
    25
    41
    Estrazione Simbolotto
    Bari
    06
    22
    29
    11
    31
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto