Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
LuigiB;n1903713 ha scritto:Ciao Joe avevo copiato la funzione direttamente dal forum e l hovreincollata cambiandola pero il copia incollacha scombussolato la formattazione cosi poi editando a mano c e scappato il to di troppo ..come ė ovvio il mio suggerimento era proprio quello giustamente interpretato da te. Comunque sta funzione la inseriro nello spazioscript. Mi era sfuggita...ciao
Joe91;n1903598 ha scritto:Codice:'Somma Ultimi Ritardi (10 ritardi di 10 ruote) 'Scritto da Joe91 Maggio 2007 Sub Main Dim R(10) Dim NN(1) For RR=1 To 10 Scrivi NomeRuota (rr) R(1)=RR fin=EstrazioneFin For n=1 To 90 NN(1)=n a=fin For Rit= 1 To 10 A = SerieUltima (a-250,a,N, RR)-1 Next If fin-a > 270 Then Scrivi Format2 (N) &" "& Fin - a Next Scrivi Next End Sub Function SerieUltima (ini, fin, n, rr) For Es = ini To fin If Posizione (es, rr, n ) > 0 then SerieUltima= es Next End Function