Problema con somma valori

[ubbicom]

Buongiorno.

Scusate ho queste due stringhe:

A = 1.00
B = 5.00

Provo a sommarle A + B ma ottengo: 1.005.00 invece di 6.00... che sbaglio?

[EmTmE]

Originariamente inviato da ubbicom
Buongiorno.

Scusate ho queste due stringhe:

A = 1.00
B = 5.00

Provo a sommarle A + B ma ottengo: 1.005.00 invece di 6.00... che sbaglio?

codice ?

[ubbicom]

Originariamente inviato da EmTmE
codice ?

A = 1.00
B = 5.00

strTot = A + B

response.write strTot

[michele.santoro]

Prova così:

<%
A = 1.20
B = 5.00

strTot =cint(A + B)

response.write (FormatNumber(strTot,2))
%>

[ubbicom]

Grazie, ma:

Tipo di errore:
Errore di run-time di Microsoft VBScript (0x800A0006)
Overflow: 'CInt'

[Esitam]

Ciao prova ad usare il comando Cdbl

<%
A = 1.20
B = 5.00

strTot = Cdbl(A + B)

response.write (FormatNumber(strTot,2))
%>

[ubbicom]

Con cDbl = 100500

Ma forse il problema è altrove...

Function mn2om(minuti)
	If minuti<0 Then segno="-" Else segno=""
	mn = abs(minuti)
	mn2om = segno&CStr(Int(mn/60))&"."&Right("0"&CStr(mn Mod 60),2)
	if minuti=0 then mn2om = " " ' " "
End Function

A = 1.00
B = 5.00

strTot = (mn2om(A) + mn2om(B)

[optime]

cint(a)+cint(b), daje

[ubbicom]

Si grazie Optime, ho risolto così :

strmnONLG = mn2om(mnONLG)

if Trim(strmnONLG & "[]") = "[]" then
          strmnONLG = "0.00"
else
          strmnONLG = strmnONLG
end if

strmnONLG2 = mn2om(mnONLG2)

if Trim(strmnONLG2 & "[]") = "[]" then
          strmnONLG2 = "0.00"
else
          strmnONLG2 = strmnONLG2
end if

   strTot =  cdBl(strmnONLG) + cDbl(strmnONLG2)

[optime]

inZomma, tutta robba mia