| 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 |
