كسر 100 ريال

[siamak1440]

با سلام
چطور ميتونم در VB6 كسر 100 ريال را به برنامه اضافه كنم
مثلا اگه عددي دارم كه 1.234.533 باشد به 1.234.000 تبديل كنه
با تشكر

[alirezabahrami]

با سلام
چطور ميتونم در VB6 كسر 100 ريال را به برنامه اضافه كنم
مثلا اگه عددي دارم كه 1.234.533 باشد به 1.234.000 تبديل كنه
با تشكر
سلام
از کد زیر در رویداد یک کمند باتن استفاده کن :


Dim x, y, z As Long
x = Len(Me!Text1)
y = Right(Me!Text1, 3)
z = Left(Me!Text1, x - 3)
If y > 500 Then
z = z + 1 & "000"
Else
z = z & "000"
End If
Text2 = z


دو تکست باکس با عنوان text1 و text2 بر روی فرم درج کن سپس مقدار را در text1 وارد کن و نتیجه را در text2 ببین
یا علی