Aggiungendo un semplice test condizionale
If SommaEstratti(Es,R) > 0 Then
CODICE
Option Explicit
Sub Main
Dim Ini,Fin,Es,R,C
Ini = 1 ' PRIMA ESTRAZIONE
Fin = EstrazioniArchivio ' TUTTE LE ESTRAZIONI IN ARCHIVIO
R = CA_ ' Cagliari
For Es = Ini To Fin
If SommaEstratti(Es,R) > 0 Then ' TEST Presenza Estratti
C = C + 1 'AUMENTA DI UNO IL CONTATORE "C"
End If
Next
Scrivi C 'ESPLICITA IL VALORE DEL CONTATORE "C"
End Sub
E' possibile controllare se ci sono estratti.
Ci sono ALCUNE considerazioni al riguardo:
* SE CI SONO ESTRATTI LA LORO SOMMA NON PUO' ESSERE ZERO.
* SE NON CI SONO ESTRATTI NON C'E' ESTRAZIONE.
* SE C'E' L'ESTRAZIONE CI SONO ESTRATTI.
Molto pił difficile da capire:
* SE CI SONO ESTRATTI DIVERSI ... anche diversi da quello considerato ... C'E' L'ESTRAZIONE.
*
QUALSIASI "RITARDO" o la "FREQUENZA" o la "PRESENZA" DI
UN
QUALSIASI ESTRATTO in una qualsiasi estrazione
NON MODIFICA IL CONTEGGIO DELLE ESTRAZIONI.
Edited by J-Gio91 - 14/5/2022, 16:44