نمایش فقط دورقم اعشار در تکست باکس

[ali190]

باسلام
من یک متغیر از نوع doble دارم که نتیجه این متغیر رو در یک تکست باکس نمایش میدم
چطور میتونم فقط تا دورقم اعشار رو در این تکست باکس نمایش بدم؟
ممنون

[m_test]

Advanced Textbox (http://4linecode.mihanblog.com/post/879)

[mostafa_bahar]

شما می تونید از mid استفاده کنید

[vb study]

با سلام

ابتدا يك متغير integer تعريف كنيد(اين متغير تنها بخش صحيح عدد را ذخيره مي كند)
يك متغير single تعريف كنيد(اين متغير بخش صحيح و اعشاري عدد را ذخيره مي كند)

عدد را در 100 ضرب كنيد و به متغير integer نسبت دهيد

متغير integer را تقسيم بر 100 و در متغير single ذخيره نماييد

[alirezabahrami]

باسلام
من یک متغیر از نوع doble دارم که نتیجه این متغیر رو در یک تکست باکس نمایش میدم
چطور میتونم فقط تا دورقم اعشار رو در این تکست باکس نمایش بدم؟
ممنون
سلام
اگر اين كار را مي خواهي در محيط اكسس انجام بدهي format تكست باكس را از نوع fixed يا standard و decimal places آن را 2 قرار بده !
موفق باشيد

[M.T.P]

تا دو رقم اعشار میشه این:

Text1.Text = "18571.258"
Text1.Text = Format(Text1.Text,"###,###,###.##")

یا:


Text1.Text = "18571.258"
Text1.Text = Format(Text1.Text,"#########.##")

موفق باشید./ :لبخندساده:

[ahmads]

سلام دوست عزیز

شاید مشکلتون حل شده باشه اما از این کد هم میشه استفاده کرد


x = InStr(1, Text1, ".")
If x <> 0 Then Text1 = Left$(Text1, x + 2) Else: Text1 = Text1 & ".00"