Aiuto script 10&lotto serale

[antonio65]

Salve, qualcuno mi sa dire la dicitura di come inserire la prima , la seconda , la terza del mese etc etc?
ho provato con questi e non funziona: If IndiceMensileDL >= Ind And IndiceMensileDL <= Ind Then
If IndiceMensiledl = 1 Then grazie Antonio

 

[Membro cancellato 16574]

Buongiorno,
Le postiamo un piccolo esempio dell' uso di IndicemensileDL
.

Option Explicit
Sub Main()
Dim Tipoarchivio
Tipoarchivio = ScegliArchivioDL
If Tipoarchivio > 00 Then
If Tipoarchivio = 02 Then
If MsgBox("Vuoi aggiornare le estrazioni prima di eseguire il listato",vbQuestion + vbYesNo) = vbYes Then
Call AggiornaArchivioDL
End If
End If
Call ImpostaArchivio10ELotto(Tipoarchivio)
Dim Ind,es,Ini,fin
Ind = CInt(InputBox("ESTRAZIONE MENSILE? (Inserisci 0 Per l'ultima, 1 per la prima, ....)",,1))
Ini = EstrazioneFinDL - 100
fin = EstrazioneFin
For es = Ini To fin
If IndiceMensileDL(es) = Ind Then
Call Scrivi(GetInfoEstrazioneDL(es) & " [ " & StringaEstrattiDL(es) & " ] ",01)
End If
Next
End If
End Sub
Function ScegliArchivioDL()
ReDim aVoci(01)
aVoci(00) = "10 e lotto Serale"
aVoci(01) = "10 e lotto 5minuti"
ScegliArchivioDL = ScegliOpzioneMenu(aVoci,00,"Scegli archivio 10eLotto") + 01
End Function

Controllare Sempre .
Salvo Errori ed Omissis .