sommare valori nulli ?!!??

[KLINKO]

utilizzo queste tre funzioni per sommare o sottrarre dei valori che passo alla funzione
ma se uno o piu di questi valori è inesistente mi da come risultato totale comunque 0

sapete aiutarmi??


Function Euro(cifra)
If cifra <> "" Then
Response.Write(formatnumber(cifra, 2, -2, -2, -2) & " €")
End IF
End Function

Function FNULL(valore)
If valore = "" or IsNull(valore) Then
valore = 0
End If
End Function

Function ResponsabiliTotale(ContantiTrattenuti,ContantiAcqu isiti,AssegniTrattenuti,Spese,Stipendi,Debiti,Util i)
Dim Positivo
Dim Negativo
Dim ResponsabileTotale
Negativo = (FNULL(ContantiTrattenuti) + FNULL(ContantiAcquisiti) + FNULL(AssegniTrattenuti) + FNULL(Debiti))
Positivo = (FNULL(Spese) + FNULL(Stipendi) + FNULL(Utili))
ResponsabileTotale = (Positivo - Negativo)
Response.Write(Euro(ResponsabileTotale) & "
")

[Nuvolari2]

Originariamente inviato da KLINKO
utilizzo queste tre funzioni per sommare o sottrarre dei valori che passo alla funzione
ma se uno o piu di questi valori è inesistente mi da come risultato totale comunque 0

sapete aiutarmi??


Function Euro(cifra)
If cifra <> "" Then
Response.Write(formatnumber(cifra, 2, -2, -2, -2) & " €")
End IF
End Function

Function FNULL(valore)
If valore = "" or IsNull(valore) Then
valore = 0
End If
End Function

Function ResponsabiliTotale(ContantiTrattenuti,ContantiAcqu isiti,AssegniTrattenuti,Spese,Stipendi,Debiti,Util i)
Dim Positivo
Dim Negativo
Dim ResponsabileTotale
Negativo = (FNULL(ContantiTrattenuti) + FNULL(ContantiAcquisiti) + FNULL(AssegniTrattenuti) + FNULL(Debiti))
Positivo = (FNULL(Spese) + FNULL(Stipendi) + FNULL(Utili))
ResponsabileTotale = (Positivo - Negativo)
Response.Write(Euro(ResponsabileTotale) & "
")

Credo che il problema possa risiedere nel fatto che nella funzione FNULL la variabile valore è locale. Ovvero:

Function FNULL(valore)
If valore = "" or IsNull(valore) Then
valore = 0
End If
End Function

dentro all'If, la variabile valore, che valorizzi a zero, non è la varibile valore che viene passata alla funzione.

[KLINKO]

io voglio solo impostare a 0 una variale con nessun valore

come posso fare?

[optime]

le funzioni si fanno in un altro modo...

Function Asteriscato(valore)
   Asteriscato = "*" & valore & "*"
End Function

Response.Write Asteriscato("bello")

comprendere et applicare al tuo caso

[KLINKO]

ho provato cosi ma non ci sono ancora
mi aiuti please


Function FNULL(valore)
FNULL = FNULL + valore + 0
End Function

[optime]

andava bene quella di prima, ma non dovevi impostare valore, bensi' fnull

[KLINKO]

grazie funge