|
|
| 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
|
| |