sub e "variabile globale"

[seafarer]

ho una sub che calcola degli importi ma ho bisogno che quest importi siano, aseguito della chiamata alla suddetta, disponibili per essere sommati, insomma, la sub dovrebbe fare i dovuti calcoli per poi sommare il risultato ad una variabile globale così

sub calcola(tot)
var_globale=var_globale+tot
end sub

quindi richiamare

calcola 1
calcola 2
calcola 3
response.write var_globale

mi dovrebe dare in questo caso 6.
come faccio? posso "ritornare" almeno qualcosa come in C?esiste un return in modo da poter fare:

var_temp=calcola 1

?

[Roby_72]

sub calcola(tot, byref var_globale)

Roby

[gold]

Originariamente inviato da seafarer
ho una sub che calcola degli importi ma ho bisogno che quest importi siano, aseguito della chiamata alla suddetta, disponibili per essere sommati, insomma, la sub dovrebbe fare i dovuti calcoli per poi sommare il risultato ad una variabile globale così

sub calcola(tot)
var_globale=var_globale+tot
end sub

quindi richiamare

calcola 1
calcola 2
calcola 3
response.write var_globale

mi dovrebe dare in questo caso 6.
come faccio? posso "ritornare" almeno qualcosa come in C?esiste un return in modo da poter fare:

var_temp=calcola 1

?

le function restituiscono un valore
esempio :


function pippo(ugo)

pippo = ugo+5

end function

totale = pippo(3)'totale = 8

[gold]

Originariamente inviato da Roby_72

sub calcola(tot, byref var_globale)

Roby

solo qualche secondo

[seafarer]

mucho laconico ma grazie

[gold]

Originariamente inviato da seafarer
mucho laconico ma grazie

scusa l'ignoranza ma cosa vuol dire laconico ?



Grassie

[optime]

se la variabile e' davvero globale, basta dichiararla *fuori* dalla Sub. per cui

...
Dim var_globale
...
Sub calcola(tot) 
   var_globale = var_globale + tot 
End Sub

[seafarer]

laconico vuol dire di poche parole...per quanto riguarda optime c'avevo già provato all'inizio ma non funge mi va benissimo la soluzione del laconico Roby

[seafarer]

ovviamente grazie anche a gold