SUPER LOTTO

formula

« Older   Newer »
  Share  
drago2940
CAT_IMG Posted on 8/2/2013, 19:24




Mi servirebbe la formula da inserire in uno script " per trovare i prmi tre sabati del mese Ciao Gianni
 
Top
CAT_IMG Posted on 9/3/2013, 16:54

Group:
Fan
Posts:
300

Status:


prova con questa L'AUTORE dovrebbe essere Ramco o ...???
Sub main()
Dim ruote(2)
Dim numeri(2)
Dim poste(1)
Dim colpi


colpi = 5

poste(1)= 1


For n= EstrazioneFin -200 To EstrazioneFin
If primoSecondoterzoSabato(n) Then


numeri(1)=Fuori90(Estratto (n,1,5)+18)
numeri(2)=Fuori90(Estratto (n,2,1)+30)
ruote(1)=1




ImpostaGiocata 1,numeri,ruote,poste, colpi
Gioca n



End If
Next
ScriviResoconto



End Sub

Function primoSecondoterzoSabato(n)
Dim c
Dim i

If WeekDay (DateSerial (Anno(n), Mese(n), Giorno (n)))= 7 Then
m=Mese (n)

i=n
Do While Mese (i)=m
If WeekDay (DateSerial (Anno(i), Mese(i), Giorno (i)))= 7 Then
c=c+1
End If
i=i-1
Loop

If c=1 Or c=2 Or c=3 Then
primoSecondoterzoSabato =True
End If
Else
primoSecondoterzoSabato =False
End If

End Function
 
Top
1 replies since 8/2/2013, 19:24   559 views
  Share