PER MIKE58 GRAZIE

[trivellatomariotretre33]

CIAO MIKE TEMPO FA MI FACESTI QUESTO SCRIPT

Sub Main()
'script By Black
ini = 4123 '7 Gennaio 1950
fin = EstrazioneFin
For es = ini To fin
Call AvanzamentoElab(ini,fin,es)
r1 = 1
r2 = 2
r3 = 3
r4 = 4
r5 = 5
r6 = 6
r7 = 7
r8 = 8
r9 = 9
r10 = 10
Scrivi DataEstrazione(es,,,"/") & " " & StringaEstratti(es,r1," ") & " " & StringaEstratti(es,r2," ") & " " & StringaEstratti(es,r3," ") & " " & StringaEstratti(es,r4," ") & " " & StringaEstratti(es,r5," ") & " " & StringaEstratti(es,r6," ") & " " & StringaEstratti(es,r7," ") & " " & StringaEstratti(es,r8," ") & " " & StringaEstratti(es,r9," ") & " " & StringaEstratti(es,r10," ")
If ScriptInterrotto Then Exit For
Next
End Sub

DOPO LANCIATO ECCO IL RISULTATO

07/01/1950 56 57 12 77 62 35 82 48 34 08 49 67 04 02 57 22 56 28 39 89 29 85 44 72 88 47 40 50 79 35 36 56 33 27 45 66 01 65 12 11 60 16 13 70 09 83 45 71 53 65 14/01/1950 47 60 36 04 51 16 68 47 64 60 41 60 67 48 17 53 48 60 86 77 59 88 81 47 84 11 70 62 44 63 06 05 22 51 40 68 15 70 02 60 08 46 73 80 79 07 84 29 18 44 21/01/1950 02 36 39 76 10 38 04 40 02 30 19 06 17 28 09 57 46 44 72 62 80 04 07 15 17 55 80 66 84 78 49 86 52 01 67 67 49 26 32 43 07 34 64 72 54 89 08 61 46 38 28/01/1950 46 88 09 02 67 87 75 25 79 19 16 51 53 50 64 69 63 67 29 25 50 17 75 31 37 81 43 23 47 51 21 66 39 79 25 46 86 32 27 57 02 37 34 18 17 10 45 71 19 70 04/02/1950 40 44 33 68 10 58 77 46 16 87 17 08 62 53 40 62 53 32 16 09 17 49 88 50 56 44 71 32 53 51 83 78 21 84 17 56 11 66 80 82 82 16 34 90 55 65 57 62 01 64 11/02/1950 20 30 72 82 40 64 06 56 28 36 20 06 44 39 15 42 77 18 74 43 39 49 17 34 59 76 65 23 18 34 85 52 84 18 48 58 22 01 63 69 04 02 50 31 67 74 39 15 11 14
MENTRE TI CHIEDO SE PUOI MODIFICARMELO COSI


08-03-19978782122905780649827643888463107003826056110403258132280341208680353122825942724074307862586243714985
12-03-19973701533471691505178441781988852756708223828472593556436144041154177160311723750537057672447969587846
15-03-19976415175514824913781930194776531239778267701190196882413933241351491122351865381641110351102630464070
19-03-19977481880570903918447804263074571764805846131077886640126845118184624950298064321609815945743689690148
22-03-19977509083134761718325245743981484402542704335140634906232560827569493038743069850511545355490767583802


SENZA LA NAZIONALE TI RINGRAZIO TANTISSIMO .

 

[Mike58]

Ho paura a chiederti cosa te ne fai !!! cosi con gli estratti uniti.
bastava solo eliminare gli spazi delimitatori.
Con il codice stringaEstratti non è possibile eliminare lo zero dalla scrittura.

Sub Main()
 'script By Black
 ini = 4123 '7 Gennaio 1950
 fin = EstrazioneFin
 For es = ini To fin
 Call AvanzamentoElab(ini,fin,es)
 r1 = 1
 r2 = 2
 r3 = 3
 r4 = 4
 r5 = 5
 r6 = 6
 r7 = 7
 r8 = 8
 r9 = 9
 r10 = 10
 Scrivi DataEstrazione(es,,,"/") & "  "  & StringaEstratti(es,r1,"")  & StringaEstratti(es,r2,"") & StringaEstratti(es,r3,"") & StringaEstratti(es,r4,"") & StringaEstratti(es,r5,"") & StringaEstratti(es,r6,"") & StringaEstratti(es,r7,"") & StringaEstratti(es,r8,"") & StringaEstratti(es,r9,"") & StringaEstratti(es,r10,"")
 If ScriptInterrotto Then Exit For
 Next
 End Sub

 

[trivellatomariotretre33]

Mike58 questo che mi ai messo e cosi
07/01/1950 5657127762358248340849670402572256283989298544728847405079353656332745660165121160161370098345715365 14/01/1950 4760360451166847646041606748175348608677598881478411706244630605225140681570026008467380790784291844 21/01/1950 0236397610380440023019061728095746447262800407151755806684784986520167674926324307346472548908614638 mentre deve essere COSI
08-03-19978782122905780649827643888463107003826056110403258132280341208680353122825942724074307862586243714985


tutto unito esempio DATA CON TRATTINO MESE CON TRATTINO ANNO E NUMERI TUTTO UNITI
08-03-19978782122905780649827643888463107003826056E COSI VIA

GRAZIE MIKE58

 

[trivellatomariotretre33]

GRAZIE MIKE58 RISOLTO
UNA STRETTA DI MANO CHILOMETRICA