xMike58

[Zetrix]

Ciao Mike volevo chiederti come si fa a inserire la data di uscita di un ambo
ho provato con verificaesito(ambo) ma non so come scrivere il codice esatto
e mi da errore

64.61......18.01.2022
57.61......18.01.2022
57.49......18.01.2022
57.12......18.01.2022
5.61......18.01.2022
5.49......18.01.2022
5.12......18.01.2022
5.37......18.01.2022
5.33......18.01.2022
39.61......18.01.2022
39.49......18.01.2022
39.12......18.01.2022
39.37......18.01.2022
39.33......18.01.2022
39.61......18.01.2022
39.3......18.01.2022

esempio in out dello script mi da questi ambi ma sono molti di piu
ne ho messi alcuni per un esempio

num = DataEstrazione(es)

sAmbo = sAmbo & x & "." & z & " " & num & vbCrLf

questo e il codice dello script che scrive le coppie di ambi e la data estr
ma vorrei mettere anche la data con il verificaesito cosi si possono
vedere gli ambi che hanno dato esito e altri che sono in corso
ambo1(1) = x
ambo1(2) = z

ho provato questa stringa verificaesito(es,ambo1) ma mi da errore

 

[Mike58]

Ciao Zetrix In questa tipologia parliamo del vbscript su spaziometria.
Puoi calcolare il ritardo dell'ambo e dal ritardo arrivare alla dataEstrazione (Fin-Rit)
invece con il VerificaEsito nel codice c'è ID estrazione di sortita , basta inserire ID e richiamarlo come dataEstrazione(id).
Spero di averti chiarito il tuo quesito.

Ciao

 

[i legend]

Ciao se sono una serie di ambi e non devi ciclare l archivio potresti usare serieultima, che ti restituisce il concorso.
Ciao

 

[Zetrix]

Ciao Mike,ilegend,

scusami Mike ma sto combinando un casino con verificaesito

nam = AmboRitardo(r1,x,z)

Call VerificaEsito(es,nam,id)

sAmbo = sAmbo & x & "." & z & "...rit..." & nam & "..." & DataEstrazione(id) & vbCrLf

ho provato in questo modo ma mi da errore lo script

Call VerificaEsito(es,nam,id) -> e qui che dovrebbe stare lo sbaglio

questa id che vuol dire ho provato anche estrazionefin(id) ma mi da
sempre errore
puoi scrivere te il codice esatto

 

[Zetrix]

grazie lo stesso risolto ciao

 

[Mike58]

Zetrix è molto più avanti che devi scriverlo come evidenziato dal codice.
Bisogna leggere sempre il codice o Help in linea, altrimenti ci si imbatte in errori vari che fanno perdere la pazienza.
Ed è proprio questa che ci permette di ragionare in un costrutto di logica.

Ciao

VerificaEsito
Function VerificaEsito(aNumeri, aRuote, IdEstrazione, Sorte, Optional EntroColpi = 0, Optional aPosizioni = Nothing, Optional RetEsito = "", Optional RetColpi = 0, Optional RetEstratti = "", Optional RetIdEstr = 0, Optional aRetRuote = Nothing) As Boolean