Option Explicit
Sub Main
Dim sFile
Dim sNumeri
Dim sDataLast
Dim sData
Dim sNumEst
sDataLast = Replace(DataEstrazioneSE(EstrazioniArchivioSE),".","/")
If WeekDay(sDataLast) = 3 Then ' martedi
sData = DateAdd("d",2,sDataLast)
ElseIf WeekDay(sDataLast) = 5 Then ' giovedi
sData = DateAdd("d",2,sDataLast)
ElseIf WeekDay(sDataLast) = 7 Then 'sabato
sData = DateAdd("d",3,sDataLast)
End If
If Year(sData) > Year(sDataLast) Then
sNumEst = 1
Else
sNumEst = IndiceAnnualeSE(EstrazioniArchivioSE) + 1
End If
sFile = GetDirectoryAppData & "BaseDatiSuperEna.Dat"
sData = InputBox("Inserire la data per l'estrazione che si vuole aggiungere (la data proposta è calcolata in automatico)","Data estrazione",sData)
sNumEst = InputBox("Inserire il numero annuale dell'estrazione (il numero proposto è calcolato in automatico)","Numero estrazione",sNumEst)
sNumeri = InputBox("inserire i 6 numeri estratti , il jolly e il superstar separando i numeri con la virgola","Inserisci i numeri","1,2,3,4,5,6,7,8")
ReDim aNumeri(0)
Call SplitByChar("0," & sNumeri,",",aNumeri)
If UBound(aNumeri) = 8 Then
If SalvaEstrazioneSE(aNumeri,sData,sNumEst,sFile) Then
Call Scrivi("E' stata aggiunta la seguente estrazione")
Call Scrivi(IndiceAnnualeSE(EstrazioniArchivioSE) & " - " & DataEstrazioneSE(EstrazioniArchivioSE))
Call ScriviEstrazioneSE(EstrazioniArchivioSE)
End If
End If
End Sub