J-Gio91 |
|
| Mettiamo, nero su bianco, le precedenti considerazioni, unendo e completando gli script già presentati. Così abbiamo tutti i risultati di essi e possiamo in sintesi "tirare giù" le somme nell'elenco dei "RITARDI CONTINUI" sotto osservazione. CODICE Option Explicit
Sub Main
Dim Es,Nu(1),Ru(1),Rit,Est,Ini,Fin,Pos(5)
Dim I,T,K,P
Nu(1) = 1 : Ru(1) = CA_ : Ini = 7000 : Fin = 7149 : Pos(1) = True
Scrivi Nu(1) & " a " & NomeRuota(Ru(1)) & Space(1),True,False
Scrivi "dal " & DataEstrazione(Ini) & " [" & Ini & "] al " & DataEstrazione(Fin) & " [" & Fin & "]"
Scrivi
For Es = Ini To Fin
K = K + 1
If Posizione(Es,Ru(1),Nu(1)) > 0 Then
P = P + 1
Scrivi FormatSpace(P,3) & "[" & Es & "] " & DataEstrazione(Es) & " " & SiglaRuota(Ru(1)) & " " & StringaEstratti(Es,Ru(1))
End If
Next
Scrivi
Scrivi "[" & K & " Estrazioni]",True
Scrivi
Call ElencoRitardi(Nu,Ru,1,Ini,Fin,Rit,Est)
Scrivi P & " PRESENZE : ",1,0
Scrivi StringaNumeri(Est)
Scrivi
Scrivi "RITARDI : ",1,0
For I = 1 To UBound(Rit)
Scrivi CInt(Rit(I)),0,0
If I < UBound(Rit) Then Scrivi ".",0,0
Next
Scrivi : Scrivi
For I = 1 To UBound(Rit)
Scrivi FormatSpace(CInt(T),3,1) & " +" & FormatSpace(Rit(I),3,1) & " = " & FormatSpace(T + Rit(I),3,1)
T = T + Rit(I)
Next
End Sub  |
| | |
