è......

[Alien.]

PER IL 10ELOTTO serale è possibile sapere quanti finali escono in una estrazione?(anche in 5/10 estrazioni) con lo script? grazie

 

[Alien.]

 

[Alien.]

ACC,,,,,,quanto vi durano le ferie ?

 

[Membro cancellato 16574]

Buongiorno ,
Lei oltre che essere alieno e' anche ermetico ?
Provi a vedere se e' quello che cerca.

Option Explicit
'è...... di Alien.
'http://forum.lottoced.com/forum/lottoced/area-download/2036522-%C3%A8
Sub Main()
    Dim posta(03)
    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 Ini,fin,es
        Ini = EstrazioneFinDL - 10 ' sostituisci il 10 se vuoi cambiare le lestrazioni da valutare
        fin = EstrazioneFinDL
        Call Scrivi(String(89,"-"),01)
        If Tipoarchivio = 01 Then Call Scrivi(Space(37) & "10 e lotto Serale",01)
        If Tipoarchivio = 02 Then Call Scrivi(Space(37) & "10 e lotto 5minuti",01)
        Call Scrivi(String(89,"-"),01)
        For es = Ini To fin
            Call Messaggio(es)
            Call AvanzamentoElab(Ini,fin,es)
            ReDim n(20)
            Dim p
            For p = 01 To 20
                n(p) = Cadenza(EstrattoDL(es,p))
            Next
            Call Scrivi(GetInfoEstrazioneDL(es) & " " & Space(05) & Format2(n(01)) & "." & Format2(n(02)) & "." & Format2(n(03)) & "." & _
            Format2(n(04)) & "." & Format2(n(05)) & "." & Format2(n(06)) & "." & Format2(n(07)) & "." & Format2(n(08)) & "." & _
            Format2(n(09)) & "." & Format2(n(10)) & "." & Format2(n(11)) & "." & Format2(n(12)) & "." & Format2(n(13)) & "." & _
            Format2(n(14)) & "." & Format2(n(15)) & "." & Format2(n(16)) & "." & Format2(n(17)) & "." & Format2(n(18)) & "." & _
            Format2(n(19)) & "." & Format2(n(20)),01)
        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 .

 

[Alien.]

BUONGIORNO.
MAGIA


è.........oscuro, incomprensibile; enigmatico MA NON DIREI...CREDEVO DI ESSERE STATO CHIARO IN MODO VELOCE
chiedo scusa ma lo script mi da errore....si può ovviare?Grazie per la cortesia.

(la riga in rosso)

Call Messaggio(es)
Call AvanzamentoElab(Ini,fin,es)
Dim R
Dim n
' sostituisci il 100 se vuoi cambiare le lestrazioni da valutare
.bChiusura .bChiusura
Scrivi DataEstrazioneDL(es) & " " & StringaNumeri(n,,True),1
Next
Buona giornata
ALIEN

 

[Alien.]

 

[Alien.]