Perché verso la fine dell' archivio mi stampa le estrazioni doppie ?
Codice:
Sub Main
Dim es,fin
fin = EstrazioniArchivioSE
For es = 1 To fin
Scrivi GetInfoEstrazioneSE(es) & " " & StringaEstrattiSE(es)
Next
End Sub
Codice:
[02735] [36] 25.03.2017 03.50.60.64.85.86.58.76
[02736] [37] 28.03.2017 00.00.00.00.00.00.00.00
[02737] [37] 28.03.2017 03.06.20.54.72.90.71.71
[02738] [38] 30.03.2017 00.00.00.00.00.00.00.00
[02739] [38] 30.03.2017 05.16.40.70.74.76.85.69
[02740] [39] 01.04.2017 00.00.00.00.00.00.00.00
[02741] [39] 01.04.2017 08.46.68.70.76.86.39.66
[02742] [40] 04.04.2017 00.00.00.00.00.00.00.00
[02743] [40] 04.04.2017 03.16.29.34.37.57.62.41
Ultima modifica: