In pratica è una tecnica matematica (scoperta da me) che mi sta togliendo alcune soddisfazioni riguardo le vincite.
Ancora sono poche però con un aiuto potrei incrementare.Spiegazione originale( semplicissimo): prendiamo in considerazione la prima estrazione del mese di marzo su Bari 74-28-22-13-67 sommando ad esempio 74+28=102 moltiplicato x 4=408 poi singolarmente moltiplicare se ad esempio sono presi in considerazioni i primi 2 estratti quindi 74 x 4=296 quindi 408-296=112 :4=28
Il tutto dovrebbe essere fatto con le 10 somme esempio 74+28/74+22/74+13/74+67/28+22 etc etc
Ovviamente cosi non ricavo niente perchè mi riporta alla logica di quell'estrazione.
Con lo script che segue lei può vedere come tutto già esiste...o meglio solo per il miglior algoritmo quindi le migliori probabilità per un l'estratto...io ho scelto 5 algoritmi per ogni numero però è soggettivo posso sceglierne anche 1 secondo l'esigenza...
Il mio problema è di inserire in questo script o ex novo con questa tecnica/matematica oltre a trovare l'algoritmo per estratto
se li cerca per ambo.Esempio sempre sulle prime estrazioni di Bari con questo script viene fuori:quindi ad esempio il miglior algoritmo
sul 1°estratto è 84 ora se io volessi giocare il 18 che è il numero che ne è venuto fuori tramite 84 mi servirebbe che lo script cerca i migliori(accoppiamenti) per ambo....siccome li faccio manualmente è impossibile...spero che sono stato chiaro...attendo risposte..
Grazie ancora grazie!!!
1°Ba + 84 su Bari è uscito 16 su 122 casi - Num. [18] Ultimo Calcolato Rit.Att. 52 ... in corso ... freq...66 1°Ba + 23 su Bari è uscito 15 su 122 casi - Num. [79] Ultimo Calcolato Rit.Att. 17 ... in corso ... freq...81 1°Ba + 27 su Bari è uscito 14 su 122 casi - Num. [75] Ultimo Calcolato Rit.Att. 07 ... in corso ... freq...96 1°Ba + 92 su Bari è uscito 14 su 122 casi - Num. [10] Ultimo Calcolato Rit.Att. 21 ... in corso ... freq...81 1°Ba + 02 su Bari è uscito 13 su 122 casi - Num. [10] Ultimo Calcolato Rit.Att. 21 ... in corso ... freq...81 =================================================================================================================== ATTENZIONE ANALISI DELLA POSIZIONE. 2 Colpo n°. 4 2°Ba + 307 su Bari è uscito 15 su 122 casi - Num. [31] Ultimo Calcolato; Rit.Att. 45 ... in corso ... freq...81 2°Ba + 217 su Bari è uscito 15 su 122 casi - Num. [31] Ultimo Calcolato; Rit.Att. 45 ... in corso ... freq...81 2°Ba + 92 su Bari è uscito 15 su 122 casi - Num. [04] Ultimo Calcolato; Rit.Att. 30 ... in corso ... freq...81 2°Ba + 40 su Bari è uscito 14 su 122 casi - Num. [56] Ultimo Calcolato; Rit.Att. 08 ... in corso ... freq...78 2°Ba + 136 su Bari è uscito 12 su 122 casi - Num. [40] Ultimo Calcolato; Rit.Att. 01 ... in corso ... freq...98 =================================================================================================================== ATTENZIONE ANALISI DELLA POSIZIONE. 3 Colpo n°. 4 3°Ba + 276 su Bari è uscito 15 su 122 casi - Num. [09] Ultimo Calcolato Rit.Att. 20 ... in corso ... freq...87 3°Ba + 186 su Bari è uscito 15 su 122 casi - Num. [09] Ultimo Calcolato Rit.Att. 20 ... in corso ... freq...87 3°Ba + 196 su Bari è uscito 13 su 122 casi - Num. [19] Ultimo Calcolato Rit.Att. 00 ... in corso ... freq...84 3°Ba + 23 su Bari è uscito 13 su 122 casi - Num. [64] Ultimo Calcolato Rit.Att. 13 ... in corso ... freq...85 3°Ba + 14 su Bari è uscito 13 su 122 casi - Num. [73] Ultimo Calcolato Rit.Att. 31 ... in corso ... freq...91 =================================================================================================================== ATTENZIONE ANALISI DELLA POSIZIONE. 4 Colpo n°. 4 4°Ba + 225 su Bari è uscito 16 su 122 casi - Num. [84] Ultimo Calcolato Rit.Att. 07 ... in corso ... freq...82 4°Ba + 315 su Bari è uscito 16 su 122 casi - Num. [84] Ultimo Calcolato Rit.Att. 07 ... in corso ... freq...82 4°Ba + 135 su Bari è uscito 15 su 122 casi - Num. [06] Ultimo Calcolato Rit.Att. 37 ... in corso ... freq...86 4°Ba + 133 su Bari è uscito 14 su 122 casi - Num. [08] Ultimo Calcolato Rit.Att. 10 ... in corso ... freq...101 4°Ba + 313 su Bari è uscito 13 su 122 casi - Num. [82] Ultimo Calcolato Rit.Att. 28 ... in corso ... freq...88 =================================================================================================================== ATTENZIONE ANALISI DELLA POSIZIONE. 5 Colpo n°. 4 5°Ba + 329 su Bari è uscito 14 su 122 casi - Num. [54] Ultimo Calcolato Rit.Att. 44 ... in corso ... freq...73 5°Ba + 239 su Bari è uscito 14 su 122 casi - Num. [54] Ultimo Calcolato Rit.Att. 44 ... in corso ... freq...73 5°Ba + 193 su Bari è uscito 13 su 122 casi - Num. [08] Ultimo Calcolato Rit.Att. 10 ... in corso ... freq...101 5°Ba + 220 su Bari è uscito 13 su 122 casi - Num. [35] Ultimo Calcolato Rit.Att. 03 ... SFALDATO ... freq...94 - Esito al colpo... 2 5°Ba + 83 su Bari è uscito 13 su 122 casi - Num. [12] Ultimo Calcolato Rit.Att. 02 ... in corso ... freq...95
Sub Main()
ColoreTesto 1: Scrivi " X RANDHOUSE ",1
Scrivi String(15," ") & "QUESTO SCRIPT ELABORA PER OGNI POSIZIONE I PRIMI 25 ALGORITMI SU OGNI SINGOLA RUOTA",1
Scrivi String(35," ") & "IN ORDINE DI USCITE PARTENDO DALLA PIU'ALTA",1
Scrivi String(25," ") & "SEGNALANDO IL RITARDO ATTUALE E LA FREQUENZA DELL'AMBATA IN GIOCO",1
ColoreTesto 0: Scrivi
Dim mm(1)
Dim nam(360,8),nn(1),ruota(1),nt(360,8),n3(360,8),n4(360,8),n5(360,8)
nru1 = CInt(InputBox("Ruota di gioco","Ruota di GIOCO",1))
ind = CInt(InputBox("ESTRAZIONE MENSILE? (Inserisci 0 Per l'ultima, 1 per la prima, ....)",,3))
ne = InputBox("Numero estrazioni:","ESTRAZIONI",1592)
ncg = CInt(InputBox("Numero colpi di gioco","COLPI di GIOCO",1))
nStart = Timer ' partenza tempo di elaborazione
For nru11 = 1 To 1
If nru11 = 11 Then nru11 = 12
ColoreTesto 0:Scrivi String(115,"=")
ruota(1) = nru1
For x = 1 To 90
For y = 1 To 8
nam(x,y) = 0
nt(x,y) = 0
n3(x,y) = 0
n4(x,y) = 0
n5(x,y) = 0
Next
Next
p = 1
p2 = 2
p3 = 3
p4 = 4
p5 = 5
casi = 0
ultest = 9273
ini = EstrazioneFin - ne
fin = EstrazioneFin
For es = ini To fin
If IndiceMensile(es) = ind Then
If IndiceMensile(es) = ind Or(((eval(ind) = 0)And(es = ultest))Or((IndiceMensile(es) = eval(ind)And(eval(ind) > 0))Or((IndiceMensile(es + 1) = 1)And(eval(ind) = 0)))) Then
colpo = fin - es
Messaggio "Elaborazione estrazioni... " &(es) & " ---> script by Mike58 - Modificato da Blackmore"
Call(AvanzamentoElab(Ini,fin,es))
casi = casi + 1
'la riga sotto per controllare le estrazioni se non si vuole mettere apice davanti
Scrivi Format2(casi) & ") " & DataEstrazione(es) & " [" & es & "] " & SiglaRuota(nru1) & " " & StringaEstratti(es,nru1)
co = 0
For nu = 1 To 360
co = co + 1
'zx = nu*100
'zx1 = nu*100
a01 = Estratto(es,nru1,p)
a02 = Estratto(es,nru1,p2)
a03 = Estratto(es,nru1,p3)
a04 = Estratto(es,nru1,p4)
a05 = Estratto(es,nru1,p5)
DNA1 =(a01 + a02)*4
DNA2 =(a01 + a03)*4
DNA3 =(a01 + a04)*4
DNA4 =(a01 + a05)*4
DNA5 =(a02 + a03)*4
DNA6 =(a02 + a04)*4
DNA7 =(a02 + a05)*4
DNA8 =(a03 + a04)*4
DNA9 =(a03 + a05)*4
DNA10 =(a04 + a05)*4
MEN1 = nu*4
MEN2 = nu*4
MEN3 = nu*4
MEN4 = nu*4
MEN5 = nu*4
b01 = Fuori90(Abs((Abs((MEN1 - DNA1))/4)))'63
b02 = Fuori90(Abs((Abs((MEN1 - DNA2))/4)))'51
b03 = Fuori90(Abs((Abs((MEN1 - DNA3))/4)))'9
b04 = Fuori90(Abs((Abs((MEN5 - DNA4))/4)))'37
b05 = Fuori90(Abs((Abs((MEN2 - DNA7))/4)))'13
'b01 = Fuori90(Abs((Abs((MEN3 - DNA5))/4)))'37
'b02 = Fuori90(Abs((Abs((MEN2 - DNA6))/4)))'9
'b03 = Fuori90(Abs((Abs((MEN4 - DNA8))/4)))'51
'b04 = Fuori90(Abs((Abs((MEN5 - DNA9))/4)))'51
'b05 = Fuori90(Abs((Abs((MEN4 - DNA10))/4)))'13
'================================================
'b01 = Fuori90(Abs((Abs((MEN3 - DNA2))/4)))'63
'b02 = Fuori90(Abs((Abs((MEN3 - DNA5))/4)))'37
'b03 = Fuori90(Abs((Abs((MEN5 - DNA9))/4)))'51
'b04 = Fuori90(Abs((Abs((MEN3 - DNA8))/4)))'9
'b05 = Fuori90(Abs((Abs((MEN4 - DNA10))/4)))'13
'b01 = Fuori90(Abs((Abs((MEN4 - DNA3))/4)))'63
'b02 = Fuori90(Abs((Abs((MEN4 - DNA6))/4)))'37
'b03 = Fuori90(Abs((Abs((MEN2 - DNA5))/4)))'51
'b04 = Fuori90(Abs((Abs((MEN5 - DNA10))/4)))'9
'b05 = Fuori90(Abs((Abs((MEN3 - DNA9))/4)))'13
nam(co,1) = co
nt(co,1) = co
n3(co,1) = co
n4(co,1) = co
n5(co,1) = co
nam(co,2) = nru11
nt(co,2) = nru11
n3(co,2) = nru11
n4(co,2) = nru11
n5(co,2) = nru11
nam(co,3) = p
nt(co,3) = p2
n3(co,3) = p3
n4(co,3) = p4
n5(co,3) = p5
nam(co,4) = nu
nt(co,4) = nu
n3(co,4) = nu
n4(co,4) = nu
n5(co,4) = nu
nam(co,6) = b01
nt(co,6) = b02
n3(co,6) = b03
n4(co,6) = b04
n5(co,6) = b05
nam(co,7) = 0
nt(co,7) = 0
n3(co,7) = 0
n4(co,7) = 0
n5(co,7) = 0
esncg = es + ncg
If esncg > EstrazioneFin Then esncg = EstrazioneFin End If
For ess = es + 1 To esncg
For pp = 1 To 5
e = Estratto(ess,nru11,pp)
If e = b01 Then
nam(co,5) = nam(co,5) + 1
nn(1) = nam(co,6)
nam(co,7) = SerieFreq(es + 1,ess,nn,ruota,1)
End If
If e = b02 Then
nt(co,5) = nt(co,5) + 1
nn(1) = nt(co,6)
nt(co,7) = SerieFreq(es + 1,ess,nn,ruota,1)
End If
If e = b03 Then
n3(co,5) = n3(co,5) + 1
nn(1) = n3(co,6)
n3(co,7) = SerieFreq(es + 1,ess,nn,ruota,1)
End If
If e = b04 Then
n4(co,5) = n4(co,5) + 1
nn(1) = n4(co,6)
n4(co,7) = SerieFreq(es + 1,ess,nn,ruota,1)
End If
If e = b05 Then
n5(co,5) = n5(co,5) + 1
nn(1) = n5(co,6)
n5(co,7) = SerieFreq(es + 1,ess,nn,ruota,1)
End If
Next
Next
Next
End If
End If
Next
Scrivi "------------------------------------------"
ColoreTesto 1
Scrivi "ANALISI Dal " & DataEstrazione(ini) & " al " & DataEstrazione(fin),1
Scrivi "DNA1" & SiglaRuota(r) & "---" & Format2(DNA1),1
Scrivi "CHEF" & SiglaRuota(r) & "---" & Format2(CHEF),1
Scrivi
If ind = 0 Then Scrivi "ALL'ULTIMA ESTRAZIONE DEL MESE ",1
If ind > 0 Then Scrivi "ALLA " &(ind) & "° ESTRAZIONE DEL MESE ",1
Scrivi "RUOTE DI GIOCO : " & NomeRuota(nru1),1
Scrivi "COLPI DI GIOCO : " & ncg,1
Scrivi "CASI ANALIZZATI : " & casi,1
ColoreTesto 2
Scrivi"N° colpo in corso ---> " & colpo,1
ColoreTesto 0
Scrivi""
Scrivi "Ultima estrazione numeri estratti " & NomeRuota(nru1) & " - " & StringaEstratti(EstrazioneFin,nru1)
Scrivi""
Scrivi " ATTENZIONE ANALISI DELLA POSIZIONE. " & p & " ",1
Scrivi " Colpo n°. " & colpo & " ",1
Scrivi
ColoreTesto 0
OrdinaMatrice nam,- 1,5
For ca = 1 To 5
mm(1) = nam(ca,6)
ratt = SerieRitardo(fin - 250,fin,mm,ruota,1)
freqq = SerieFreq(fin - ne,fin,mm,ruota,1)
esitoo = colpo - ratt
'esitoo= Abs(ind - ratt)
If nam(ca,7) = 0 Then
ColoreTesto 0
Scrivi eval(nam(ca,3)) & "°" & Left(NomeRuota(eval(nam(ca,2))),2) & " + " & _
Format2(nam(ca,4)) & " su " & NomeRuota(nru1) & _
" è uscito " & FormatSpace(nam(ca,5),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(nam(ca,6))) & "] Ultimo Calcolato Rit.Att. " & Format2(ratt) & " ... in corso ..." & " freq..." & freqq,1
Else
ColoreTesto 2
If nam(ca,7) > 0 Then
Scrivi eval(nam(ca,3)) & "°" & Left(NomeRuota(eval(nam(ca,2))),2) & " + " & _
Format2(nam(ca,4)) & " su " & NomeRuota(nru1) & _
" è uscito " & FormatSpace(nam(ca,5),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(nam(ca,6))) & "] Ultimo Calcolato Rit.Att. " & Format2(ratt) & " ... SFALDATO ..." & " freq..." & Format2(freqq),0,0
Scrivi " - Esito al colpo... " & esitoo,1
'cc = 0
cc = cc + 1
End If
End If
Next
ColoreTesto 0
Scrivi String(115,"="),0,0
ColoreTesto 0
'Scrivi "----- Sfaldati...." & cc,1
ColoreTesto 0
OrdinaMatrice nam,- 1,8
Scrivi
ColoreTesto 1
Scrivi " ATTENZIONE ANALISI DELLA POSIZIONE. " & p2 & " ",1
Scrivi " Colpo n°. " & colpo & " ",1
Scrivi
ColoreTesto 1
OrdinaMatrice nt,- 1,5
For ca = 1 To 5
mm(1) = nt(ca,6)
ratt = SerieRitardo(fin - 250,fin,mm,ruota,1)
freqq = SerieFreq(fin - ne,fin,mm,ruota,1)
'esito1 = colpo - ratt
esito1 = Abs(ind - ratt)
If nt(ca,7) = 0 Then
ColoreTesto 0
Scrivi eval(nt(ca,3)) & "°" & Left(NomeRuota(eval(nt(ca,2))),2) & " + " & _
Format2(nt(ca,4)) & " su " & NomeRuota(nru1) & _
" è uscito " & FormatSpace(nt(ca,5),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(nt(ca,6))) & "] Ultimo Calcolato; Rit.Att. " & Format2(ratt) & " ... in corso ..." & " freq..." & freqq,1
Else
ColoreTesto 2
If nt(ca,7) > 0 Then
Scrivi eval(nt(ca,3)) & "°" & Left(NomeRuota(eval(nt(ca,2))),2) & " + " & _
Format2(nt(ca,4)) & " su " & NomeRuota(nru1) & _
" è uscito " & FormatSpace(nt(ca,5),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(nt(ca,6))) & "] Ultimo Calcolato Rit.Att. " & Format2(ratt) & " ... SFALDATO ..." & " freq..." & Format2(freqq),0,0
Scrivi " - Esito al colpo... " & esito1,1
dd = dd + 1
End If
End If
Next
ColoreTesto 0
Scrivi String(115,"="),0,0
ColoreTesto 1
'Scrivi "----- Sfaldati...." & dd,1
ColoreTesto 0
OrdinaMatrice nt,- 1,8
ColoreTesto 0
Scrivi
ColoreTesto 1
Scrivi " ATTENZIONE ANALISI DELLA POSIZIONE. " & p3 & " ",1
Scrivi " Colpo n°. " & colpo & " ",1
Scrivi
ColoreTesto 0
OrdinaMatrice n3,- 1,5
For ca = 1 To 5
mm(1) = n3(ca,6)
ratt = SerieRitardo(fin - 250,fin,mm,ruota,1)
freqq = SerieFreq(fin - ne,fin,mm,ruota,1)
'esito2 = colpo - ratt
esito2 = Abs(ind - ratt)
If n3(ca,7) = 0 Then
ColoreTesto 0
Scrivi eval(n3(ca,3)) & "°" & Left(NomeRuota(eval(n3(ca,2))),2) & " + " & _
Format2(n3(ca,4)) & " su " & NomeRuota(nru1) & _
" è uscito " & FormatSpace(n3(ca,5),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n3(ca,6))) & "] Ultimo Calcolato Rit.Att. " & Format2(ratt) & " ... in corso ..." & " freq..." & freqq,1
Else
ColoreTesto 2
If n3(ca,7) > 0 Then
Scrivi eval(n3(ca,3)) & "°" & Left(NomeRuota(eval(n3(ca,2))),2) & " + " & _
Format2(n3(ca,4)) & " su " & NomeRuota(nru1) & _
" è uscito " & FormatSpace(n3(ca,5),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n3(ca,6))) & "] Ultimo Calcolato Rit.Att. " & Format2(ratt) & " ... SFALDATO ..." & " freq..." & Format2(freqq),0,0
Scrivi " - Esito al colpo... " & esito2,1
hh = hh + 1
End If
End If
Next
ColoreTesto 0
Scrivi String(115,"="),0,0
ColoreTesto 1
'Scrivi "----- Sfaldati...." & hh,1
ColoreTesto 0
OrdinaMatrice n3,- 1,8
Scrivi
ColoreTesto 1
Scrivi " ATTENZIONE ANALISI DELLA POSIZIONE. " & p4 & " ",1
Scrivi " Colpo n°. " & colpo & " ",1
Scrivi
ColoreTesto 0
OrdinaMatrice n4,- 1,5
For ca = 1 To 5
mm(1) = n4(ca,6)
ratt = SerieRitardo(fin - 250,fin,mm,ruota,1)
freqq = SerieFreq(fin - ne,fin,mm,ruota,1)
'esito3 = colpo - ratt
esito3 = Abs(ind - ratt)
If n4(ca,7) = 0 Then
ColoreTesto 0
Scrivi eval(n4(ca,3)) & "°" & Left(NomeRuota(eval(n4(ca,2))),2) & " + " & _
Format2(n4(ca,4)) & " su " & NomeRuota(nru1) & _
" è uscito " & FormatSpace(n4(ca,5),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n4(ca,6))) & "] Ultimo Calcolato Rit.Att. " & Format2(ratt) & " ... in corso ..." & " freq..." & freqq,1
Else
ColoreTesto 2
If n4(ca,7) > 0 Then
Scrivi eval(n4(ca,3)) & "°" & Left(NomeRuota(eval(n4(ca,2))),2) & " + " & _
Format2(n4(ca,4)) & " su " & NomeRuota(nru1) & _
" è uscito " & FormatSpace(n4(ca,5),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n4(ca,6))) & "] Ultimo Calcolato Rit.Att. " & Format2(ratt) & " ... SFALDATO ..." & " freq..." & Format2(freqq),0,0
Scrivi " - Esito al colpo... " & esito3,1
ff = ff + 1
End If
End If
Next
ColoreTesto 0
Scrivi String(115,"="),0,0
ColoreTesto 1
'Scrivi "----- Sfaldati...." & ff,1
ColoreTesto 0
OrdinaMatrice n4,- 1,8
Scrivi
ColoreTesto 1
Scrivi " ATTENZIONE ANALISI DELLA POSIZIONE. " & p5 & " ",1
Scrivi " Colpo n°. " & colpo & " ",1
Scrivi
ColoreTesto 0
OrdinaMatrice n5,- 1,5
For ca = 1 To 5
mm(1) = n5(ca,6)
ratt = SerieRitardo(fin - 250,fin,mm,ruota,1)
freqq = SerieFreq(fin - ne,fin,mm,ruota,1)
'esito4 = colpo - ratt
esito4 = Abs(ind - ratt)
If n5(ca,7) = 0 Then
ColoreTesto 0
Scrivi eval(n5(ca,3)) & "°" & Left(NomeRuota(eval(n5(ca,2))),2) & " + " & _
Format2(n5(ca,4)) & " su " & NomeRuota(nru1) & _
" è uscito " & FormatSpace(n5(ca,5),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n5(ca,6))) & "] Ultimo Calcolato Rit.Att. " & Format2(ratt) & " ... in corso ..." & " freq..." & freqq,1
Else
ColoreTesto 2
If n5(ca,7) > 0 Then
Scrivi eval(n5(ca,3)) & "°" & Left(NomeRuota(eval(n5(ca,2))),2) & " + " & _
Format2(n5(ca,4)) & " su " & NomeRuota(nru1) & _
" è uscito " & FormatSpace(n5(ca,5),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n5(ca,6))) & "] Ultimo Calcolato Rit.Att. " & Format2(ratt) & " ... SFALDATO ..." & " freq..." & Format2(freqq),0,0
Scrivi " - Esito al colpo... " & esito4,1
gg = gg + 1
End If
End If
Next
If ScriptInterrotto Then Exit For
Next
'Next
ColoreTesto 0
Scrivi String(115,"="),0,0
ColoreTesto 1
'Scrivi "---- Sfaldati...." & gg,1
ColoreTesto 0
OrdinaMatrice n5,- 1,8
Scrivi String(115,"="),1
Scrivi " Listato da Ramco e modificato da Mike58 .......... By Blackmore ",1
nEnd = Timer ' fine tempo di elaborazione
Call Scrivi("Tempo di elaborazione : " & FormattaSecondi((nend + 1) - nstart))
End Sub
Function FormattaSecondi(s)
'Questa Function trasforma il numero di secondi passato come parametro in una stringa
' passando i secondi si ottengono ore minuti e secondi in formato hh:mm:ss
' s ---> Numero di secondi da formattare
' ritorna una stringa il cui formato è hh:mm:ss (la function non funziona se in totale abbiamo piu di 99 ore )
Dim hh
Dim Mm
Dim Ss
Dim TimeStr
hh = s \ 3600
Mm =(s Mod 3600) \ 60
Ss = s -((hh * 3600) +(Mm * 60))
TimeStr = Format2(hh) & ":" & Format2(Mm) & ":" & Format2(Ss)
FormattaSecondi = TimeStr
End Function
