SCRIPT AND SCRIPT OR SCRIPT

[Roby]

Ciao a tutti
Visto che ultimamente l'argomento SCRIPT va alla grande mi permetto di suggerire un TOPIC dove convogliare tutti gli argomenti inerenti.
Cosi facendo credo che ne beneficerebbero un po tutti ed eviteremmo di aprire 100 pagine sparse per il forum.
Che ne pensate ? se siete interessati questo capitolo è tutto vostro.
Un cordiale saluto a tutti.

 

[fillotto]

SECONDA CORREZIONE con la speranza di farmi capire meglio
Comincio io, spopiazzando a destra e a manca ho fatto questo primo script noterete che è tutto commentato per fissare i concetti, il mio scopo è stato parzialmente raggiunto nel senso che ancora dovrei imparare il ciclo for e metterlo in pratica e tante alte cose, ecco il listato:
Sub main()
'vede se il 2° di bari è = vertibile del 4° di venezia
Dim rt(2),pta(2),nr(2) ' le ruote sono 2
'pta significa faccio la puntata "Ambo"(2) ,nr significa che i numeri sono 2
ex = InputBox("Quante estrazioni controllo?",,3000)

ini = EstrazioneFin - ex
fin = EstrazioneFin
For es = ini To fin
Messaggio es

rt(1) = 1 'Bari
rt(2) = 10 ' e la ruota diametrale:Venezia
pta(2) = 1 '2puntate per ambo di un 1 euro
k = 10 'per 10 colpi (si ferma alla 1^ uscscia di un ambo

nr(1) = Estratto(es,1,2) '2° di BA (questo si può cambiare es 4)
nr(2) = Estratto(es,10,4)'4°VE (e questo passerebbe a 2)
If nr(2) = Vert(nr(1)) Then 'se il num 1 è il vertibile del
'nnum 2 allora....
ImpostaGiocata 1,nr,rt,pta,k,2 'quest'ultimo 2 significa che
' si ferma dopo l'luscita di 1 ambo
casi = casi + 1
'comincia a scrivere a distanza di 70 spazi " Caso n° "
Scrivi String(70," = ") & " Caso n° " & casi,1
Scrivi

Gioca es
End If
Next
Scrivi
Scrivi "Casi totali(" & casi & ")",1
ScriviResoconto
End Sub

