[RESOLVED] Problem with Numbers

[wxmancanada]

I have a number that appears in a text box, but the number sometimes has a decimal...

Lets say I have the number 2, sometimes it will show up as 2.(then another number)

Without writing a huge code saying:

If input.Text = 2.1 Then
output.Text = 2 
ElseIf input.Text = 2.2 Then
output.Text = 2
 ' etc, etc, etc, etc, etc, etc, etc... Long!
End If

Is there a way I can just take the number, and remove the decimal, and the number after it?

The number is always different, could be 2, could be 9, could be anyting.

Thanks for your help!

[anhn]

Perhaps you have to write a trillion lines like that to cover all combinations!!!

output.Text = Int(input.Text)

[akhileshbc]

What about this???

Text1.text=left(text1.text,instr(1,text1.text,".")-1)

Will this help you???

-Best wishes
Akhilesh

[akhileshbc]

If you have 2.7 in the textbox, then if you use the code that anhn had posted,

output.Text = Int(input.Text)

it will give you the result 3

Am I right, Anhn..???

[Ellis Dee]

No, Int() will always show the first integer equal to or less than the value. So Int(2.7) will return 2.

However, for negative numbers, the integer part gets bigger because, as noted, Int() always returns the integer <= the number. So Int(-2.7) returns -3.

Fix() is exactly like Int() for positive numbers, but goes the other way for negatives:

Int(2.7) = 2
Int(-2.7) = 3
Fix(2.7) = 2
Fix(-2.7) = -2

Fix() can be said to simply strip off the decimal portion of the number.

[akhileshbc]

Thanks for clearing it, Ellis...
VB6 is not installed in this computer, so I was not able to check it... That's why asked that int() problem... Thanks again...

[anhn]

A typo there Ellis: Int(-2.7) = -3 as you mentioned above.

[anhn]

Thanks for clearing it, Ellis...
VB6 is not installed in this computer, so I was not able to check it... That's why asked that int() problem... Thanks again...

Do you have Excel/Word installed on that computer?
That is common code for VBA/VB6.

[akhileshbc]

Do you have Excel/Word installed on that computer?
That is common code for VBA/VB6.

No, this is my testing machine....
Softwares that I had developed will be tested in here....

[wxmancanada]

Thanks so much foer the help guys!

Heres my code, I'm getting an identifyer error:

Fix (theDoc.selectSingleNode("//value").Text) = ExternalValue.Caption

I'm loading the number from a XML file, then putting it in a label... It doesnt seem to be working, whats wrong?

Thanks

[akhileshbc]

Externalvalue.Caption=fix(val(thedoc.Selectsinglenode("//value").Text))

[wxmancanada]

Thank you everyone for your help, I have no solved the issue! Works perfectly!

Thank you!

[akhileshbc]

If your problem is solved, then mark the thread as RESOLVED

-Best wishes
Akhilesh