listato per trovare ambi diametrale in decina

[solare]

Chiedo cortesemente se qualcuno dispone o può fare un listato che trovi gli ambi diametrali in decina su ruota.-
es. 1-6 ** 11-16 *** 81-86 ecc
Grazie

 

[Roby]

Sub main()
tmp=InputBox("Quante estrazioni controllo?",,50) 
fin=EstrazioneFin 
ini=fin-tmp
For es=ini To fin
For r= 1 To 12
If r=11 Then r=12
For p= 1 To 4
For p1= p+1 To 5
a=Estratto(es,r,p) 
b=Estratto(es,r,p1)
If b=DiametraleD(a) Then 
Scrivi"-----------------"& DataEstrazione(es-1)&"--------------",True
Scrivi"     "&Left(NomeRuota(r),2)&"     "&"   "& StringaEstratti(es,r)&" --> "&_
Format2(a)&"."&Format2(b)
Scrivi"*****************************************************************"   
End If
Next
Next
Next
Next
End Sub

metus

Non stare davanti a me, potrei non seguirti; non stare dietro di me, potrei non esserti di guida; ma, sta al mio fianco e sii semplicemente mio amico.
Albert Camus

 

[solare]

Grazie Daniel, più veloce della luce....
buona giornata