Sottrazione di due etratti

[Xeroxs]

Sto testando un metodo sommativo è dovrei fare la sottrazione di due estratti
3 di Ca
5 di Pa

devo comunque sempre eseguire la sottrazione del più grande con quello piccolo
non rieco a capire quale comando di codice devo fare
se metto questa riga di codice come devo modificarla per ottenere il calcolo voluto
perchè in questo modo non va.
amb(1) = Fuori90(Estratto(es,2,3) - Estratto(es,7,5))

Grazie.

 

[maldor006]

Ciao. Prova con amb(1) =Ass(Estratto(es,2,3) - Estratto(es,7,5))

 

[Xeroxs]

Ciao aldoro 006
provata ma mi da errore devo per caso indicare prima gli estratti come valore in qualche modo

 

[maldor006]

Estratto è un array ? Come lo hai dimensionato? "es" rappresenta l'indice dell'estrazione ? Hai inserito i valori in Estratto?

 

[Xeroxs]

Ciao, faccio prima a postare il listato

Sub Main()
Dim ruote(3),ruota(2)
Dim ab(3),amb(1),num(2)
Dim poste(2),posta(1)
t = 0
posta(1) = 1
poste(2) = 1
rs = InputBox("Quante estrazioni vuoi controllare?",,200)
im = CInt(InputBox("Quante Indice Mensile vuoi controllare?",,4))
ini = EstrazioneFin - rs
k = 11
For es = ini To EstrazioneFin
If IndiceMensile(es) = im Then
'If IsUltimaDelMese (es) Then' Per avere l'ultima del mese devi toglire l'apice a questa riga e metterla sulla riga precedente
amb(1) =Ass(Estratto(es,2,3) - Estratto(es,7,5))
'amb(1) = Fuori90(Estratto(es,2,3) - Estratto(es,7,5)) 'Quì Puoi Modificare l'ambata
ab(1) = 66 'Quì è sotto puoi modificare gli Abbianmenti
ab(2) = 75
'ab(3) = Fuori90(Estratto(es,2,2) + Estratto(es,8,2) + 51)
ruota(1) = 1 : ruota(2) = 5
ruote(1) = 2:ruote(2) = 9:ruote(3) = 11
t = t + 1
ColoreTesto 2: Scrivi"------------------------------------------------------------------<<<giocata n°" & t & ">>>",1
Scrivi DataEstrazione(es) & " Indice Mensile n° " & im,1
ImpostaGiocata 1,amb,ruota,posta,k
co = 1
num(1) = amb(1)
For i = 1 To 3
co = co + 1
num(2) = ab(i)
ImpostaGiocata co,num,ruote,poste,k
Next
co = co + 1
ImpostaGiocata co,ab,ruote,poste,k
Gioca es
End If
Next
ScriviResoconto
End Sub
'Funzione creata da Joe
Function IsUltimaDelMese(idEstr)
Dim sData,sDataNew
Dim idGiornoSettimana
Dim gMancanti
Dim nMeseCorr
sData = Replace(DataEstrazione(idEstr),".","/")
nMeseCorr = Month(sData)
idGiornoSettimana = WeekDay(sData)
Select Case idGiornoSettimana
Case vbTuesday ' martedi
gMancanti = 2
Case vbThursday ' giovedi
gMancanti = 2
Case vbSaturday ' sabato
gMancanti = 3
End Select
sDataNew = DateAdd("d",gMancanti,sData)
If Month(sDataNew) <> nMeseCorr Then
IsUltimaDelMese = True
Else
IsUltimaDelMese = False
End If
End Function

 

[maldor006]

Questo è uno script, non è Vba. Per farlo funzionare cambia la funzione Ass in Abs

 

[maldor006]

Naturalmente non puoi usarlo in Excel. Funziona solo con Spaziometria o con programmi che gestiscono gli script.
P.S. In spaziometria funziona benissimo anche con la prima funzione che mi hai indicato.

 

[Xeroxs]

Grazie questa funziona benissimo,
ho utilizzato alla veloce lo script che mi hanno passato per le modifiche senza curare i dettagli e visto che l'unica cosa che al momento mi interessava era la differenza ho voluto provare.
Sto cercando di migliorare e certamente alcune lacune saranno ancora da eliminare
Grazie

 

[i legend]

Ciao luigi ha scritto anche la funzione distanza che è una differenza ciclometrica e poi la funzione differenza che dovrebbe appunto fare quanto serve ,ma verificate
Ciao

 

[Xeroxs]

Grazie anche a Te, I legend

 

[joe]

Buon giorno,

Mi permetto di ricordare

che per "trovare" l'ultima estrazione del mese ...anni fa

si utilizzava If (IndiceMensile (Es+1)) = 1 Then

Poi ho scritto quella funzione per migliorare alcune delle criticità

e delle limitazioni che aveva questa soluzione.

Anche LuigiB ha integrato questo calcolo in Spaziometria.

Dunque con Spaziometria si scrive IsUltimaDelMese e null'altro.

Con L8 che è rimasto, un vecchio programma, ci si deve aggiungere, in calce,

questa funzione che fu scritta "ad hoc" per rendere compatibili gli script

e che senza di essa in L8 si ottiene un messaggio di errore.

Analogamente sempre in Spaziometria ci sono funzioni apposite

Distanza (A,B)

Differenza (A,B)

Oppure

Distanza (Estratto (Es,R,P). Estratto(...)) e

Differenza (Estratto (Es,R,P). Estratto(...))

 

[Xeroxs]

Grazie joe, sei sempre preciso nei dettagli e nelle info.
Sono qualità che non passano inosservate.
Complimenti.