ciao genios
non so perchè vuoi listare di tutte le estrazioni tutti gli ambi aventi rc >= 270
perchè molti che arrivano a 270 possono durare e resistere con i ritardi anche 100 estrazioni
quindi per 100 estrazioni avresti sempre lo stesso elenco.
forse vuoi avere dei dati che si possono rilevare in altro modo, e non solo listando migliaia di estrazioni.
comunque questo è la lista che ottiene facendo quello che mi hai chiesto.
ti dico solo questo:
1) estrazioni ini deve mettere da quale estrazione vuoi la lista
2) estrazione fin devi mettere fino a che estrazione vuoi la lista
esempio: ini = 7440 fin=10279
periodo di calcolo del ritardo io l'ho impostato attualmente dalla 3950 che vuol dire dal 3/9/1946
ma se vuoi per esempio dal 1871 devi correggere mettendo 1
oppure se vuoi calcolare il ritardo dall'avvento delle venus deve mettere 7440
in poche parole il periodo di inizio e fine lo determini tu sia per la stampa che per il calcolo del ritardo.
CODICE
Option Explicit
Sub Main
Dim a,b,r,Ini,fine,sorte,retrit,retritmax,retfre,rlim
Ini = EstrazioneIni
fine = EstrazioneFin
rlim = CInt(InputBox("Ritardo Limite minimo che vuoi > 269 ",,269))
''' tutte le ruote esclusa nazionale
ReDim ruo(10)
For r = 1 To 10
ruo(r) = r
Next
Scrivi "Elenca gli Ambi su TUTTE LE RUOTE aventi ritardo corrente >= di 270 ",1
For Ini = Ini + 1 To fine
Scrivi "-----------------------------------------------",1
Scrivi "Periodo di calcolo : " & 3950 & " " & DataEstrazione(3950) & " : " & Ini & " " & DataEstrazione(Ini),1
'''''loop per i 4005 ambi
ReDim an(2)
For a = 1 To 89
For b = a + 1 To 90
an(1) = a
an(2) = b
sorte = 2
Messaggio(Ini & " / " & StringaNumeri(an," "))
Call StatFrzTurbo(an,ruo,sorte,retrit,retritmax,,retfre,,3950,Ini)
If retrit > rlim Then
Scrivi "Estr.n. " & Ini & " " & DataEstrazione(Ini) & " " & StringaNumeri(an,".") & " Ruote Tutte Rc. " & FormattaStringa(retrit,"000") & " / Rx. " & FormattaStringa(retritmax,"000") & " / Pres." & retfre,1
End If
Next
Next
Next
End Sub
ottiene un elenco così:
io ho richiesto come listato degli ambi dal 10250 alla 10279
Elenca gli Ambi su TUTTE LE RUOTE aventi ritardo corrente >= di 270
-----------------------------------------------
Periodo di calcolo : 3950 14.09.1946 : 10251 15.06.2023
Estr.n. 10251 15.06.2023 8.40 Ruote Tutte Rc. 273 / Rx. 280 / Pres.151
Estr.n. 10251 15.06.2023 30.43 Ruote Tutte Rc. 278 / Rx. 278 / Pres.164
Estr.n. 10251 15.06.2023 30.63 Ruote Tutte Rc. 273 / Rx. 343 / Pres.151
Estr.n. 10251 15.06.2023 50.63 Ruote Tutte Rc. 273 / Rx. 273 / Pres.156
-----------------------------------------------
Periodo di calcolo : 3950 14.09.1946 : 10252 17.06.2023
Estr.n. 10252 17.06.2023 8.40 Ruote Tutte Rc. 274 / Rx. 280 / Pres.151
Estr.n. 10252 17.06.2023 30.43 Ruote Tutte Rc. 279 / Rx. 279 / Pres.164
Estr.n. 10252 17.06.2023 30.63 Ruote Tutte Rc. 274 / Rx. 343 / Pres.151
Estr.n. 10252 17.06.2023 50.63 Ruote Tutte Rc. 274 / Rx. 274 / Pres.156
-----------------------------------------------
Periodo di calcolo : 3950 14.09.1946 : 10253 20.06.2023
Estr.n. 10253 20.06.2023 8.40 Ruote Tutte Rc. 275 / Rx. 280 / Pres.151
Estr.n. 10253 20.06.2023 30.43 Ruote Tutte Rc. 280 / Rx. 280 / Pres.164
Estr.n. 10253 20.06.2023 30.63 Ruote Tutte Rc. 275 / Rx. 343 / Pres.151
Estr.n. 10253 20.06.2023 50.63 Ruote Tutte Rc. 275 / Rx. 275 / Pres.156
-----------------------------------------------
Periodo di calcolo : 3950 14.09.1946 : 10254 22.06.2023
Estr.n. 10254 22.06.2023 8.40 Ruote Tutte Rc. 276 / Rx. 280 / Pres.151
Estr.n. 10254 22.06.2023 30.43 Ruote Tutte Rc. 281 / Rx. 281 / Pres.164
Estr.n. 10254 22.06.2023 30.63 Ruote Tutte Rc. 276 / Rx. 343 / Pres.151
Estr.n. 10254 22.06.2023 50.63 Ruote Tutte Rc. 276 / Rx. 276 / Pres.156
-----------------------------------------------
Periodo di calcolo : 3950 14.09.1946 : 10255 24.06.2023
Estr.n. 10255 24.06.2023 8.40 Ruote Tutte Rc. 277 / Rx. 280 / Pres.151
Estr.n. 10255 24.06.2023 30.43 Ruote Tutte Rc. 282 / Rx. 282 / Pres.164
Estr.n. 10255 24.06.2023 30.63 Ruote Tutte Rc. 277 / Rx. 343 / Pres.151
Estr.n. 10255 24.06.2023 50.63 Ruote Tutte Rc. 277 / Rx. 277 / Pres.156
-----------------------------------------------
Periodo di calcolo : 3950 14.09.1946 : 10256 27.06.2023
Estr.n. 10256 27.06.2023 8.40 Ruote Tutte Rc. 278 / Rx. 280 / Pres.151
Estr.n. 10256 27.06.2023 30.43 Ruote Tutte Rc. 283 / Rx. 283 / Pres.164
Estr.n. 10256 27.06.2023 30.63 Ruote Tutte Rc. 278 / Rx. 343 / Pres.151
Estr.n. 10256 27.06.2023 50.63 Ruote Tutte Rc. 278 / Rx. 278 / Pres.156
-----------------------------------------------
Periodo di calcolo : 3950 14.09.1946 : 10257 29.06.2023
Estr.n. 10257 29.06.2023 8.40 Ruote Tutte Rc. 279 / Rx. 280 / Pres.151
Estr.n. 10257 29.06.2023 30.43 Ruote Tutte Rc. 284 / Rx. 284 / Pres.164
Estr.n. 10257 29.06.2023 30.63 Ruote Tutte Rc. 279 / Rx. 343 / Pres.151
Estr.n. 10257 29.06.2023 50.63 Ruote Tutte Rc. 279 / Rx. 279 / Pres.156
-----------------------------------------------
Periodo di calcolo : 3950 14.09.1946 : 10258 01.07.2023
Estr.n. 10258 01.07.2023 8.40 Ruote Tutte Rc. 280 / Rx. 280 / Pres.151
Estr.n. 10258 01.07.2023 30.43 Ruote Tutte Rc. 285 / Rx. 285 / Pres.164
Estr.n. 10258 01.07.2023 30.63 Ruote Tutte Rc. 280 / Rx. 343 / Pres.151
Estr.n. 10258 01.07.2023 50.63 Ruote Tutte Rc. 280 / Rx. 280 / Pres.156
-----------------------------------------------
Periodo di calcolo : 3950 14.09.1946 : 10259 04.07.2023
Estr.n. 10259 04.07.2023 8.40 Ruote Tutte Rc. 281 / Rx. 281 / Pres.151
Estr.n. 10259 04.07.2023 30.43 Ruote Tutte Rc. 286 / Rx. 286 / Pres.164
Estr.n. 10259 04.07.2023 30.63 Ruote Tutte Rc. 281 / Rx. 343 / Pres.151
Estr.n. 10259 04.07.2023 50.63 Ruote Tutte Rc. 281 / Rx. 281 / Pres.156
-----------------------------------------------
Periodo di calcolo : 3950 14.09.1946 : 10260 06.07.2023
Estr.n. 10260 06.07.2023 8.40 Ruote Tutte Rc. 282 / Rx. 282 / Pres.151
Estr.n. 10260 06.07.2023 30.43 Ruote Tutte Rc. 287 / Rx. 287 / Pres.164
Estr.n. 10260 06.07.2023 30.63 Ruote Tutte Rc. 282 / Rx. 343 / Pres.151
Estr.n. 10260 06.07.2023 50.63 Ruote Tutte Rc. 282 / Rx. 282 / Pres.156
-----------------------------------------------
Periodo di calcolo : 3950 14.09.1946 : 10261 07.07.2023
Estr.n. 10261 07.07.2023 8.40 Ruote Tutte Rc. 283 / Rx. 283 / Pres.151
Estr.n. 10261 07.07.2023 30.43 Ruote Tutte Rc. 288 / Rx. 288 / Pres.164
Estr.n. 10261 07.07.2023 30.63 Ruote Tutte Rc. 283 / Rx. 343 / Pres.151
Estr.n. 10261 07.07.2023 50.63 Ruote Tutte Rc. 283 / Rx. 283 / Pres.156
-----------------------------------------------
Periodo di calcolo : 3950 14.09.1946 : 10262 08.07.2023
Estr.n. 10262 08.07.2023 8.40 Ruote Tutte Rc. 284 / Rx. 284 / Pres.151
Estr.n. 10262 08.07.2023 30.43 Ruote Tutte Rc. 289 / Rx. 289 / Pres.164
Estr.n. 10262 08.07.2023 30.63 Ruote Tutte Rc. 284 / Rx. 343 / Pres.151
Estr.n. 10262 08.07.2023 50.63 Ruote Tutte Rc. 284 / Rx. 284 / Pres.156
-----------------------------------------------
Periodo di calcolo : 3950 14.09.1946 : 10263 11.07.2023
Estr.n. 10263 11.07.2023 8.40 Ruote Tutte Rc. 285 / Rx. 285 / Pres.151
Estr.n. 10263 11.07.2023 30.43 Ruote Tutte Rc. 290 / Rx. 290 / Pres.164
Estr.n. 10263 11.07.2023 30.63 Ruote Tutte Rc. 285 / Rx. 343 / Pres.151
Estr.n. 10263 11.07.2023 50.63 Ruote Tutte Rc. 285 / Rx. 285 / Pres.156
-----------------------------------------------
Periodo di calcolo : 3950 14.09.1946 : 10264 13.07.2023
Estr.n. 10264 13.07.2023 8.40 Ruote Tutte Rc. 286 / Rx. 286 / Pres.151
Estr.n. 10264 13.07.2023 30.43 Ruote Tutte Rc. 291 / Rx. 291 / Pres.164
Estr.n. 10264 13.07.2023 30.63 Ruote Tutte Rc. 286 / Rx. 343 / Pres.151
Estr.n. 10264 13.07.2023 50.63 Ruote Tutte Rc. 286 / Rx. 286 / Pres.156
-----------------------------------------------
Periodo di calcolo : 3950 14.09.1946 : 10265 14.07.2023
Estr.n. 10265 14.07.2023 8.40 Ruote Tutte Rc. 287 / Rx. 287 / Pres.151
Estr.n. 10265 14.07.2023 30.43 Ruote Tutte Rc. 292 / Rx. 292 / Pres.164
Estr.n. 10265 14.07.2023 30.63 Ruote Tutte Rc. 287 / Rx. 343 / Pres.151
Estr.n. 10265 14.07.2023 50.63 Ruote Tutte Rc. 287 / Rx. 287 / Pres.156
-----------------------------------------------
Periodo di calcolo : 3950 14.09.1946 : 10266 15.07.2023
Estr.n. 10266 15.07.2023 8.40 Ruote Tutte Rc. 288 / Rx. 288 / Pres.151
Estr.n. 10266 15.07.2023 30.43 Ruote Tutte Rc. 293 / Rx. 293 / Pres.164
Estr.n. 10266 15.07.2023 30.63 Ruote Tutte Rc. 288 / Rx. 343 / Pres.151
Estr.n. 10266 15.07.2023 50.63 Ruote Tutte Rc. 288 / Rx. 288 / Pres.156
-----------------------------------------------
Periodo di calcolo : 3950 14.09.1946 : 10267 18.07.2023
Estr.n. 10267 18.07.2023 8.40 Ruote Tutte Rc. 289 / Rx. 289 / Pres.151
Estr.n. 10267 18.07.2023 30.43 Ruote Tutte Rc. 294 / Rx. 294 / Pres.164
Estr.n. 10267 18.07.2023 30.63 Ruote Tutte Rc. 289 / Rx. 343 / Pres.151
Estr.n. 10267 18.07.2023 50.63 Ruote Tutte Rc. 289 / Rx. 289 / Pres.156
-----------------------------------------------
Periodo di calcolo : 3950 14.09.1946 : 10268 20.07.2023
Estr.n. 10268 20.07.2023 8.40 Ruote Tutte Rc. 290 / Rx. 290 / Pres.151
Estr.n. 10268 20.07.2023 30.43 Ruote Tutte Rc. 295 / Rx. 295 / Pres.164
Estr.n. 10268 20.07.2023 30.63 Ruote Tutte Rc. 290 / Rx. 343 / Pres.151
Estr.n. 10268 20.07.2023 50.63 Ruote Tutte Rc. 290 / Rx. 290 / Pres.156
-----------------------------------------------
Periodo di calcolo : 3950 14.09.1946 : 10269 21.07.2023
Estr.n. 10269 21.07.2023 8.40 Ruote Tutte Rc. 291 / Rx. 291 / Pres.151
Estr.n. 10269 21.07.2023 30.43 Ruote Tutte Rc. 296 / Rx. 296 / Pres.164
Estr.n. 10269 21.07.2023 30.63 Ruote Tutte Rc. 291 / Rx. 343 / Pres.151
Estr.n. 10269 21.07.2023 50.63 Ruote Tutte Rc. 291 / Rx. 291 / Pres.156
-----------------------------------------------
Periodo di calcolo : 3950 14.09.1946 : 10270 22.07.2023
Estr.n. 10270 22.07.2023 8.40 Ruote Tutte Rc. 292 / Rx. 292 / Pres.151
Estr.n. 10270 22.07.2023 30.43 Ruote Tutte Rc. 297 / Rx. 297 / Pres.164
Estr.n. 10270 22.07.2023 30.63 Ruote Tutte Rc. 292 / Rx. 343 / Pres.151
Estr.n. 10270 22.07.2023 50.63 Ruote Tutte Rc. 292 / Rx. 292 / Pres.156
-----------------------------------------------
Periodo di calcolo : 3950 14.09.1946 : 10271 25.07.2023
Estr.n. 10271 25.07.2023 8.40 Ruote Tutte Rc. 293 / Rx. 293 / Pres.151
Estr.n. 10271 25.07.2023 16.77 Ruote Tutte Rc. 270 / Rx. 270 / Pres.146
Estr.n. 10271 25.07.2023 30.43 Ruote Tutte Rc. 298 / Rx. 298 / Pres.164
Estr.n. 10271 25.07.2023 30.63 Ruote Tutte Rc. 293 / Rx. 343 / Pres.151
Estr.n. 10271 25.07.2023 50.63 Ruote Tutte Rc. 293 / Rx. 293 / Pres.156
-----------------------------------------------
Periodo di calcolo : 3950 14.09.1946 : 10272 27.07.2023
Estr.n. 10272 27.07.2023 8.40 Ruote Tutte Rc. 294 / Rx. 294 / Pres.151
Estr.n. 10272 27.07.2023 16.77 Ruote Tutte Rc. 271 / Rx. 271 / Pres.146
Estr.n. 10272 27.07.2023 30.43 Ruote Tutte Rc. 299 / Rx. 299 / Pres.164
Estr.n. 10272 27.07.2023 30.63 Ruote Tutte Rc. 294 / Rx. 343 / Pres.151
Estr.n. 10272 27.07.2023 50.63 Ruote Tutte Rc. 294 / Rx. 294 / Pres.156
Estr.n. 10272 27.07.2023 57.63 Ruote Tutte Rc. 270 / Rx. 270 / Pres.148
-----------------------------------------------
Periodo di calcolo : 3950 14.09.1946 : 10273 28.07.2023
Estr.n. 10273 28.07.2023 8.40 Ruote Tutte Rc. 295 / Rx. 295 / Pres.151
Estr.n. 10273 28.07.2023 16.77 Ruote Tutte Rc. 272 / Rx. 272 / Pres.146
Estr.n. 10273 28.07.2023 30.43 Ruote Tutte Rc. 300 / Rx. 300 / Pres.164
Estr.n. 10273 28.07.2023 30.63 Ruote Tutte Rc. 295 / Rx. 343 / Pres.151
Estr.n. 10273 28.07.2023 50.63 Ruote Tutte Rc. 295 / Rx. 295 / Pres.156
Estr.n. 10273 28.07.2023 57.63 Ruote Tutte Rc. 271 / Rx. 271 / Pres.148
-----------------------------------------------
Periodo di calcolo : 3950 14.09.1946 : 10274 29.07.2023
Estr.n. 10274 29.07.2023 8.40 Ruote Tutte Rc. 296 / Rx. 296 / Pres.151
Estr.n. 10274 29.07.2023 16.77 Ruote Tutte Rc. 273 / Rx. 273 / Pres.146
Estr.n. 10274 29.07.2023 30.43 Ruote Tutte Rc. 301 / Rx. 301 / Pres.164
Estr.n. 10274 29.07.2023 30.63 Ruote Tutte Rc. 296 / Rx. 343 / Pres.151
Estr.n. 10274 29.07.2023 50.63 Ruote Tutte Rc. 296 / Rx. 296 / Pres.156
Estr.n. 10274 29.07.2023 57.63 Ruote Tutte Rc. 272 / Rx. 272 / Pres.148
-----------------------------------------------
Periodo di calcolo : 3950 14.09.1946 : 10275 01.08.2023
Estr.n. 10275 01.08.2023 8.40 Ruote Tutte Rc. 297 / Rx. 297 / Pres.151
Estr.n. 10275 01.08.2023 16.77 Ruote Tutte Rc. 274 / Rx. 274 / Pres.146
Estr.n. 10275 01.08.2023 30.43 Ruote Tutte Rc. 302 / Rx. 302 / Pres.164
Estr.n. 10275 01.08.2023 30.63 Ruote Tutte Rc. 297 / Rx. 343 / Pres.151
Estr.n. 10275 01.08.2023 50.63 Ruote Tutte Rc. 297 / Rx. 297 / Pres.156
Estr.n. 10275 01.08.2023 57.63 Ruote Tutte Rc. 273 / Rx. 273 / Pres.148
-----------------------------------------------
Periodo di calcolo : 3950 14.09.1946 : 10276 03.08.2023
Estr.n. 10276 03.08.2023 8.40 Ruote Tutte Rc. 298 / Rx. 298 / Pres.151
Estr.n. 10276 03.08.2023 16.77 Ruote Tutte Rc. 275 / Rx. 275 / Pres.146
Estr.n. 10276 03.08.2023 30.43 Ruote Tutte Rc. 303 / Rx. 303 / Pres.164
Estr.n. 10276 03.08.2023 30.63 Ruote Tutte Rc. 298 / Rx. 343 / Pres.151
Estr.n. 10276 03.08.2023 50.63 Ruote Tutte Rc. 298 / Rx. 298 / Pres.156
Estr.n. 10276 03.08.2023 57.63 Ruote Tutte Rc. 274 / Rx. 274 / Pres.148
-----------------------------------------------
Periodo di calcolo : 3950 14.09.1946 : 10277 04.08.2023
Estr.n. 10277 04.08.2023 8.40 Ruote Tutte Rc. 299 / Rx. 299 / Pres.151
Estr.n. 10277 04.08.2023 16.77 Ruote Tutte Rc. 276 / Rx. 276 / Pres.146
Estr.n. 10277 04.08.2023 30.43 Ruote Tutte Rc. 304 / Rx. 304 / Pres.164
Estr.n. 10277 04.08.2023 30.63 Ruote Tutte Rc. 299 / Rx. 343 / Pres.151
Estr.n. 10277 04.08.2023 50.63 Ruote Tutte Rc. 299 / Rx. 299 / Pres.156
Estr.n. 10277 04.08.2023 57.63 Ruote Tutte Rc. 275 / Rx. 275 / Pres.148
-----------------------------------------------
Periodo di calcolo : 3950 14.09.1946 : 10278 05.08.2023
Estr.n. 10278 05.08.2023 8.40 Ruote Tutte Rc. 300 / Rx. 300 / Pres.151
Estr.n. 10278 05.08.2023 16.77 Ruote Tutte Rc. 277 / Rx. 277 / Pres.146
Estr.n. 10278 05.08.2023 30.43 Ruote Tutte Rc. 305 / Rx. 305 / Pres.164
Estr.n. 10278 05.08.2023 30.63 Ruote Tutte Rc. 300 / Rx. 343 / Pres.151
Estr.n. 10278 05.08.2023 50.63 Ruote Tutte Rc. 300 / Rx. 300 / Pres.156
Estr.n. 10278 05.08.2023 57.63 Ruote Tutte Rc. 276 / Rx. 276 / Pres.148
-----------------------------------------------
Periodo di calcolo : 3950 14.09.1946 : 10279 08.08.2023
Estr.n. 10279 08.08.2023 8.40 Ruote Tutte Rc. 301 / Rx. 301 / Pres.151
Estr.n. 10279 08.08.2023 16.77 Ruote Tutte Rc. 278 / Rx. 278 / Pres.146
Estr.n. 10279 08.08.2023 30.43 Ruote Tutte Rc. 306 / Rx. 306 / Pres.164
Estr.n. 10279 08.08.2023 30.63 Ruote Tutte Rc. 301 / Rx. 343 / Pres.151
Estr.n. 10279 08.08.2023 50.63 Ruote Tutte Rc. 301 / Rx. 301 / Pres.156
Estr.n. 10279 08.08.2023 57.63 Ruote Tutte Rc. 277 / Rx. 277 / Pres.148
no so fammi sapere se ti va bene!