-
|
| .
|
|
|
|
Salve a voi Tutti,questo Listato ci permette di trovare i casi simili a questo:
infatti mettendo i valori giusti ( esempio la formula sopra da esempio 22-33-55),il Listato ci da' questo:
E' un modo veloce per trovare i casi che ci interessano..
Ecco il Listato:
CODICE Sub main()
Dim am(1), ru(1)
nu="22.33.55" '---------------------------------------SPIE
fin=EstrazioneFin : ini=fin-100 'qui' mettere le estrazioni da controllare a ritroso
For es=ini To fin : Messaggio es
For r1=1 To 12
If r1<>11 Then
ru(1)=r1
sp = Split("0."& nu, ".")
For x=1 To 3 : sp(x) = CInt(sp(x)) : Next
If SerieFreq(es,es,sp,ru,1)=1 Then
For p=1 To 5
a=Estratto(es,r1,p)
For x=1 To 3
If a=sp(x) Then sp(x)=0 : b=a
Next : Next
For r2=1 To 12
If r2<>11 And r2<>r1 Then
ru(1)=r2
If SerieFreq(es,es,sp,ru,2)=1 Then
Scrivi DataEstrazione(es,1) &" "& SiglaRuota(r1) &" "& Format2(b) & Chr(10)&_
Space(15) & SiglaRuota(r2) &" "& StringaNumeri (sp) & Chr(10)
End If
End If : Next
End If
End If : Next : Next : End Sub
Saluti,sean69!!
|
|
|
| .
|
0 replies since 17/9/2010, 07:43 479 views
.
.
Offline
Web