ti chiedo squsa forse non mi sonno spiegato bene
ma io vorrei che lo script controllase solo al sabato" ?
saluti. navidal,
questo e lo script da modificare se e possibile
Sub Main()
Dim am(1),ru(1),Rtt(2),N(1)
Rtt(1) = 11 : Rtt(2) = 12
Nu = "9.37.79" '---------------------------------------SPIE
Ini = 3575 : Fin = EstrazioneFin 'Inizio Archivio 10 Ruote
For es = ini To fin
If Sabato(es) Then
Messaggio es
For r1 = 1 To 12
If r1 <> 11 Then
ru(1) = r1
sp = Split("0." & Nu,".")
K = 0
For x = 1 To 3 : sp(x) = CInt(sp(x))
N(1) = Sp(x)
If SerieFreq(es,es,N,Rtt,1) = 1 Then K = k + 1
Next
If K = 3 Then
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
End If
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
kk = kk + 1
Scrivi DataEstrazione(es) & " " & SiglaRuota(r1) & " " & Format2(b) & String(10," ") & KK & "°"
Scrivi DataEstrazione(es) & " " & SiglaRuota(r2) & " " & StringaNumeri(sp,,1)
Scrivi
End If
End If
Next
End If
End If
End If
Next
End If
Next
End Sub
Function Sabato(Es)
Sabato = False
Data = Replace(DataEstrazione(Es),".","/")
Joe = Day(Data) : Mes = Month(Data) : Ann = Year(Data)
Data = Format2(Joe) & "/" & Format2(Mes) & "/" & Ann
If WeekDay(Data) = vbSaturday Then Sabato = True
End Function
ma io vorrei che lo script controllase solo al sabato" ?
saluti. navidal,
questo e lo script da modificare se e possibile
Sub Main()
Dim am(1),ru(1),Rtt(2),N(1)
Rtt(1) = 11 : Rtt(2) = 12
Nu = "9.37.79" '---------------------------------------SPIE
Ini = 3575 : Fin = EstrazioneFin 'Inizio Archivio 10 Ruote
For es = ini To fin
If Sabato(es) Then
Messaggio es
For r1 = 1 To 12
If r1 <> 11 Then
ru(1) = r1
sp = Split("0." & Nu,".")
K = 0
For x = 1 To 3 : sp(x) = CInt(sp(x))
N(1) = Sp(x)
If SerieFreq(es,es,N,Rtt,1) = 1 Then K = k + 1
Next
If K = 3 Then
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
End If
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
kk = kk + 1
Scrivi DataEstrazione(es) & " " & SiglaRuota(r1) & " " & Format2(b) & String(10," ") & KK & "°"
Scrivi DataEstrazione(es) & " " & SiglaRuota(r2) & " " & StringaNumeri(sp,,1)
Scrivi
End If
End If
Next
End If
End If
End If
Next
End If
Next
End Sub
Function Sabato(Es)
Sabato = False
Data = Replace(DataEstrazione(Es),".","/")
Joe = Day(Data) : Mes = Month(Data) : Ann = Year(Data)
Data = Format2(Joe) & "/" & Format2(Mes) & "/" & Ann
If WeekDay(Data) = vbSaturday Then Sabato = True
End Function