Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
Sub Main
Dim ambo1(2),ambo2(2),ambo3(2),Ru(2)
Dim posta(2)
posta(2) = 1
'Ambata: 5° Estratto di Bari + 39
'1- Abbinamento per Ambo: 1° Estratto di Napoli + 2° Estratto di Napoli + 86
'2 - Abbinamento per Ambo: 2° Estratto di Bari + 5° Estratto di Roma + 26
'3 - Abbinamento per Ambo: 3° Estratto di Bari + 3° Estratto Nazionale + 32
Ini = EstrazioneFin - 130
fin = EstrazioneFin
For es = Ini To fin
If IndiceMensile(es) = 1 Then
k = k + 1
ambo1(1) = Fuori90(Estratto(es,BA_,5) + 39)
ambo1(2) = Fuori90(Estratto(es,NA_,1) + Estratto(es,NA_,2) + 86)
ambo2(1) = ambo1(1)
ambo2(2) = Fuori90(Estratto(es,BA_,2) + Estratto(es,RO_,5) + 26)
ambo3(1) = ambo1(1)
ambo3(2) = Fuori90(Estratto(es,BA_,3) + Estratto(es,NZ_,3) + 32)
Ru(1) = 11
Ru(2) = 12
ImpostaGiocata 1,ambo1,Ru,posta,13,2
ImpostaGiocata 2,ambo2,Ru,posta,13,2
ImpostaGiocata 3,ambo3,Ru,posta,13,2
Gioca es,1
Scrivi String(100,"=") & " Caso n." & k
End If
Next
ScriviResoconto
End Sub
Mike58;n2153490 ha scritto:eccolo alien (ma l'estrazione di rilevamento è la 1° del mese)
e poi dove è finito il mio consiglio ad imparare a far da sé un qualcosina di semplice come questo.
Codice:Sub Main Dim ambo1(2),ambo2(2),ambo3(2),Ru(2) Dim posta(2) posta(2) = 1 'Ambata: 5° Estratto di Bari + 39 '1- Abbinamento per Ambo: 1° Estratto di Napoli + 2° Estratto di Napoli + 86 '2 - Abbinamento per Ambo: 2° Estratto di Bari + 5° Estratto di Roma + 26 '3 - Abbinamento per Ambo: 3° Estratto di Bari + 3° Estratto Nazionale + 32 Ini = EstrazioneFin - 130 fin = EstrazioneFin For es = Ini To fin If IndiceMensile(es) = 1 Then k = k + 1 ambo1(1) = Fuori90(Estratto(es,BA_,5) + 39) ambo1(2) = Fuori90(Estratto(es,NA_,1) + Estratto(es,NA_,2) + 86) ambo2(1) = ambo1(1) ambo2(2) = Fuori90(Estratto(es,BA_,2) + Estratto(es,RO_,5) + 26) ambo3(1) = amb ea tutti i forummistio1(1) ambo3(2) = Fuori90(Estratto(es,BA_,3) + Estratto(es,NZ_,3) + 32) Ru(1) = 11 Ru(2) = 12 ImpostaGiocata 1,ambo1,Ru,posta,13,2 ImpostaGiocata 2,ambo2,Ru,posta,13,2 ImpostaGiocata 3,ambo3,Ru,posta,13,2 Gioca es,1 Scrivi String(100,"=") & " Caso n." & k End If Next ScriviResoconto End Sub
[TABLE="border: 0, cellpadding: 0, cellspacing: 0, width: 530"]
[TR]
[TD="class: xl64, width: 41"]Inizio[/TD]
[TD="class: xl64, width: 157"]09457 - 07/04/2018[/TD]
[TD="class: xl64, width: 133"] [/TD]
[TD="class: xl64, width: 43"] [/TD]
[TD="class: xl64, width: 70"] [/TD]
[TD="class: xl64, width: 69"] [/TD]
[TD="class: xl64, width: 90"] [/TD]
[TD="class: xl64, width: 39"] [/TD]
[TD="class: xl64, width: 63"] [/TD]
[/TR]
[TR]
[TD="class: xl64"]Fine[/TD]
[TD="class: xl64"]09586 - 02/02/2019[/TD]
[TD="class: xl64"] [/TD]
[TD="class: xl64"] [/TD]
[TD="class: xl64"] [/TD]
[TD="class: xl64"] [/TD]
[TD="class: xl64"] [/TD]
[TD="class: xl64"] [/TD]
[TD="class: xl64"] [/TD]
[/TR]
[TR]
[TD="class: xl64"]N.[/TD]
[TD="class: xl64"]Estrazione pronostico[/TD]
[TD="class: xl64"]Estrazione vincente[/TD]
[TD="class: xl64"]Ruota[/TD]
[TD="class: xl64"]Adattatori[/TD]
[TD="class: xl64"]Num base[/TD]
[TD="class: xl64"]Numeri usciti[/TD]
[TD="class: xl64"]Colpi[/TD]
[TD="class: xl64"]Stato[/TD]
[/TR]
[TR]
[TD="class: xl67"]11[/TD]
[TD="class: xl65"]09467 - 02/05/2018[/TD]
[TD="class: xl65"]09468 - 03/05/2018[/TD]
[TD="class: xl65"]NZ[/TD]
[TD="class: xl67"]39[/TD]
[TD="class: xl67"]18[/TD]
[TD="class: xl67"]57[/TD]
[TD="class: xl67"]1[/TD]
[TD="class: xl65"]Vincente[/TD]
[/TR]
[TR]
[TD="class: xl67"]11[/TD]
[TD="class: xl65"]09467 - 02/05/2018[/TD]
[TD="class: xl65"]09470 - 08/05/2018[/TD]
[TD="class: xl65"]MI[/TD]
[TD="class: xl67"]39[/TD]
[TD="class: xl67"]18[/TD]
[TD="class: xl67"]57[/TD]
[TD="class: xl67"]3[/TD]
[TD="class: xl65"] [/TD]
[/TR]
[TR]
[TD="class: xl67"]11[/TD]
[TD="class: xl65"]09467 - 02/05/2018[/TD]
[TD="class: xl65"]09472 - 12/05/2018[/TD]
[TD="class: xl65"]CA[/TD]
[TD="class: xl67"]39[/TD]
[TD="class: xl67"]18[/TD]
[TD="class: xl67"]57[/TD]
[TD="class: xl67"]5[/TD]
[TD="class: xl65"] [/TD]
[/TR]
[TR]
[TD="class: xl67"]11[/TD]
[TD="class: xl65"]09467 - 02/05/2018[/TD]
[TD="class: xl65"]09473 - 15/05/2018[/TD]
[TD="class: xl65"]VE[/TD]
[TD="class: xl67"]39[/TD]
[TD="class: xl67"]18[/TD]
[TD="class: xl67"]57[/TD]
[TD="class: xl67"]6[/TD]
[TD="class: xl65"] [/TD]
[/TR]
[TR]
[TD="class: xl67"]11[/TD]
[TD="class: xl65"]09467 - 02/05/2018[/TD]
[TD="class: xl65"]09475 - 19/05/2018[/TD]
[TD="class: xl65"]NA[/TD]
[TD="class: xl67"]39[/TD]
[TD="class: xl67"]18[/TD]
[TD="class: xl67"]57[/TD]
[TD="class: xl67"]8[/TD]
[TD="class: xl65"] [/TD]
[/TR]
[TR]
[TD="class: xl67"]11[/TD]
[TD="class: xl65"]09467 - 02/05/2018[/TD]
[TD="class: xl65"]09477 - 24/05/2018[/TD]
[TD="class: xl65"]BA[/TD]
[TD="class: xl67"]39[/TD]
[TD="class: xl67"]18[/TD]
[TD="class: xl67"]57[/TD]
[TD="class: xl67"]10[/TD]
[TD="class: xl65"] [/TD]
[/TR]
[TR]
[TD="class: xl67"]11[/TD]
[TD="class: xl65"]09467 - 02/05/2018[/TD]
[TD="class: xl65"]09478 - 26/05/2018[/TD]
[TD="class: xl65"]MI[/TD]
[TD="class: xl67"]39[/TD]
[TD="class: xl67"]18[/TD]
[TD="class: xl67"]57[/TD]
[TD="class: xl67"]11[/TD]
[TD="class: xl65"] [/TD]
[/TR]
[TR]
[TD="class: xl67"]12[/TD]
[TD="class: xl65"]09481 - 04/06/2018[/TD]
[TD="class: xl65"]09482 - 05/06/2018[/TD]
[TD="class: xl65"]TO[/TD]
[TD="class: xl67"]39[/TD]
[TD="class: xl67"]6[/TD]
[TD="class: xl67"]45[/TD]
[TD="class: xl67"]1[/TD]
[TD="class: xl65"]Vincente[/TD]
[/TR]
[TR]
[TD="class: xl67"]12[/TD]
[TD="class: xl65"]09481 - 04/06/2018[/TD]
[TD="class: xl65"]09483 - 07/06/2018[/TD]
[TD="class: xl65"]GE[/TD]
[TD="class: xl67"]39[/TD]
[TD="class: xl67"]6[/TD]
[TD="class: xl67"]45[/TD]
[TD="class: xl67"]2[/TD]
[TD="class: xl65"] [/TD]
[/TR]
[TR]
[TD="class: xl67"]12[/TD]
[TD="class: xl65"]09481 - 04/06/2018[/TD]
[TD="class: xl65"]09485 - 12/06/2018[/TD]
[TD="class: xl65"]PA[/TD]
[TD="class: xl67"]39[/TD]
[TD="class: xl67"]6[/TD]
[TD="class: xl67"]45[/TD]
[TD="class: xl67"]4[/TD]
[TD="class: xl65"] [/TD]
[/TR]
[TR]
[TD="class: xl67"]12[/TD]
[TD="class: xl65"]09481 - 04/06/2018[/TD]
[TD="class: xl65"]09486 - 14/06/2018[/TD]
[TD="class: xl65"]RO[/TD]
[TD="class: xl67"]39[/TD]
[TD="class: xl67"]6[/TD]
[TD="class: xl67"]45[/TD]
[TD="class: xl67"]5[/TD]
[TD="class: xl65"] [/TD]
[/TR]
[TR]
[TD="class: xl67"]12[/TD]
[TD="class: xl65"]09481 - 04/06/2018[/TD]
[TD="class: xl65"]09487 - 16/06/2018[/TD]
[TD="class: xl65"]FI[/TD]
[TD="class: xl67"]39[/TD]
[TD="class: xl67"]6[/TD]
[TD="class: xl67"]45[/TD]
[TD="class: xl67"]6[/TD]
[TD="class: xl65"] [/TD]
[/TR]
[TR]
[TD="class: xl67"]12[/TD]
[TD="class: xl65"]09481 - 04/06/2018[/TD]
[TD="class: xl65"]09490 - 23/06/2018[/TD]
[TD="class: xl65"]RO[/TD]
[TD="class: xl67"]39[/TD]
[TD="class: xl67"]6[/TD]
[TD="class: xl67"]45[/TD]
[TD="class: xl67"]9[/TD]
[TD="class: xl65"] [/TD]
[/TR]
[TR]
[TD="class: xl67"]12[/TD]
[TD="class: xl65"]09481 - 04/06/2018[/TD]
[TD="class: xl65"]09491 - 26/06/2018[/TD]
[TD="class: xl65"]BA[/TD]
[TD="class: xl67"]39[/TD]
[TD="class: xl67"]6[/TD]
[TD="class: xl67"]45[/TD]
[TD="class: xl67"]10[/TD]
[TD="class: xl65"] [/TD]
[/TR]
[TR]
[TD="class: xl67"]12[/TD]
[TD="class: xl65"]09481 - 04/06/2018[/TD]
[TD="class: xl65"]09492 - 28/06/2018[/TD]
[TD="class: xl65"]NZ[/TD]
[TD="class: xl67"]39[/TD]
[TD="class: xl67"]6[/TD]
[TD="class: xl67"]45[/TD]
[TD="class: xl67"]11[/TD]
[TD="class: xl65"] [/TD]
[/TR]
[TR]
[TD="class: xl67"]12[/TD]
[TD="class: xl65"]09481 - 04/06/2018[/TD]
[TD="class: xl65"]09494 - 03/07/2018[/TD]
[TD="class: xl65"]FI[/TD]
[TD="class: xl67"]39[/TD]
[TD="class: xl67"]6[/TD]
[TD="class: xl67"]45[/TD]
[TD="class: xl67"]13[/TD]
[TD="class: xl65"] [/TD]
[/TR]
[TR]
[TD="class: xl67"]13[/TD]
[TD="class: xl65"]09494 - 03/07/2018[/TD]
[TD="class: xl65"]09495 - 05/07/2018[/TD]
[TD="class: xl65"]BA[/TD]
[TD="class: xl67"]39[/TD]
[TD="class: xl67"]44[/TD]
[TD="class: xl67"]83[/TD]
[TD="class: xl67"]1[/TD]
[TD="class: xl65"]Vincente[/TD]
[/TR]
[TR]
[TD="class: xl67"]13[/TD]
[TD="class: xl65"]09494 - 03/07/2018[/TD]
[TD="class: xl65"]09496 - 07/07/2018[/TD]
[TD="class: xl65"]GE[/TD]
[TD="class: xl67"]39[/TD]
[TD="class: xl67"]44[/TD]
[TD="class: xl67"]83[/TD]
[TD="class: xl67"]2[/TD]
[TD="class: xl65"] [/TD]
[/TR]
[TR]
[TD="class: xl67"]13[/TD]
[TD="class: xl65"]09494 - 03/07/2018[/TD]
[TD="class: xl65"]09498 - 12/07/2018[/TD]
[TD="class: xl65"]GE[/TD]
[TD="class: xl67"]39[/TD]
[TD="class: xl67"]44[/TD]
[TD="class: xl67"]83[/TD]
[TD="class: xl67"]4[/TD]
[TD="class: xl65"] [/TD]
[/TR]
[TR]
[TD="class: xl67"]13[/TD]
[TD="class: xl65"]09494 - 03/07/2018[/TD]
[TD="class: xl65"]09499 - 14/07/2018[/TD]
[TD="class: xl65"]GE[/TD]
[TD="class: xl67"]39[/TD]
[TD="class: xl67"]44[/TD]
[TD="class: xl67"]83[/TD]
[TD="class: xl67"]5[/TD]
[TD="class: xl65"] [/TD]
[/TR]
[TR]
[TD="class: xl67"]13[/TD]
[TD="class: xl65"]09494 - 03/07/2018[/TD]
[TD="class: xl65"]09502 - 21/07/2018[/TD]
[TD="class: xl65"]BA[/TD]
[TD="class: xl67"]39[/TD]
[TD="class: xl67"]44[/TD]
[TD="class: xl67"]83[/TD]
[TD="class: xl67"]8[/TD]
[TD="class: xl65"] [/TD]
[/TR]
[TR]
[TD="class: xl67"]13[/TD]
[TD="class: xl65"]09494 - 03/07/2018[/TD]
[TD="class: xl65"]09503 - 24/07/2018[/TD]
[TD="class: xl65"]RO[/TD]
[TD="class: xl67"]39[/TD]
[TD="class: xl67"]44[/TD]
[TD="class: xl67"]83[/TD]
[TD="class: xl67"]9[/TD]
[TD="class: xl65"] [/TD]
[/TR]
[TR]
[TD="class: xl67"]13[/TD]
[TD="class: xl65"]09494 - 03/07/2018[/TD]
[TD="class: xl65"]09505 - 28/07/2018[/TD]
[TD="class: xl65"]MI[/TD]
[TD="class: xl67"]39[/TD]
[TD="class: xl67"]44[/TD]
[TD="class: xl67"]83[/TD]
[TD="class: xl67"]11[/TD]
[TD="class: xl65"] [/TD]
[/TR]
[TR]
[TD="class: xl67"]13[/TD]
[TD="class: xl65"]09494 - 03/07/2018[/TD]
[TD="class: xl65"]09507 - 02/08/2018[/TD]
[TD="class: xl65"]BA[/TD]
[TD="class: xl67"]39[/TD]
[TD="class: xl67"]44[/TD]
[TD="class: xl67"]83[/TD]
[TD="class: xl67"]13[/TD]
[TD="class: xl65"] [/TD]
[/TR]
[TR]
[TD="class: xl67"]14[/TD]
[TD="class: xl65"]09507 - 02/08/2018[/TD]
[TD="class: xl65"]09508 - 04/08/2018[/TD]
[TD="class: xl65"]CA[/TD]
[TD="class: xl67"]39[/TD]
[TD="class: xl67"]27[/TD]
[TD="class: xl67"]66[/TD]
[TD="class: xl67"]1[/TD]
[TD="class: xl65"]Vincente[/TD]
[/TR]
[TR]
[TD="class: xl67"]14[/TD]
[TD="class: xl65"]09507 - 02/08/2018[/TD]
[TD="class: xl65"]09509 - 07/08/2018[/TD]
[TD="class: xl65"]CA[/TD]
[TD="class: xl67"]39[/TD]
[TD="class: xl67"]27[/TD]
[TD="class: xl67"]66[/TD]
[TD="class: xl67"]2[/TD]
[TD="class: xl65"] [/TD]
[/TR]
[TR]
[TD="class: xl67"]14[/TD]
[TD="class: xl65"]09507 - 02/08/2018[/TD]
[TD="class: xl65"]09519 - 30/08/2018[/TD]
[TD="class: xl65"]MI[/TD]
[TD="class: xl67"]39[/TD]
[TD="class: xl67"]27[/TD]
[TD="class: xl67"]66[/TD]
[TD="class: xl67"]12[/TD]
[TD="class: xl65"] [/TD]
[/TR]
[TR]
[TD="class: xl67"]14[/TD]
[TD="class: xl65"]09507 - 02/08/2018[/TD]
[TD="class: xl65"]09520 - 01/09/2018[/TD]
[TD="class: xl65"]NZ[/TD]
[TD="class: xl67"]39[/TD]
[TD="class: xl67"]27[/TD]
[TD="class: xl67"]66[/TD]
[TD="class: xl67"]13[/TD]
[TD="class: xl65"] [/TD]
[/TR]
[TR]
[TD="class: xl67"]15[/TD]
[TD="class: xl65"]09520 - 01/09/2018[/TD]
[TD="class: xl65"]09522 - 06/09/2018[/TD]
[TD="class: xl65"]RO[/TD]
[TD="class: xl67"]39[/TD]
[TD="class: xl67"]4[/TD]
[TD="class: xl67"]43[/TD]
[TD="class: xl67"]2[/TD]
[TD="class: xl65"]Vincente[/TD]
[/TR]
[TR]
[TD="class: xl67"]15[/TD]
[TD="class: xl65"]09520 - 01/09/2018[/TD]
[TD="class: xl65"]09523 - 08/09/2018[/TD]
[TD="class: xl65"]NZ[/TD]
[TD="class: xl67"]39[/TD]
[TD="class: xl67"]4[/TD]
[TD="class: xl67"]43[/TD]
[TD="class: xl67"]3[/TD]
[TD="class: xl65"] [/TD]
[/TR]
[TR]
[TD="class: xl67"]15[/TD]
[TD="class: xl65"]09520 - 01/09/2018[/TD]
[TD="class: xl65"]09526 - 15/09/2018[/TD]
[TD="class: xl65"]NZ[/TD]
[TD="class: xl67"]39[/TD]
[TD="class: xl67"]4[/TD]
[TD="class: xl67"]43[/TD]
[TD="class: xl67"]6[/TD]
[TD="class: xl65"] [/TD]
[/TR]
[TR]
[TD="class: xl67"]15[/TD]
[TD="class: xl65"]09520 - 01/09/2018[/TD]
[TD="class: xl65"]09528 - 20/09/2018[/TD]
[TD="class: xl65"]CA[/TD]
[TD="class: xl67"]39[/TD]
[TD="class: xl67"]4[/TD]
[TD="class: xl67"]43[/TD]
[TD="class: xl67"]8[/TD]
[TD="class: xl65"] [/TD]
[/TR]
[TR]
[TD="class: xl67"]15[/TD]
[TD="class: xl65"]09520 - 01/09/2018[/TD]
[TD="class: xl65"]09529 - 22/09/2018[/TD]
[TD="class: xl65"]VE[/TD]
[TD="class: xl67"]39[/TD]
[TD="class: xl67"]4[/TD]
[TD="class: xl67"]43[/TD]
[TD="class: xl67"]9[/TD]
[TD="class: xl65"] [/TD]
[/TR]
[TR]
[TD="class: xl67"]15[/TD]
[TD="class: xl65"]09520 - 01/09/2018[/TD]
[TD="class: xl65"]09530 - 25/09/2018[/TD]
[TD="class: xl65"]CA[/TD]
[TD="class: xl67"]39[/TD]
[TD="class: xl67"]4[/TD]
[TD="class: xl67"]43[/TD]
[TD="class: xl67"]10[/TD]
[TD="class: xl65"] [/TD]
[/TR]
[TR]
[TD="class: xl67"]15[/TD]
[TD="class: xl65"]09520 - 01/09/2018[/TD]
[TD="class: xl65"]09531 - 27/09/2018[/TD]
[TD="class: xl65"]TO[/TD]
[TD="class: xl67"]39[/TD]
[TD="class: xl67"]4[/TD]
[TD="class: xl67"]43[/TD]
[TD="class: xl67"]11[/TD]
[TD="class: xl65"] [/TD]
[/TR]
[TR]
[TD="class: xl67"]15[/TD]
[TD="class: xl65"]09520 - 01/09/2018[/TD]
[TD="class: xl65"]09533 - 02/10/2018[/TD]
[TD="class: xl65"]CA[/TD]
[TD="class: xl67"]39[/TD]
[TD="class: xl67"]4[/TD]
[TD="class: xl67"]43[/TD]
[TD="class: xl67"]13[/TD]
[TD="class: xl65"] [/TD]
[/TR]
[TR]
[TD="class: xl67"]16[/TD]
[TD="class: xl65"]09533 - 02/10/2018[/TD]
[TD="class: xl65"]09534 - 04/10/2018[/TD]
[TD="class: xl65"]TO[/TD]
[TD="class: xl67"]39[/TD]
[TD="class: xl67"]70[/TD]
[TD="class: xl67"]19[/TD]
[TD="class: xl67"]1[/TD]
[TD="class: xl65"]Vincente[/TD]
[/TR]
[TR]
[TD="class: xl67"]16[/TD]
[TD="class: xl65"]09533 - 02/10/2018[/TD]
[TD="class: xl65"]09535 - 06/10/2018[/TD]
[TD="class: xl65"]BA[/TD]
[TD="class: xl67"]39[/TD]
[TD="class: xl67"]70[/TD]
[TD="class: xl67"]19[/TD]
[TD="class: xl67"]2[/TD]
[TD="class: xl65"] [/TD]
[/TR]
[TR]
[TD="class: xl67"]16[/TD]
[TD="class: xl65"]09533 - 02/10/2018[/TD]
[TD="class: xl65"]09536 - 09/10/2018[/TD]
[TD="class: xl65"]BA[/TD]
[TD="class: xl67"]39[/TD]
[TD="class: xl67"]70[/TD]
[TD="class: xl67"]19[/TD]
[TD="class: xl67"]3[/TD]
[TD="class: xl65"] [/TD]
[/TR]
[TR]
[TD="class: xl67"]16[/TD]
[TD="class: xl65"]09533 - 02/10/2018[/TD]
[TD="class: xl65"]09537 - 11/10/2018[/TD]
[TD="class: xl65"]FI[/TD]
[TD="class: xl67"]39[/TD]
[TD="class: xl67"]70[/TD]
[TD="class: xl67"]19[/TD]
[TD="class: xl67"]4[/TD]
[TD="class: xl65"] [/TD]
[/TR]
[TR]
[TD="class: xl67"]16[/TD]
[TD="class: xl65"]09533 - 02/10/2018[/TD]
[TD="class: xl65"]09539 - 16/10/2018[/TD]
[TD="class: xl65"]RO[/TD]
[TD="class: xl67"]39[/TD]
[TD="class: xl67"]70[/TD]
[TD="class: xl67"]19[/TD]
[TD="class: xl67"]6[/TD]
[TD="class: xl65"] [/TD]
[/TR]
[TR]
[TD="class: xl67"]16[/TD]
[TD="class: xl65"]09533 - 02/10/2018[/TD]
[TD="class: xl65"]09541 - 20/10/2018[/TD]
[TD="class: xl65"]NA[/TD]
[TD="class: xl67"]39[/TD]
[TD="class: xl67"]70[/TD]
[TD="class: xl67"]19[/TD]
[TD="class: xl67"]8[/TD]
[TD="class: xl65"] [/TD]
[/TR]
[TR]
[TD="class: xl67"]17[/TD]
[TD="class: xl65"]09546 - 02/11/2018[/TD]
[TD="class: xl65"]09547 - 03/11/2018[/TD]
[TD="class: xl65"]VE[/TD]
[TD="class: xl67"]39[/TD]
[TD="class: xl67"]24[/TD]
[TD="class: xl67"]63[/TD]
[TD="class: xl67"]1[/TD]
[TD="class: xl65"]Vincente[/TD]
[/TR]
[TR]
[TD="class: xl67"]17[/TD]
[TD="class: xl65"]09546 - 02/11/2018[/TD]
[TD="class: xl65"]09548 - 06/11/2018[/TD]
[TD="class: xl65"]MI[/TD]
[TD="class: xl67"]39[/TD]
[TD="class: xl67"]24[/TD]
[TD="class: xl67"]63[/TD]
[TD="class: xl67"]2[/TD]
[TD="class: xl65"] [/TD]
[/TR]
[TR]
[TD="class: xl67"]17[/TD]
[TD="class: xl65"]09546 - 02/11/2018[/TD]
[TD="class: xl65"]09549 - 08/11/2018[/TD]
[TD="class: xl65"]TO[/TD]
[TD="class: xl67"]39[/TD]
[TD="class: xl67"]24[/TD]
[TD="class: xl67"]63[/TD]
[TD="class: xl67"]3[/TD]
[TD="class: xl65"] [/TD]
[/TR]
[TR]
[TD="class: xl67"]17[/TD]
[TD="class: xl65"]09546 - 02/11/2018[/TD]
[TD="class: xl65"]09556 - 24/11/2018[/TD]
[TD="class: xl65"]NZ[/TD]
[TD="class: xl67"]39[/TD]
[TD="class: xl67"]24[/TD]
[TD="class: xl67"]63[/TD]
[TD="class: xl67"]10[/TD]
[TD="class: xl65"] [/TD]
[/TR]
[TR]
[TD="class: xl67"]17[/TD]
[TD="class: xl65"]09546 - 02/11/2018[/TD]
[TD="class: xl65"]09557 - 27/11/2018[/TD]
[TD="class: xl65"]MI[/TD]
[TD="class: xl67"]39[/TD]
[TD="class: xl67"]24[/TD]
[TD="class: xl67"]63[/TD]
[TD="class: xl67"]11[/TD]
[TD="class: xl65"] [/TD]
[/TR]
[TR]
[TD="class: xl67"]18[/TD]
[TD="class: xl65"]09559 - 01/12/2018[/TD]
[TD="class: xl65"]09561 - 06/12/2018[/TD]
[TD="class: xl65"]PA[/TD]
[TD="class: xl67"]39[/TD]
[TD="class: xl67"]40[/TD]
[TD="class: xl67"]79[/TD]
[TD="class: xl67"]2[/TD]
[TD="class: xl65"]Vincente[/TD]
[/TR]
[TR]
[TD="class: xl67"]18[/TD]
[TD="class: xl65"]09559 - 01/12/2018[/TD]
[TD="class: xl65"]09562 - 10/12/2018[/TD]
[TD="class: xl65"]GE[/TD]
[TD="class: xl67"]39[/TD]
[TD="class: xl67"]40[/TD]
[TD="class: xl67"]79[/TD]
[TD="class: xl67"]3[/TD]
[TD="class: xl65"] [/TD]
[/TR]
[TR]
[TD="class: xl67"]18[/TD]
[TD="class: xl65"]09559 - 01/12/2018[/TD]
[TD="class: xl65"]09564 - 13/12/2018[/TD]
[TD="class: xl65"]CA[/TD]
[TD="class: xl67"]39[/TD]
[TD="class: xl67"]40[/TD]
[TD="class: xl67"]79[/TD]
[TD="class: xl67"]5[/TD]
[TD="class: xl65"] [/TD]
[/TR]
[TR]
[TD="class: xl67"]18[/TD]
[TD="class: xl65"]09559 - 01/12/2018[/TD]
[TD="class: xl65"]09567 - 20/12/2018[/TD]
[TD="class: xl65"]MI[/TD]
[TD="class: xl67"]39[/TD]
[TD="class: xl67"]40[/TD]
[TD="class: xl67"]79[/TD]
[TD="class: xl67"]8[/TD]
[TD="class: xl65"] [/TD]
[/TR]
[TR]
[TD="class: xl67"]18[/TD]
[TD="class: xl65"]09559 - 01/12/2018[/TD]
[TD="class: xl65"]09568 - 22/12/2018[/TD]
[TD="class: xl65"]MI[/TD]
[TD="class: xl67"]39[/TD]
[TD="class: xl67"]40[/TD]
[TD="class: xl67"]79[/TD]
[TD="class: xl67"]9[/TD]
[TD="class: xl65"] [/TD]
[/TR]
[TR]
[TD="class: xl67"]18[/TD]
[TD="class: xl65"]09559 - 01/12/2018[/TD]
[TD="class: xl65"]09570 - 27/12/2018[/TD]
[TD="class: xl65"]NZ[/TD]
[TD="class: xl67"]39[/TD]
[TD="class: xl67"]40[/TD]
[TD="class: xl67"]79[/TD]
[TD="class: xl67"]11[/TD]
[TD="class: xl65"] [/TD]
[/TR]
[TR]
[TD="class: xl67"]18[/TD]
[TD="class: xl65"]09559 - 01/12/2018[/TD]
[TD="class: xl65"]09571 - 29/12/2018[/TD]
[TD="class: xl65"]RO[/TD]
[TD="class: xl67"]39[/TD]
[TD="class: xl67"]40[/TD]
[TD="class: xl67"]79[/TD]
[TD="class: xl67"]12[/TD]
[TD="class: xl65"] [/TD]
[/TR]
[TR]
[TD="class: xl67"]19[/TD]
[TD="class: xl65"]09572 - 02/01/2019[/TD]
[TD="class: xl65"]09574 - 05/01/2019[/TD]
[TD="class: xl65"]TO[/TD]
[TD="class: xl67"]39[/TD]
[TD="class: xl67"]64[/TD]
[TD="class: xl67"]13[/TD]
[TD="class: xl67"]2[/TD]
[TD="class: xl65"]Vincente[/TD]
[/TR]
[TR]
[TD="class: xl67"]19[/TD]
[TD="class: xl65"]09572 - 02/01/2019[/TD]
[TD="class: xl65"]09575 - 08/01/2019[/TD]
[TD="class: xl65"]CA[/TD]
[TD="class: xl67"]39[/TD]
[TD="class: xl67"]64[/TD]
[TD="class: xl67"]13[/TD]
[TD="class: xl67"]3[/TD]
[TD="class: xl65"] [/TD]
[/TR]
[TR]
[TD="class: xl67"]19[/TD]
[TD="class: xl65"]09572 - 02/01/2019[/TD]
[TD="class: xl65"]09576 - 10/01/2019[/TD]
[TD="class: xl65"]VE[/TD]
[TD="class: xl67"]39[/TD]
[TD="class: xl67"]64[/TD]
[TD="class: xl67"]13[/TD]
[TD="class: xl67"]4[/TD]
[TD="class: xl65"] [/TD]
[/TR]
[TR]
[TD="class: xl67"]19[/TD]
[TD="class: xl65"]09572 - 02/01/2019[/TD]
[TD="class: xl65"]09577 - 12/01/2019[/TD]
[TD="class: xl65"]GE[/TD]
[TD="class: xl67"]39[/TD]
[TD="class: xl67"]64[/TD]
[TD="class: xl67"]13[/TD]
[TD="class: xl67"]5[/TD]
[TD="class: xl65"] [/TD]
[/TR]
[TR]
[TD="class: xl67"]19[/TD]
[TD="class: xl65"]09572 - 02/01/2019[/TD]
[TD="class: xl65"]09578 - 15/01/2019[/TD]
[TD="class: xl65"]RO[/TD]
[TD="class: xl67"]39[/TD]
[TD="class: xl67"]64[/TD]
[TD="class: xl67"]13[/TD]
[TD="class: xl67"]6[/TD]
[TD="class: xl65"] [/TD]
[/TR]
[TR]
[TD="class: xl67"]19[/TD]
[TD="class: xl65"]09572 - 02/01/2019[/TD]
[TD="class: xl65"]09579 - 17/01/2019[/TD]
[TD="class: xl65"]TO[/TD]
[TD="class: xl67"]39[/TD]
[TD="class: xl67"]64[/TD]
[TD="class: xl67"]13[/TD]
[TD="class: xl67"]7[/TD]
[TD="class: xl65"] [/TD]
[/TR]
[TR]
[TD="class: xl67"]19[/TD]
[TD="class: xl65"]09572 - 02/01/2019[/TD]
[TD="class: xl65"]09581 - 22/01/2019[/TD]
[TD="class: xl65"]GE[/TD]
[TD="class: xl67"]39[/TD]
[TD="class: xl67"]64[/TD]
[TD="class: xl67"]13[/TD]
[TD="class: xl67"]9[/TD]
[TD="class: xl65"] [/TD]
[/TR]
[TR]
[TD="class: xl67"]20[/TD]
[TD="class: xl65"]09586 - 02/02/2019
[/TD]
[TD="class: xl65"] [/TD]
[TD="class: xl65"] [/TD]
[TD="class: xl67"]39
[/TD]
[TD="class: xl65"] [/TD]
[TD="class: xl65"] [/TD]
[TD="class: xl65"] [/TD]
[TD="class: xl65"]Negativo
[/TD]
[/TR]
[/TABLE]
Sub Main
Dim ambo1(2),ambo2(2),ambo3(2),Ru(2)
Dim posta(2)
posta(2) = 1
Ini = EstrazioneFin - 130
fin = EstrazioneFin
For es = Ini To fin
If IndiceMensile(es) = 1 Then
k = k + 1
Scrivi String(50,"=") & " Caso n." & k
ambo1(1) = Fuori90(Estratto(es,BA_,5) + 39)
ambo1(2) = Fuori90(Estratto(es,BA_,5) + 18)
ambo2(1) = Fuori90(Estratto(es,BA_,5) + 39)
ambo2(2) = Fuori90(Estratto(es,BA_,5) + 82)
ambo3(1) = Fuori90(Estratto(es,BA_,5) + 18)
ambo3(2) = Fuori90(Estratto(es,BA_,5) + 82)
Ru(1) = 11
Ru(2) = 12
ImpostaGiocata 1,ambo1,Ru,posta,13,2
ImpostaGiocata 2,ambo2,Ru,posta,13,2
ImpostaGiocata 3,ambo3,Ru,posta,13,2
Gioca es,,,1
End If
Next
ScriviResoconto
End Sub