Estrazioni per Indice mensile

[Xeroxs]

Buongiorno a Tutti
Se Possibile creare un script che mi mostri le estrazioni per Ruota scelta ( se più di una meglio)
in base all'indice scelto

Esempio se scelgo indice mensile 1 e Ruota Bari
elencare con data le estrazioni con la stringa degli estratti a ritroso ad esempio le ultime 20 o su range deciso.

Grazie come sempre

 

[Xeroxs]

Buongiorno a Tutti

Allora ho cercato di sviluppare il listato che crea quanto io volevo, leggendo vari input di spaziometria,
Vorrei sapere ora se è possibile avere un aiuto negli input se possibile indicando l'anno ad esempio il 2019
e creare di conseguenza l'elenco delle estrazioni della 1 del mese di Bari solo dell'anno 2019 così da avere quello già dal range impostato.

Questo è il listato

Sub Main
N = InputBox("Quante estrazioni visuallizzare",,100)
r = InputBox("Quale Ruota vuoi analizzare","1=BA , 12=NZ",1)
Ini = EstrazioneFin - N
fin = EstrazioneFin
For es = Ini To Fin
If IndiceMensile(es) = 1 Then
Call Messaggio(es)
Call AvanzamentoElab(Ini,fin,es)
Call Scrivi(GetInfoEstrazione(es) & " " & NomeRuota(r) & " " & StringaEstratti(es,r))
End If
Next
End Sub


Grazie come sempre

 

[druid]

Buongiorno a Tutti

Allora ho cercato di sviluppare il listato che crea quanto io volevo, leggendo vari input di spaziometria,
Vorrei sapere ora se è possibile avere un aiuto negli input se possibile indicando l'anno ad esempio il 2019
e creare di conseguenza l'elenco delle estrazioni della 1 del mese di Bari solo dell'anno 2019 così da avere quello già dal range impostato.

Questo è il listato

Sub Main
N = InputBox("Quante estrazioni visuallizzare",,100)
r = InputBox("Quale Ruota vuoi analizzare","1=BA , 12=NZ",1)
Ini = EstrazioneFin - N
fin = EstrazioneFin
For es = Ini To Fin
If IndiceMensile(es) = 1 Then
Call Messaggio(es)
Call AvanzamentoElab(Ini,fin,es)
Call Scrivi(GetInfoEstrazione(es) & " " & NomeRuota(r) & " " & StringaEstratti(es,r))
End If
Next
End Sub


Grazie come sempre

Ciao Xeroxs,
l'istruzione per la selezione dell' anno e' Anno, basta aggiungere una if tra il ciclo For e indice mensile e ti seleziona l' anno: es:
if Anno(es) = 2018 then
....

Naturalmente devi eliminare o dimensionare correttamente l'istruzione contenente "quante estrazioni vuoi visualizzare".

Ciao

P.s: nella sezione script c'e' un pulsante di colore azzurro con un "?"; e' l' help con le istruzioni disponibili in SPMT e VBscript, divise per macro aree. E' fondamentale dargli un' occhiata......

Buon studio

 

[Xeroxs]

Grazie Druid.