[RESOLVED] I can't sum demical numbers...(vb6)

[Sup3r]

hi guys!

i have put this code in my project.

Private Sub Command1_Click()
Form1.Textx = Val(Form1.Textx) + Val(Form2.Textz)
End Sub

i cant sum demical numbers but only integer numbers...

What am i doing wrong? Could u tell me pleaze?!

[Peter Schoots]

The problem might be with the definition of the textx and textz properties.
What are they?

Peter Schoots

[Sup3r]

The problem might be with the definition of the textx and textz properties.
What are they?

Peter Schoots

Just simple text boxes!i didn't do anything with their properties...

[Peter Schoots]

Text1.Text = Val(Text1) + Val(Text2)

Textx and textz being textboxes it should work if the strings have decimal points in it. I tried the above statement which works. What are the values in the textz and textx boxes?

[gibra]

hi guys!

i have put this code in my project.

Private Sub Command1_Click()
Form1.Textx = Val(Form1.Textx) + Val(Form2.Textz)
End Sub

i cant sum demical numbers but only integer numbers...

What am i doing wrong? Could u tell me pleaze?!

Caution! Try this code in Immedate window:

?Val("123,4")
 123 

?Val("123.4")
 123,4 

?Val("123,4") + Val("123,4")
 246 

?Val("123.4") + Val("123.4")
 246,8

[Siddharth Rout]

Try this

Private Sub Command1_Click()
Form1.Textx = CDbl(Val(Form1.Textx)) + CDbl(Val(Form2.Textz))
End Sub

[gibra]

Private Sub Command1_Click()
Form1.Textx = CDbl(Val(Form1.Textx)) + CDbl(Val(Form2.Textz))
End Sub

Same thing, same result:

?Val("123.4") + Val("123.4")
 246,8 
?CDbl(Val("123.4")) + CDbl(Val("123.4"))
 246,8

?Val("123,4") + Val("123,4")
 246 
?CDbl(Val("123,4")) + CDbl(Val("123,4"))
 246

[LouisItaly]

You can use the following function that makes use of CDbl and you solve the problem in all forms. Remember to write the Text (Form2.Textz.Text) property.

Option Explicit
'----------------------------------
Public Function Ctr(strTesto As String) As Double
    On Error Resume Next
        
    If IsNumeric(strTesto) = True Then
        Ctr = CDbl((strTesto))
        Else: Ctr = 0
    End If
    
End Function
'----------------------------------
Sub Command1_Click()
    Form1.Textx.Text = Ctr(Form1.Textx.Text) + Ctr(Form2.Textz.Text)
End Sub

[Sup3r]

Still nothing... I am not confused with (,) or (.) and this code

Form1.Textx = CDbl(Val(Form1.Textx)) + CDbl(Val(Form2.Textz))

sums correct only the first time that i am putting a demical number in the textbox! Then the result is not right! ;/

Any other ideas?

[Siddharth Rout]

Works for me...

[Sup3r]

You can use the following function that makes use of CDbl and you solve the problem in all forms. Remember to write the Text (Form2.Textz.Text) property.

Option Explicit
'----------------------------------
Public Function Ctr(strTesto As String) As Double
    On Error Resume Next
        
    If IsNumeric(strTesto) = True Then
        Ctr = CDbl((strTesto))
        Else: Ctr = 0
    End If
    
End Function
'----------------------------------
Sub Command1_Click()
    Form1.Textx.Text = Ctr(Form1.Textx.Text) + Ctr(Form2.Textz.Text)
End Sub

LouisItaly that is working perfect but i have not enable the (,) button in the text box... The user can type only the (.) button for demical point...and this is not working with (.) button! Can u make your magics pleaze??? hahahaha!

[Sup3r]

Works for me...

I have 2 forms in my project.Thats maybe why is not working to my project.

[Siddharth Rout]

Can u upload u r project?

[Peter Schoots]

I don't think you need dbl(val(textx.text)). dbl(textx.text) will do.

[Sup3r]

Can u upload u r project?

Sure! here it is!

http://rapidshare.com/files/29775960..._____.rar.html

Check it out!

[Siddharth Rout]

The link tells me

This file can only be downloaded by becoming a Premium member.

There are no more download slots available for free users right now. If you don't want to become a premium member, you might want to try again later.

Can you upload a zip file or mail it to me?

[Sup3r]

The link tells me

This file can only be downloaded by becoming a Premium member.

There are no more download slots available for free users right now. If you don't want to become a premium member, you might want to try again later.

Can you upload a zip file or mail it to me?

Sorry in my panic i forgot that i have a rapidshare premium account...

Here it is again...

http://rapidshare.com/files/29777216...__________.rar

Thanks a lot!!!

[Siddharth Rout]

Seems like you panicked again....

I am getting the same message again...

I have pm'd you my email address. you can mail it to me...

[Siddharth Rout]

As discussed the problem is not the code but the regional settings... the decimal was not being recognized since you had Greece setting on.... Change it to English US from "Regional and language Options" and it will work fine.... as we tested it...

[Jim Davis]

You can do some tricks to make your application to be compatible with any regional settings. The only thing you have to do is replace the commas.

Dim A As String, B As String, D As Double
  Dim sFormatComma As String
  A = "10,0006"
  B = "2.345"
  
  sFormatComma = Left$(Format$(CStr(1 / 2), ".0"), 1) 'lets see what the Format$ will gives you for the decimal sign
  
  If sFormatComma = "," Then
   'convert comma to dot
    A = Replace$(A, ",", ".")
    B = Replace$(B, ",", ".")
  End If
  
  D = val(A) + val(B)
  Debug.Print D

There might be other ways to do this, but it is definitely does the job.

[Sup3r]

You can do some tricks to make your application to be compatible with any regional settings. The only thing you have to do is replace the commas.

Dim A As String, B As String, D As Double
  Dim sFormatComma As String
  A = "10,0006"
  B = "2.345"
  
  sFormatComma = Left$(Format$(CStr(1 / 2), ".0"), 1) 'lets see what the Format$ will gives you for the decimal sign
  
  If sFormatComma = "," Then
   'convert comma to dot
    A = Replace$(A, ",", ".")
    B = Replace$(B, ",", ".")
  End If
  
  D = val(A) + val(B)
  Debug.Print D

There might be other ways to do this, but it is definitely does the job.

Thank u too Jim Davis! I 'll keep that to my mind!