Cinzia27 |
|
| Ciao a tutti In aggiunta all' ottimo script di Gam, questo list rileva le estrazioni ove è rimasto un solo ambo residuo e il suo RDL. Chiedo cortesemente un vostro controllo sia scriptico che statistico. Buona domenica Cinzia Sub main() Dim a(2),ru(1),ru1(2) Scrivi " 1 AMBO RESIDUO PER ESTRAZIONE (Cinzia)" ru1(1)=11 ru1(2)=12 For es=7550 To EstrazioneFin Messaggio(es) c=0 mx=0 For r=1 To 11 If r=11 Then r=12 ru(1)=r For p=1 To 4 For p1=p+1 To 5 a(1)=Estratto(es,r,p) a(2)=Estratto(es,r,p1) ex=es+1 If ex>EstrazioneFin Then ex=EstrazioneFin s=SeriePrima(ex, EstrazioneFin,a,ru1,2) If s>mx Then mx=s If s=0 Then c=c+1 If SerieFreq(EstrazioneFin+1,EstrazioneFin+1,a,ru1,2)>0 Then ColoreTesto 2 ri= FormatSpace(c,4)&")"&FormatSpace(es,4)&" "&dataestrazione(es)&" "& FormatSpace(SiglaRuota(r),5,1)&" "&format2(a(1))& " "&format2(a(2))&" sortito a tutte " Else ColoreTesto 0 ri= FormatSpace(c,4)&")"&FormatSpace(es,4)&" "&dataestrazione(es)&" "& _ FormatSpace(SiglaRuota(r),5,1)&" "&format2(a(1))&" "&format2(a(2)) ColoreTesto 0 End If End If Next Next Next ColoreTesto 0 If c=1 Then Scrivi ri Scrivi "situazione vigente dall' estr "&dataestrazione(mx)&" "&mx rit=EstrazioneFin-mx Scrivi "rit "&rit If rit>max Then max=rit Scrivi String(60,"-") End If Next Scrivi "rit max"&max End Sub
|
| |