Ciao salvo ho provato ma non è quello ,
Ciao Pandit
🤣 grazie è questo ne ho 3/4 script tutti con lo stesso errore ma mi ripeto l'ho sviluppato una volta ed l'ha fatto perfettamente 2 giorni fa l'ho ripreso ma mi da errore eppure non ho fatto nulla.
ColoreTesto 2
Scrivi String(37,32) & "Da un'idea di - adeleadele - ",1
Scrivi String(45,32) & "List. by Toon",1
ColoreTesto 0
Sub Main()
Dim n(10),ruote(12),poste(5),posta(2),n1(2)
w = InputBox("Quanti colpi di gioco per l'Ambata?",,10)
x = InputBox("Quanti colpi di gioco per la lunghetta?",,14)
y = InputBox("Quante estrazioni di ricerca?",,500)
posta(1) = 1
poste(2) = 1
poste(3) = 1
ini = EstrazioneFin - y
fin = EstrazioneFin
For es = ini To fin
Messaggio es
Call AvanzamentoElab(ini,fin,es)
'If IsUltimaDelMese(es) Then 'Togliere l'apostrofo per l'ultima del mese
If IndiceMensile(es) = 1 Then 'Togliere l'apostrofo per la prima del mese
r1 = 1
r2 = 2
a = Estratto(es,r1,1)
b = Estratto(es,r2,3)
If b > 5 Then
b = b - 5
End If
c = Estratto(es,r2,4)
If Cadenza(c) = 0 Then
c = c - 5
End If
e = Fuori90(a + b)
f = Fuori90(a + c)
g = Differenza(Decina(a),Cadenza(a))
h = Figura(Estratto(es,r1,3))
i = Fuori90(g & h)
ok = 0
ColoreTesto 1
casi = casi + 1:Scrivi String(75,"=") & " caso n° " &(casi),1
Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & _
> < & Format2(e),1.................................................................................................................errore di sintassi
Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & _
> < & Format2(f),1.....................................................................................................................errore di sintassi
Scrivi
forse perchè ho eliminato ' rimessa ma nulla da fare.................