How to extract only interger value from a double value

[sprahalad]

Hi all, I have a textbox1 with value 1001.75 and want to move value into next textbox2 only 1001 and no decimals and don't want to round as well. Please help me becasue I tried this in many ways.

[vb5prgrmr]

Use the CStr(somevalue) to move the whole number into a string. Then use left(somestring , instr(1, somestring, ".") - 1) to move it into the other text box...



Good Luck

[Guido Geurs]

dear,

I hope this will help:

Private Sub Command1_Click()
   Text2.Text = Int(Val(Text1.Text))
End Sub

see attachment

br,

[sprahalad]

Thanks for your help......it worked

[sprahalad]

Thanks for your help......

[sprahalad]

This is great actually and it worked......... ..thanks for your help..