| Ciao Genal, spero di fare cosa gradita nell'avere codificato SOMMARIAMENTE quanto hai esposto. CODICE Option Explicit Sub Main 'Estrazioni dei Capolista Ritardo in periodii uguali Pre & Post Venus Dim I,M,F,R,P,D,E,TP,TD F = EstrazioneFin M = 8117 'Inizio Venus ? E = F - M I = M -(F - M) Scrivi DataEstrazione(I - 1,,,"/") & "-" & DataEstrazione(M - 1,,,"/") & " >< ",0,0 Scrivi DataEstrazione(M,,,"/") & "-" & DataEstrazione(F,,,"/"),0,0 Scrivi " = " & E & " Estrazioni." For R = 1 To 10 '2 : If R = 11 Then R= 12 P = EstrattoFrequenza(R,1,I - 1,M - 1,,,,1) : TP = TP + P D = EstrattoFrequenza(R,1,M,F,,,,1) : TD = TD + D Scrivi Space(6) & SiglaRuota(R) & " " & P & Space(19) & SiglaRuota(R) & " " & D & Space(15) & "Diff " & FormatSpace(D - P,4,1) Next Scrivi Scrivi FormatSpace(TP,12,1) & FormatSpace(TD,25,1) & Space(15) & "Diff " & FormatSpace(TP - TD,4,1),1 End Sub Edited by J-Gio91 - 9/11/2023, 12:15
|