Per Joe91

[fillotto]

Buon giorno Joe ho copiato questo tuo potente script (quello remmato) e l'ho adattato ad una lotteria estera funziona a meraviglia ti chiedo: posso delimitarlo con l'inizio e la fine da me proposta,per fare delle prove? Nella versione originale infatti si può variare la fine semplicemente variando inbasso la fine ma nel mio caso come incastonare ini e fin?

'Sub Main
'For A = 1 To 89
'For B = A + 1 To 90
'K = K + 1
'AR = AmboRitardoTurbo(TT_,A,B)
'If AR > 250 Then
'Scrivi Format2(A) & "." & Format2(B),False,False
'Scrivi " RC_TT " & FormatSpace(AR,3,True)
'End If
'Next
'Next
'End Sub


Sub Main
Call ApriBaseDatiFT("C:\Documents and Settings\utente\Dati applicazioni\SpazioMetria\Svizzera\SVTZ.txt",6,",",42)
    'Ini = EstrazioniArchivioFT - 335 : Fin = EstrazioniArchivioFT-10

    For A = 1 To 41
        For B = A + 1 To 42
            K = K + 1
            AR = AmboRitardoFT(A,B)
            If AR > 40 Then
                Scrivi Format2(A) & "." & Format2(B),False,False
                Scrivi " RC_TT " & FormatSpace(AR,3,True)
            End If
        Next
    Next
End Sub

 

[Joe91]

Ciao ...

come sai, evito qualsiasi altro ...

quindi non conosco e non ho mai utilizzato quella istruzione.

Tuttavia nella guida trovi descritta la possibilità di insrire i due parametri che hai indicato.

AmboRitardoFT




Function AmboRitardoFT(Numero1, Numero2, Optional Inizio = 0, Optional Fine = 0) As Long




Descrizione

Torna il ritardo di un ambo




Note




Valore di ritorno

Torna il ritardo di un ambo




Parametri



[TABLE="border: 0, cellpadding: 1, cellspacing: 2"]
[TR]
[TD] Numero1
[/TD]
[TD] Primo numero
[/TD]
[/TR]
[TR]
[TD] Numero2
[/TD]
[TD] Secondo numero
[/TD]
[/TR]
[TR]
[TD] Optional Inizio = 0
[/TD]
[TD] Range Inizio
[/TD]
[/TR]
[TR]
[TD] Optional Fine = 0
[/TD]
[TD] Range Fine
[/TD]
[/TR]
[/TABLE]

 

[fillotto]

Mi merito la tirata d'orecchio, una soluzione così ovvia, bastava leggere..... GRAZIE !!!

 

[Joe91]

Bene,

allora lascio uno spunto di riflessione, per la domenica.

C'è un tizio che esgue una statistica.

Prende un dado ...

Lo lancia 10 volte.

Annota che ha realizzato ALMENO UNA VOLTA,

OGNUNO DEI 6 POSSIBILI PUNTEGGI.

Parecchie faccie si presentano ANCHE PIU' DI UNA VOLTA.

2 volte ed anche 3 volte.

Piu' precisamente:

1 ... volte 1
2 ... volte 1
3 ... volte 3
4 ... volte 2
5 ... volte 2
6 ... volte 1

Quindi anticipo la risposta di una possibile domanda: Cosa c'entra?

La risposta è molto semplice.

Chi la conosce, non ha bisogno di porsi la domanda.

 

[fillotto]

em..emm.. na cosa alla Marzullo