Modifica script per salvo50 o altro esperto

[Matematico]

Ciao a tutti, come da titolo cortesemente chiedo una modifica al seguente script ...ricercare i due ambi voluti non nella stessa estrazione ma su due estarzioni qualunque consecutive ad esempio:

1/8/2019- BA :10-78
3/8/2019- CA: 90-31

Ecco lo script da modificare:

Sub Main
Dim ambo1(2),ambo2(2)
Dim r1(1),r2(1)
Ini = EstrazioneIni
fin = EstrazioneFin
a = InputBox("1 Numero ambo1",,62)
b = InputBox("2 Numero ambo1",,29)
c = InputBox("1 Numero ambo2",,65)
d = InputBox("2 Numero ambo2",,26)
For es = Ini To fin
ambo1(1) = a
ambo1(2) = b
ambo2(1) = c
ambo2(2) = d
r1(1) = TU_

If VerificaEsito(ambo1,r1,es,2,1,,esito1,clp1,es1,id1) = True Then
If VerificaEsito(ambo2,r1,es,2,1,,esito2,clp2,es2,id2) = True Then
Scrivi GetInfoEstrazione(es) & vbTab,0,0
Scrivi StringaNumeri(ambo1,,1) & vbTab & StringaNumeri(ambo2,,1) & vbTab,0,0
Scrivi StringaRuote(r1) & "." & StringaRuote(r1) & vbTab,0,0
Scrivi es1 & vbTab & es2
End If
End If
Next
End Sub

 

[salvo50]

Ciao Matematico, ecco lo script modificato, salvo errori o dimenticanze

Sub Main
   Dim ambo1(2),ambo2(2)
   Dim r1(1),r2(1)
   Ini = EstrazioneIni
   fin = EstrazioneFin
   a = InputBox("1 Numero ambo1",,62)
   b = InputBox("2 Numero ambo1",,29)
   c = InputBox("1 Numero ambo2",,65)
   d = InputBox("2 Numero ambo2",,26)
   Scrivi Space(5) & " Prima Data " & Space(20) & " Seconda Data "
   Scrivi
   For es = Ini To fin
      ambo1(1) = a
      ambo1(2) = b
      ambo2(1) = c
      ambo2(2) = d
      r1(1) = TU_
      If VerificaEsito(ambo1,r1,es,2,1,,esito1,clp1,es1,id1) = True Then
         If VerificaEsito(ambo2,r1,es + 1,2,1,,esito2,clp2,es2,id2) = True Then
            Scrivi GetInfoEstrazione(es) & vbTab & GetInfoEstrazione(es + 1) & vbTab,0,0
            Scrivi StringaNumeri(ambo1,,1) & vbTab & StringaNumeri(ambo2,,1) & vbTab,0,0
            Scrivi StringaRuote(r1) & "." & StringaRuote(r1) & vbTab,0,0
            Scrivi es1 & vbTab & es2
         End If
      End If
   Next
End Sub

 

[Matematico]

Grazie di cuore salvo50, tutto ok ,sei un grande!