con questo dico: se 1l 2° estratto di Ba è = al Vertibile del 4° estratto di VE (SPECULARE Diametrale)allora giocali x ambo in ambedue le ruote per 10 estrazioni questo fa lo script invece io vorrei che se i numeri formanti l'ambo suddetto si ripetessero nell'estrazione seccessiva in qualsiasi posizione che però fosse (SPECULARE e Diametrale)allora e solo allora di giocarli (non so come giostrare per fargli controllare l'estrazione successiva) l'idea è quella che non essendosi formato un ambo (non nel senso tradizionale) composto da vertibili così posizionati per 2 estrazioni consecutive possa dare nelle ruote interessate l'esito in 10 estrazioni.
Chi mi può aiutare? fate delle prove con cambiando la posiz speculare invece del 1 il 2°(BA) e invece del 5 il 4°(VE) e i risultati sono confortanti già senza la ripetizione.... saluti fllotto

 

[imported_n/a]

ok Ele
vorrei postare uno script dell'amico Salva57
sulle ambate deterninate ma non riesco a far stoppare la previsione nel momento in cui avviene l'esito. Inoltre non capisco perche il conteggio di cassa non risulta forse perche non calcola il tipo di vincita come estratto deterninato.
A voi in pasto per capire come fare .........
La previsione e composta da 1 Ambata deterninata in 3° e 5° posizione su 2 ruote

Listato

Sub main()
Dim r(2)
Dim b1(1)
Dim p1(10)
p1(1) = 1
p1(10) = 1
p1(8) = 1
r(1) = 3
r(2) = 6
c = 50
fin = EstrazioneFin
For n = 7334 To fin
If IndiceMensile(n + 1) = 1 Then
a1 = Fuori90(Estratto(n,3,5) + 18)
b1(1) = a1
ImpostaGiocata 1,b1,r,p1,c
Gioca n
End If
Next
ScriviResoconto
End Sub

 

[fillotto]

Ciao Cebino per stoppare quando si verifica l'esito avresti potuto vedere come ho fatto io nel post che precede il tuo : ho fatto così :
"ImpostaGiocata 1,nr,rt,pta,k,2 'quest'ultimo 2 significa che
si ferma dopo l'luscita di 1 ambo analogamente puoi fare tu così :"ImpostaGiocata 1,b1,r,p1,c,1virgola 1 significa che
si ferma dopo l'luscita di 1 estratto; già provato funziona ma purtroppo non va in positivo forse perchè non conteggia l'estratto determinato? saluti fill

 

[imported_n/a]

Partecipo anch'io a questo argomento perchè gli script possono avere una enorme potenzialità e vorrei che prendessero sempre più piede.
Per questo metto a disposizione anch'io uno script semplice nella stesura e con dei buoni risultati. la spia 90 a Milano.

Ciao Mike58



Sub main()
'spia 90 a MILANO
Dim ru(1),ps(3)
Dim num(10) ' numeri max in gioco
ps(2) = 10 ' posta ambo
ps(3) = 2 ' posta terno

r = 5 ' ruota di milano
ru(1) = r
k = 14

' numeri in gioco fissi

num(1) = 77
num(2) = 75
num(3) = 80
num(4) = 82
num(5) = 85
num(6) = 09
num(7) = 24
num(8) = 79
num(9) = 18
'num(10) = 03

For es = EstrazioneFin - 150 To EstrazioneFin ' range estrazioni

If Posizione(es,r,90) > 0 Then ' cerca il numero spia sulle estrazioni





ImpostaGiocata 1,num,ru,ps,k ' impostazione giocata senza blocco esito

co = co + 1
ca = EstrazioneFin - es

rit1 = SerieRitardo(EstrazioneIni,EstrazioneFin,num,ru,2)' cerca il ritardo per ambo
ritt1 = SerieRitardo(EstrazioneIni,EstrazioneFin,num,ru,3)' cerca il ritardo per terno



Scrivi " = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = ",1

Scrivi : ColoreTesto 0 : Scrivi " Metodo Quando esce il 90 a Milano(by Mike58) ",1


ColoreTesto 2 : Scrivi "_________________________________________________________________________________________________________________",1
Scrivi ""
ColoreTesto 2 : Scrivi DataEstrazione((es),1) & " " & " [" & " " & SiglaRuota(r) & " " & StringaEstratti(es,r) & " " & "] sortito numero spia !!! = " & "" & Format2(90) & " " & " estraz.trascorse - - - > " & ca,1


ColoreTesto 2 : Scrivi "_______________________________________________________________________________________________________ caso n° " & co,1
ColoreTesto 0 : Scrivi "Lunghetta in novina in gioco su Ruota spia = ",1
ColoreTesto 1 : Scrivi "Puntata ambo euro : " & ps(2) & " - - - Puntata terno euro : " & ps(3),1
ColoreTesto 0 : Scrivi "_________________________________________________________________________________________________________________",1
Gioca es
End If
Next
ScriviResoconto
ColoreTesto 1
Scrivi ""
Scrivi "ritardo combinazione per ambo " & " rit. - - - > " & rit1,1
Scrivi "ritardo combinazione per terno" & " rit. - - - > " & ritt1,1
ColoreTesto 0


End Sub

 

[bergie]

posto uno script per ambata su Mi come esempio con spiegazioni
della bravissima Cinzia, sperando sia utile a qualcuno.


'ESEMPIO SCRIPT PER AMBATA DI CINZIA
Sub main()
Dim n(1),ruota(1),posta(1)'con dim dichiaro i vettori ( variabili con segnaposto 1,2,3,ecc.)
posta(1)=1 'al vettore posta assegno 1 euro
r=5'ruota Mi
ruota(1)=r'assegno r,cioè 5 (ruota Mi)al vettore ruota
fin=EstrazioneFin 'fin è la variabile del limite massimo escursione archivio se metto 8037 è la
' stessa cosa ma con EstrazioneFin non devi aggiornare il numero dei estrazione finale
ini=fin-100''fin è la variabile del limite minimo escursione archivio se metto 7937 vale lo stesso
'discorso fatto sopra, così sai per certo che vengono esaminate le ultime 100 estrazioni
For es=ini To fin' con il ciclo for scorro queste 100 estrazioni
AvanzamentoElab ini,fin,es 'barra avanzamento : ti indica che lo script sta lavorando
a=Estratto(es,r,1)'(estrazione,ruota,posizione)ad ogni es(estrazione esaminata)si assegna ad a
'il 1° estratto
b=Estratto(es,r+1,3)'a b il 3° estratto di Na (r+1,Mi+1)
If a<10 Then ' se il 1° estratto di Mi è un numeretto allora
n(1)=Fuori90(a + b)'assegno al vettore n(1)la somma del 1° di mi e il 3° di Na con f90 , ossia tolgo 90
'nel caso il risultato sia superiore a 90

ImpostaGiocata 1,n,ruota,posta,18,1
' 1=numero giocata,n=n(1)(ambata da giocare,posta è la puntata,18 i colpi,1 = si
'interrompe alla sortita dell' amabata
Gioca es
End If'chiude If a<10 Then
Next 'chiude For es=ini To fin
ScriviResoconto
End Sub

 

[bergie]

ambo su 3 ruote con spiegazioni sempre della bravissima Cinzia.
sperando sia utile a qualcuno:

'ambo su 3 ruote esempio CINZIA



Sub main()
'immaginatevi che i vettori siano dei comodini con dei cassetti.
'nel list precedente ogni comodino aveva un solo cassetto. Qui abbiamo deciso di aumentarli .
'Giocheremo un ambo per ambata e ambo su 3 ruote.
Dim n(2),ruota(3),posta(2)'con dim dichiaro i vettori ( variabili con segnaposto o cassetto 1,2,3,ecc.)
posta(1)=1 'il cassetto 1 del vettore posta è quello dell'ambata ; assegno 1 euro
posta(2)=1 'il cassetto 2 del vettore posta è quello dell'ambo ; assegno 1 euro
r=5'ruota Mi
rr=r+1'Na (Mi+1)
rrr=rr+1'Pa (Na+1)


ruota(1)=r 'assegno r,cioè 5 (ruota Mi)al vettore ruota
ruota(2)=rr 'assegno rr,cioè 5+1 (ruota Na)al vettore ruota
ruota(3)=rrr 'assegno rrr,cioè 6+1 (ruota Pa)al vettore ruota

fin=EstrazioneFin 'fin è la variabile del limite massimo escursione archivio se metto 8037 è la
' stessa cosa ma con EstrazioneFin non devi aggiornare il numero dei estrazione finale
ini=fin-100''fin è la variabile del limite minimo escursione archivio se metto 7937 vale lo stesso
'discorso fatto sopra, così sai per certo che vengono esaminate le ultime 100 estrazioni
For es=ini To fin' con il ciclo for scorro queste 100 estrazioni
AvanzamentoElab ini,fin,es 'barra avanzamento : ti indica che lo script sta lavorando
a=Estratto(es,r,1)'(estrazione,ruota,posizione)ad ogni es(estrazione esaminata)si assegna ad a
'il 1° estratto di Mi
b=Estratto(es,r+1,3)'a b assegno il 3° estratto di Na (r+1,Mi+1)
If a<10 Then ' se il 1° estratto di Mi è un numeretto allora
n(1)=Fuori90(a + b)'assegno al 1° cassetto del vettore n(2)la somma del 1° di mi e il 3° di Na con f90 , ossia tolgo 90
'nel caso il risultato sia superiore a 90
n(2)=DiametraleD(n(1))'nel secondo cassetto del vettore n inseriamo il 2° elemento(il diametrale in
'Decina del 1° elemento)


ImpostaGiocata 1,n,ruota,posta,18,2'vogliamo che si interrompa all' uscita dell' ambo e non dell' ambata
'quindi al posto di 1 finale mettiamo 2. Tuttavia, poiché sopra abbiamo assegnato 1 euro al cassetto dell'ambata
'la giocata è valida anche per l' ambata ma si interrompe solo con l' ambo. per escluderla del tutto togliere
'posta(1)=1
' 1=numero giocata,n=n(1)(ambo da giocare,posta è la puntata,18 i colpi,2 = si
'interrompe alla sortita dell' ambo
Gioca es
End If'chiude If a<10 Then
Next 'chiude For es=ini To fin
ScriviResoconto
End Sub

 

[fillotto]

BRAVO bergie così si fa con le spiegazioni!!
Si invitano tutti a fare in questo modo così ognuno da una mano : Una ripassata a quanto detto da luigi nei video na scopiazzata a destra , una a manca e si va avanti fill

 

[imported_n/a]

quote:Originally posted by fillotto

Ciao Cebino per stoppare quando si verifica l'esito avresti potuto vedere come ho fatto io nel post che precede il tuo : ho fatto così :
"ImpostaGiocata 1,nr,rt,pta,k,2 'quest'ultimo 2 significa che
si ferma dopo l'luscita di 1 ambo analogamente puoi fare tu così :"ImpostaGiocata 1,b1,r,p1,c,1virgola 1 significa che
si ferma dopo l'luscita di 1 estratto; già provato funziona ma purtroppo non va in positivo forse perchè non conteggia l'estratto determinato? saluti fill

Infatti sto impazzendo per cercare questa funzione dell'estratto deterninato..
Chiedo a questo punto a luigi come posso rimediare

 

[LuigiB]

ciao cebino , installa l'ultimo aggiornamento versione 1.1.38

http://www.megaupload.com/?d=KV4LBTJY

e poi cambia lo script con

Sub main()
	Dim r(2)
	Dim b1(1)
	
	
	
	 
	r(1) = 3
	r(2) = 6
	c = 50
	fin = EstrazioneFin
	For n = 7300 To fin
		If IndiceMensile(n + 1) = 1 Then
			a1 = Fuori90(Estratto(n,3,5) + 18)
			b1(1) = a1
			
			ReDim p1(10)
			p1(1) = 1 ' gioca per estratto semplice
			ImpostaGiocata 1,b1,r,p1,c,1 ' si ferma a estratto semplice 			
			
			ReDim p1(10)
			p1(10) = 1 ' gioca per estratto determinato in V° pos 
			ImpostaGiocata 2,b1,r,p1,c,10 ' si ferma a estratto determinato in V° pos 

			ReDim p1(10)
			p1(8) = 1 ' gioca per estratto determinato in V° pos 
			ImpostaGiocata 3,b1,r,p1,c,8 ' si ferma a estratto determinato in III° pos 

			

			
			Gioca n
		End If ' If IndiceMensile(n + 1) = 1 Th...
	Next
	ScriviResoconto
End Sub

 

[dbr]

Ciao a Tutti
girando in rete ho trovato questo Script di "MAXMA62"
un metodo sommativo molto interessante x la possibilità di
segliere ruote e abbinamenti e indice mensile spero possa essere utile
un grazie particolare a MAXMA62 e a LUIGI x la lora disponibilita
-dbr-

CODICE
xxxxxxxxxxxxx

Sub main
Dim nu1(1),nu2(2),nu3(3)
Dim numeri(2),ru(2),posta(1),poste(2),post(3)
posta(1)=1oste(2)=1ost(2)=1ost(3)=1

r1=InputBox ("ruota?","ruota",8)
p1=InputBox ("posizione?","posizione",4)
r2=InputBox ("1^ ruota di gioco?","1^ ruota di gioco",1)
r3=InputBox ("2^ ruota di gioco?","2^ ruota di gioco",10)
ns=InputBox ("numero da sommare?","numero da sommare",70)
ab1=InputBox ("1° abbinamento per ambo?","1° abbinamento per ambo",88)
ab2=InputBox ("2° abbinamento per ambo?","2° abbinamento per ambo",14)
ab3=InputBox ("3° abbinamento per ambo?","3° abbinamento per ambo",16)
ab4=InputBox ("4° abbinamento per ambo?","4° abbinamento per ambo",77)
ab5=InputBox ("1° abbinamento per terno?","1° abbinamento per terno",59)

ce=InputBox("da quale estrazione vuoi controllare? ","estrazione",8007)
k=InputBox ("per quanti colpi?","colpi di gioco",14)
ini=ce
fin=EstrazioneFin
Scrivi "Resoconto da "&DataEstrazione(ini,1)&" a "&_
DataEstrazione(fin,1)&" ("&(fin-ce)&" estr.)",1
For es=ini To EstrazioneFin

If IndiceMensile(es)=4 Then 'quarta
'If IndiceMensile(es)=1 Then 'prima
'If IndiceMensile(es+1)=1 Then 'ultima
'If IndiceMensile(es+2)=1 Then 'penultima

Messaggio "elab. estr. ["&(es)&"] di "&DataEstrazione(es,1)

a=Estratto(es,r1,p1)
n1=Fuori90(a+ns)

casi=casi+1:Scrivi String(50,"=")&" script by maxma62",1
Scrivi DataEstrazione(es,1)&" [ "&SiglaRuota(r1)&" - "&StringaEstratti(es,r1)&" ] [ "&_
Format2(a)&" ] in "&(p1)&"^ pos."
Scrivi String(55,"-")&" caso n° "&(casi)
ru(1)=r2:ru(2)=r3:co=0

nu1(1)=n1
co=co+1
ImpostaGiocata co,nu1,ru,posta,k,0
nu2(1)=n1:nu2(2)=ab1
co=co+1
ImpostaGiocata co,nu2,ru,poste,k,0
nu2(2)=ab2
co=co+1
ImpostaGiocata co,nu2,ru,poste,k,0
nu2(2)=ab3
co=co+1
ImpostaGiocata co,nu2,ru,poste,k,0
nu2(2)=ab4
co=co+1
ImpostaGiocata co,nu2,ru,poste,k,0
nu3(1)=n1:nu3(2)=ab5:nu3(3)=ab1
co=co+1
ImpostaGiocata co,nu3,ru,post,k,0
nu3(3)=ab2
co=co+1
ImpostaGiocata co,nu3,ru,post,k,0
nu3(3)=ab3
co=co+1
ImpostaGiocata co,nu3,ru,post,k,0
nu3(3)=ab4
co=co+1
ImpostaGiocata co,nu3,ru,post,k,0
Gioca es

End If
Next
ScriviResoconto
End Sub

 

[scoglio2]

ciao dbr
scusa se mi intrometto ...senza polemika pero' bisogna essere corretti nel dire l'autore del metodo
mi sembra sia del nik ..pulcina che ha chiesto a maxma di fare uno script del metodo e maxma lo ha fatto
quindi mi sembra giusto citare l'autore del metodo se si conosce
ciao
x tt ... citiamo l'autore del metodo e anche di chi fa lo script

 

[imported_n/a]

quote:Originally posted by LuigiB

ciao cebino , installa l'ultimo aggiornamento versione 1.1.38

http://www.megaupload.com/?d=KV4LBTJY

e poi cambia lo script con

Sub main()
	Dim r(2)
	Dim b1(1)
	
	
	
	 
	r(1) = 3
	r(2) = 6
	c = 50
	fin = EstrazioneFin
	For n = 7300 To fin
		If IndiceMensile(n + 1) = 1 Then
			a1 = Fuori90(Estratto(n,3,5) + 18)
			b1(1) = a1
			
			ReDim p1(10)
			p1(1) = 1 ' gioca per estratto semplice
			ImpostaGiocata 1,b1,r,p1,c,1 ' si ferma a estratto semplice 			
			
			ReDim p1(10)
			p1(10) = 1 ' gioca per estratto determinato in V° pos 
			ImpostaGiocata 2,b1,r,p1,c,10 ' si ferma a estratto determinato in V° pos 

			ReDim p1(10)
			p1(8) = 1 ' gioca per estratto determinato in V° pos 
			ImpostaGiocata 3,b1,r,p1,c,8 ' si ferma a estratto determinato in III° pos 

			

			
			Gioca n
		End If ' If IndiceMensile(n + 1) = 1 Th...
	Next
	ScriviResoconto
End Sub

ciao luigi grazie
aggiorna il post di riferimento per questo nuovo aggiornamento 1.1.38

 

[elephantbig]

Confermo.File 1.1.38 non disponibile

 

[dbr]

quote:Originally posted by scoglio2

ciao dbr
scusa se mi intrometto ...senza polemika pero' bisogna essere corretti nel dire l'autore del metodo
mi sembra sia del nik ..pulcina che ha chiesto a maxma di fare uno script del metodo e maxma lo ha fatto
quindi mi sembra giusto citare l'autore del metodo se si conosce
ciao
x tt ... citiamo l'autore del metodo e anche di chi fa lo script

Ciao Scoglio2
Hai perfettamente ragione ma Io ho trovato solo lo script non sapevo di "pulcina" onore al merito grazie a pulcina e a maxma x il loro contributo
la prossima volta non mancheranno autore e realizzatore del metodo
-dbr-

 

[oruam]

Vorrei utilizzare questo script(non ricordo l'autore ma dovrebbe essere ,Danilo ???)con il programma spaziometria di
Luigi. SArebbe bello poter utilizzare gli script del superenalotto
su questo splendito programma,ma non sapendo se è possibile o come fare,vi passo la "palla".

Sub main() 
Dim numeri(30)
Dim numeri1(30)
Dim numeri2(30)
aa=eval(InputBox("Scegli le due Ruote separate da un punto",,"1.3")) 
aa="0."&aa 
n=Split(aa,".") 
mm=eval(InputBox("Da quale mese prendo i numeri?",,1))
nn=eval(InputBox("In quale mese li metto in gioco?",,2))
For es= 7694  To EstrazioneFin 
	If Mese(es)=mm Then 
		Scrivi "Numeri del mese di "& MeseNome(mm) & "  dalle Ruote "& n(1) &"."&n(2)
		Scrivi "---------------------------------------------------------"
		co=0 
		For i=es To es+15 
			If Mese(i)=mm Then 			
			co=co+1 
			numeri(co)= Estratto(i,n(1),1)     '----------- prima ruota  
			numeri(co+14)= Estratto(i,n(2),1)  '----------- seconda ruota	
			Scrivi "estrazione -> "& DataEstrazione(i)&"  "& numeri(co)&"."&numeri(co+14)
			End If 		
		Next 
		If Mese(i)>mm Then 
			Exit For 
		End If 		  
	End If 
Next 
EliminaRipetuti numeri
OrdinaMatrice numeri
' fin qui abbiamo preso i numeri delle due ruote che ci interessano
' relativi al mese che ci interessa, ora li scriviamo 
ColoreTesto 1 : Scrivi,1 
Scrivi "Metto in gioco per il mese di "& MeseNome(nn)&_
" questi numeri:",1 
Scrivi  StringaNumeri(numeri),1
Scrivi String(60,"-")
ColoreTesto 0
'-------------------------------------------------------------  
' ora prepariamo allo stesso modo il controllo delle uscite
For es=7694 To EstrazioneFin 	
	If Mese(es)= nn And IndiceMensile(es)=1 Then  
		For j=1 To 15 ' questi sono il massimo dei colpi di gioco 
			If Mese((es-1)+j)=nn Then 
				co=0 : ca=0
				For i=1 To 6 ' controllo i sei estratti 
					' L8 6.0				
					'e=estrattosuper((es-1)+j,i)
					' L8 6.1
					e=Estratto((es-1)+j,,i,1)
					For x=1 To UBound(numeri)
						If numeri(x) = e Then
							co=co+1
							numeri1(co) = e						
						End If 
					Next
				Next 
				If co=5 Then 
					ca=0
					
					e1=Estratto((es-1)+j,,7,1)
					For x=1 To UBound(numeri) 
						If numeri(x)=e1 Then
							ca=ca+1
							numeri2(ca)=e1
						End If 
					Next
				End If 			
				' scriviamo gli esiti ad ogni colpo 
				If co<3 Then 
					Scrivi j &"° Colpo, Nessuna Vincita, Esito -> "& StringaNumeri(numeri1)
				End If 
				If co=3 Then 
					Scrivi j &"° Colpo, Piccola vincita, Esito -> "& StringaNumeri(numeri1)
				End If
				If co=4 Then 
					Scrivi j &"° Colpo, Media vincita, Esito -> "& StringaNumeri(numeri1)
				End If
				If co=5 And ca=0 Then 
					Scrivi j &"° Colpo, Bella Vincita, Esito -> "& StringaNumeri(numeri1)
				End If
				If co=5 And ca=1 Then 
					Scrivi j &"° Colpo, EVVIVA!! Bellissima Vincita, Esito -> "&_
					StringaNumeri(numeri1)&" + "&StringaNumeri(numeri2)
				End If
				If co=6 Then 
					Scrivi j &"° Colpo, EVVIVA!!! Enorme Vincita, Esito -> "& StringaNumeri(numeri1)
				End If
				Erase numeri1
				Erase numeri2	
			End If 		
		Next 		
	End If	
	If Mese(es)=Mese(EstrazioneFin) Then  
	Exit For 
	End If 
Next 
End Sub