Salve,
ho trovato qui sul forum questo interessante vecchio script di Joe91,
volevo sapere se esiste anche la versione aggiornata per Spaziometria ?
Grazie.
ho trovato qui sul forum questo interessante vecchio script di Joe91,
Codice:
'Test Archivio L8+ / Lottodesk V.2.0 By Joe91
Sub Main()
Fin = 8423 ' 30 Agosto 2011 NON MODIFICARE !!!
Scrivi "Controllato l' ""Archivio-Lotto"" fino alla data : " & DataEstrazione (Fin)
Scrivi
For es = 1 To Fin
For R=1 To 11 : If R=11 Then R=12
For P=1 To 5
E=E+Estratto(Es,R,P)
Next
Next
Next
If E <> 17755112 Then
ColoreTesto 2 : Scrivi E & " NON E' ALLINEATO !!! ",1
Else
Scrivi "NON si sono evidenziati errori"
End If
Scrivi
ColoreTesto 1
Scrivi "Cordiali saluti da Joe",1
End Sub
Grazie.