Novità

Previsioni Aggiornate

Che bello ritrovarvi così presenti, devo ingranare la ricerca sul tabellone,
ma ho messo le migliori..... attenzione a FI - PA.
Non vorrei fare il misterioso.... nel giro di pochi giorni è stata male mia suocera (vive da sola a 86anni)
visita urgente, esami preparatori e operata 3 gg fa, ora verrà a vivere con noi, non può star da sola....
e purtroppo non è facile, ecco il motivo del mio rientro "forzato".
un forte abbraccio a tutti.
 
Aggiorno per sabato, come nei mesi scorsi sono Solo Ambate, che vanno abbinate nelle stesse Ruote per Ambo.....mai dire mai.
FI - PA 68
MI - VE 34
CA 78 - 87
NA - PA 74
MI - NA 64
GE - PA 40
CA - PA 13

Buona giornata a tutti ;) (y)
 
Roberto57 ha scritto:
Ciao Cinzia27 sono al bar con la direzione lavori e ho appena giocato il tuo 90 con aggiunta del 11 a MI PA mi piacciono troppo 🤞buona giornata
Clicca per espandere...
Roberto, se ti piace il 90 a PA sappi che è in coppia con il 76 su NZ, conviene considerare anche quest' ultimo, può
essere che esce prima. Per gli abbinamenti non saprei.
Buona vincita.🍀
 
Ciao Cinzia, ho visto che con gli script sei una bomba.....🎯 non apro un nuovo topic, credo si possa combinare qui (tra noi).
dopo diverso tempo, ho trovato stasera questo errore che purtroppo mi avrà dato dei pronostici sbagliati, lo script non è mio e non ricordo di chi sia, comunque mi risultano 2 volte, un UGUALE risultato nella stessa data, ecco qui l'immagine.

Script.jpg

ti allego più sotto lo script, credo sia sbagliato che siano inseriti i giorni "martedi-giovedì-sabato" perchè se in qualche occasione ci sia stata l'estrazione il lunedì....non sia corretto. Ti chiedo cortesemente se potrai correggerlo, oppure se ti è più semplice, uno script che si calcoli all' Ultima del mese, io sono tra quelli che copio-incollo gli script .... per me è "arabo" ciao e grazie sempre.
 
Scusami Cinzia, non avevo dato l ' ok alla risposta.
Ecco il tutto.......

Sub Main()
Dim ruote(10)
Dim ambata(1)
Dim numeri1(10)
Dim posta(1)
Dim poste(5)
posta(1) = 1
poste(2) = 0.60
poste(3) = 0.30
poste(4) = 0.10
k = 13
y = 2
For n = 9600 To EstrazioneFin
If IndiceMensile(n + 1) = 1 Then
If IsUltimaDelMese(n) Then


ruote(1) = 2
ruote(2) = 9
casi = casi + 1
Scrivi String(100,"°") & " caso n° " & casi,1
ambata(1) = Fuori90(Estratto(n,5,2) + Estratto(n,3,4) + 47)

ImpostaGiocata 1,ambata,ruote,posta,k,1

ImpostaGiocata 2,numeri1,ruote,poste,k,y
Gioca n

End If
End If
Next

ScriviResoconto
End Sub


Function IsUltimaDelMese(idEstr)

Dim sData,sDataNew
Dim idGiornoSettimana
Dim gMancanti
Dim nMeseCorr

sData = Replace(DataEstrazione(idEstr),".","/")
nMeseCorr = Month(sData)
idGiornoSettimana = WeekDay(sData)

Select Case idGiornoSettimana

Case vbTuesday ' martedi
gMancanti = 2
Case vbThursday ' giovedi
gMancanti = 2
Case vbSaturday ' sabato
gMancanti = 3
End Select

sDataNew = DateAdd("d",gMancanti,sData)

If Month(sDataNew) <> nMeseCorr Then
IsUltimaDelMese = True
Else
IsUltimaDelMese = False
End If

End Function
 
Prova ora

Codice: 
Sub Main()
Dim ruote(10)
Dim ambata(1)
Dim numeri1(10)
Dim posta(1)
Dim poste(5)
posta(1) = 1
poste(2) = 0.60
poste(3) = 0.30
poste(4) = 0.10
k = 13
y = 2
For n = 9600 To EstrazioneFin
'If IndiceMensile(n + 1) = 1 Then
If IsUltimaDelMese(n) Then


ruote(1) = 2
ruote(2) = 9
casi = casi + 1
Scrivi String(100,"°") & " caso n° " & casi,1
ambata(1) = Fuori90(Estratto(n,5,2) + Estratto(n,3,4) + 47)

ImpostaGiocata 1,ambata,ruote,posta,k,1

ImpostaGiocata 2,numeri1,ruote,poste,k,y
Gioca n

End If

Next

ScriviResoconto
End Sub


Function IsUltimaDelMese(idEstr)

Dim sData,sDataNew
Dim idGiornoSettimana
Dim gMancanti
Dim nMeseCorr

sData = Replace(DataEstrazione(idEstr),".","/")
nMeseCorr = Month(sData)
idGiornoSettimana = WeekDay(sData)

Select Case idGiornoSettimana

Case vbTuesday ' martedi
gMancanti = 2
Case vbThursday ' giovedi
gMancanti = 2
Case vbSaturday ' sabato
gMancanti = 3
End Select

sDataNew = DateAdd("d",gMancanti,sData)

If Month(sDataNew) <> nMeseCorr Then
IsUltimaDelMese = True
Else
IsUltimaDelMese = False
End If

End Function
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 17 luglio 2025
    Bari
    22
    33
    04
    68
    47
    Cagliari
    09
    52
    27
    21
    47
    Firenze
    05
    33
    72
    17
    08
    Genova
    76
    67
    65
    68
    45
    Milano
    75
    52
    46
    34
    22
    Napoli
    40
    23
    71
    12
    22
    Palermo
    44
    89
    39
    01
    31
    Roma
    89
    04
    05
    82
    26
    Torino
    05
    59
    85
    88
    24
    Venezia
    69
    45
    75
    44
    30
    Nazionale
    28
    85
    16
    03
    83
    Estrazione Simbolotto
    Nazionale
    39
    26
    40
    23
    24
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto