Ciao, faccio prima a postare il listato
Sub Main()
Dim ruote(3),ruota(2)
Dim ab(3),amb(1),num(2)
Dim poste(2),posta(1)
t = 0
posta(1) = 1
poste(2) = 1
rs = InputBox("Quante estrazioni vuoi controllare?",,200)
im = CInt(InputBox("Quante Indice Mensile vuoi controllare?",,4))
ini = EstrazioneFin - rs
k = 11
For es = ini To EstrazioneFin
If IndiceMensile(es) = im Then
'If IsUltimaDelMese (es) Then' Per avere l'ultima del mese devi toglire l'apice a questa riga e metterla sulla riga precedente
amb(1) =Ass(Estratto(es,2,3) - Estratto(es,7,5))
'amb(1) = Fuori90(Estratto(es,2,3) - Estratto(es,7,5)) 'Quì Puoi Modificare l'ambata
ab(1) = 66 'Quì è sotto puoi modificare gli Abbianmenti
ab(2) = 75
'ab(3) = Fuori90(Estratto(es,2,2) + Estratto(es,8,2) + 51)
ruota(1) = 1 : ruota(2) = 5
ruote(1) = 2:ruote(2) = 9:ruote(3) = 11
t = t + 1
ColoreTesto 2: Scrivi"------------------------------------------------------------------<<<giocata n°" & t & ">>>",1
Scrivi DataEstrazione(es) & " Indice Mensile n° " & im,1
ImpostaGiocata 1,amb,ruota,posta,k
co = 1
num(1) = amb(1)
For i = 1 To 3
co = co + 1
num(2) = ab(i)
ImpostaGiocata co,num,ruote,poste,k
Next
co = co + 1
ImpostaGiocata co,ab,ruote,poste,k
Gioca es
End If
Next
ScriviResoconto
End Sub
'Funzione creata da Joe
Function IsUltimaDelMese(idEstr)
Dim sData,sDataNew
Dim idGiornoSettimana
Dim gMancanti
Dim nMeseCorr
sData = Replace(DataEstrazione(idEstr),".","/")
nMeseCorr = Month(sData)
idGiornoSettimana = WeekDay(sData)
Select Case idGiornoSettimana
Case vbTuesday ' martedi
gMancanti = 2
Case vbThursday ' giovedi
gMancanti = 2
Case vbSaturday ' sabato
gMancanti = 3
End Select
sDataNew = DateAdd("d",gMancanti,sData)
If Month(sDataNew) <> nMeseCorr Then
IsUltimaDelMese = True
Else
IsUltimaDelMese = False
End If
End Function
