| Autore |
 Discussione  |
|
|
franca46
Amministratore
Italy
25463 invii |
 Spedito - 19 ottobre 2026 : 17:40:05
|
ciao dj ho costruito questo script che calcola all'ultima del mese
oggi aggiornando L8 mi spunta la previsione con la data sbagliata
daresti uno sguardo?
Sub main()
Dim ruote(10)
Dim ruot(1)
Dim numeri1(2)
Dim numeri2(2)
Dim numeri3(2)
Dim numeri4(6)
Dim poste(5)
Dim posta(5)
Dim post(5)
'poste(1)=1
poste(2)=1
posta(2)=1
post(2)=1
post(3)=0.5
ruote(1)=3
ruote(2)=12
ruot(1)=11
ini=10779
For n=ini To EstrazioneFin
If IndiceMensile(n+1)=1 Then
Scrivi String(58,"-")
ColoreTesto 2
'Scrivi DataEstrazione(n,1)&" [ "&SiglaRuota(1)&" - "&stringaestratti(n,1)&" ]"
numeri1(1)=Fuori90(Estratto(n,3,3)+51)
numeri1(2)=Fuori90(Estratto(n,4,3)+10)
ImpostaGiocata 1,numeri1,ruote,poste,16,0
ImpostaGiocata 2,numeri1,ruot,posta,16,0
numeri2(1)=Fuori90(Estratto(n,3,4)+77)
numeri2(2)=Fuori90(Estratto(n,5,2)+76)
ImpostaGiocata 3,numeri2,ruote,poste,16,0
ImpostaGiocata 4,numeri2,ruot,posta,16,0
numeri3(1)=Fuori90(Estratto(n,4,4)+35)
numeri3(2)=Fuori90(Estratto(n,8,2)+15)
ImpostaGiocata 5,numeri3,ruote,poste,16,0
ImpostaGiocata 6,numeri3,ruot,posta,16,0
numeri4(1)=Fuori90(Estratto(n,3,3)+51)
numeri4(2)=Fuori90(Estratto(n,4,3)+10)
numeri4(3)=Fuori90(Estratto(n,3,4)+77)
numeri4(4)=Fuori90(Estratto(n,5,2)+76)
numeri4(5)=Fuori90(Estratto(n,4,4)+35)
numeri4(6)=Fuori90(Estratto(n,8,2)+15)
ImpostaGiocata 7,numeri4,ruote,post,16,0
ImpostaGiocata 8,numeri4,ruot,post,16,0
Gioca n
End If
Next
ScriviResoconto
End Sub
la nuova previsione deve avvenire all'ultima del mese , perchè me la fa ora? guarda
mar 29.09.2026 [10935]
G 1: A 28.18 Fi Nz 11/16
A 18.28 su Nz 7° colpo [10942/10.10.2026]
in corso (11° su 16)
G 2: A 28.18 Tu 11/16
in corso (11° su 16)
G 3: A 01.49 Fi Nz 11/16
in corso (11° su 16)
G 4: A 01.49 Tu 11/16
in corso (11° su 16)
G 5: A 54.10 Fi Nz 11/16
in corso (11° su 16)
G 6: A 54.10 Tu 11/16
in corso (11° su 16)
G 7: AT 28.18.01.49.54.10 Fi Nz 11/16
A 18.01.28 su Nz 7° colpo [10942/10.10.2026]
T 18.01.28 su Nz 7° colpo [10942/10.10.2026]
in corso (11° su 16)
G 8: AT 28.18.01.49.54.10 Tu 11/16
A 10.18 su Tu (Pa) 6° colpo [10941/09.10.2026]
A 28.01 su Tu (To) 10° colpo [10945/16.10.2026]
in corso (11° su 16)
----------------------------------------------------------
sab 17.10.2026 [10946]
G 1: A 34.80 Fi Nz 0/16
n.i. (16 colpi)
G 2: A 34.80 Tu 0/16
n.i. (16 colpi)
G 3: A 40.35 Fi Nz 0/16
n.i. (16 colpi)
G 4: A 40.35 Tu 0/16
n.i. (16 colpi)
G 5: A 36.89 Fi Nz 0/16
n.i. (16 colpi)
G 6: A 36.89 Tu 0/16
n.i. (16 colpi)
G 7: AT 34.80.40.35.36.89 Fi Nz 0/16
n.i. (16 colpi)
G 8: AT 34.80.40.35.36.89 Tu 0/16
n.i. (16 colpi)
mi spieghi cosa sbaglio? grazie
|
Franca46
Cerca di essere sempre te stesso,
così un giorno potrai dire di essere stato l'unico |
|
|
DjNomade
Utente Fedelissimo
610 invii |
Spedito - 20 ottobre 2026 : 22:59:42
|
A me quella di sabato 17-10-2026 non me la da',
pero' con questa funzione If IndiceMensile(n+1)=1 Then
credo che la previsione la vedi solo dopo aver inserito la 1° estrazione del mese successivo ora prova questo all'ultima estrazione del mese inserita e poi prova il tuo e vedi qual'è quello che da la previsione
Sub main()
Dim ruote(10)
Dim ruot(1)
Dim numeri1(2)
Dim numeri2(2)
Dim numeri3(2)
Dim numeri4(6)
Dim poste(5)
Dim posta(5)
Dim post(5)
'poste(1)=1
poste(2)=1
posta(2)=1
post(2)=1
post(3)=0.5
ruote(1)=3
ruote(2)=12
ruot(1)=11
ini=10779
For n=ini To EstrazioneFin
If IsUltimaDelMese(n) Then
'If IndiceMensile(n+1)=1 Then
Scrivi String(58,"-")
ColoreTesto 2
'Scrivi DataEstrazione(n,1)&" [ "&SiglaRuota(1)&" - "&stringaestratti(n,1)&" ]"
numeri1(1)=Fuori90(Estratto(n,3,3)+51)
numeri1(2)=Fuori90(Estratto(n,4,3)+10)
ImpostaGiocata 1,numeri1,ruote,poste,16,0
ImpostaGiocata 2,numeri1,ruot,posta,16,0
numeri2(1)=Fuori90(Estratto(n,3,4)+77)
numeri2(2)=Fuori90(Estratto(n,5,2)+76)
ImpostaGiocata 3,numeri2,ruote,poste,16,0
ImpostaGiocata 4,numeri2,ruot,posta,16,0
numeri3(1)=Fuori90(Estratto(n,4,4)+35)
numeri3(2)=Fuori90(Estratto(n,8,2)+15)
ImpostaGiocata 5,numeri3,ruote,poste,16,0
ImpostaGiocata 6,numeri3,ruot,posta,16,0
numeri4(1)=Fuori90(Estratto(n,3,3)+51)
numeri4(2)=Fuori90(Estratto(n,4,3)+10)
numeri4(3)=Fuori90(Estratto(n,3,4)+77)
numeri4(4)=Fuori90(Estratto(n,5,2)+76)
numeri4(5)=Fuori90(Estratto(n,4,4)+35)
numeri4(6)=Fuori90(Estratto(n,8,2)+15)
ImpostaGiocata 7,numeri4,ruote,post,16,0
ImpostaGiocata 8,numeri4,ruot,post,16,0
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 = 1 '2 provare con 2
Case vbFriday ' venerdi ' non c'era
gMancanti = 1 ' non c'era
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
|
 |
|
|
franca46
Amministratore
Italy
25463 invii |
Spedito - 21 ottobre 2026 : 07:10:54
|
Ciao dj lo provo , a me era sembrata strana appunto questa data
Chissà che non abbia toccato qualche tasto.
Ti farò sapere, sapere |
Franca46
Cerca di essere sempre te stesso,
così un giorno potrai dire di essere stato l'unico |
|
|
|
franca46
Amministratore
Italy
25463 invii |
Spedito - 21 ottobre 2026 : 10:42:22
|
ciao dj stamattina riprovando il mio listato non è più comparsa la data del 17
forse avevo pigiato qualkosa di sbagliato
ho provato anche il tuo ma non c'erano dubbi sul funzionamento.
ps: anche io sapevo che bisogna aspettare la prima estrazione del mese seguente per ottenere quella dell'ultima
grazie sempre
|
Franca46
Cerca di essere sempre te stesso,
così un giorno potrai dire di essere stato l'unico |
|
|
| |
Discussione |
|
|
|
X djnomade correzione script
