در محاسبه عددی بعد از اعشار را حذف کنم

[zarrin_306]

برای اینکه در محاسبه عددی بعد از اعشار را حذف کنم چه باید کرد
مثال 761984.293658 به 761984 در آید

[مهدی نان شکری]

Dim a As Math
MsgBox(a.Truncate(761984.293658).ToString)

[farazjoonam]

mitooni az code zir estefade koni
dim number as integer
ama fekr konam jaye integer bayad long ya ye chiz dige bezari var boro :لبخند:

[seeker]

چرا از تابع () Int استفاده نمیکنید؟

Int(78.65) ===> 78

[yaserzare]

میتونی از کد زیر استفاده کنی
dim strfirst as string=761984.293658
(".",dim place as integer=instr(1,strfirst
(strfirst=Microsoft.VisualBasic.Left(strfirst, place - 1

[Alireza_Salehi]

جهت نمایش با تعداد ارقام اعشار دلخواه (به جای عدد صفر در مقابل F تعداد ارقام اعشار):


Dim x As Double = 761984.293658
TextBox3.Text = x.ToString("F0")


فقط حذف اعشار در خود عدد:


x = Math.Truncate(x)

[حامد مصافی]

سلام به همگی
یک سوال و این همه جواب؟؟!!!



Dim a As Math
MsgBox(a.Truncate(761984.293658).ToString)

Truncate یک روتین Shared است. نیازی به ایجاد نسخه جدیدی از Math نیست (مکروه هم هست)


چرا از تابع () Int استفاده نمیکنید؟تابع Int جز صحیح عدد را بر می گرداند (برای اعداد منفی یکی کمتر از آنچه انتظار دارید)



-6.5 -> -7

میتونی از کد زیر استفاده کنی
dim strfirst as string=761984.293658
(".",dim place as integer=instr(1,strfirst
(strfirst=Microsoft.VisualBasic.Left(strfirst, place - 1که این عالیه کد ها رو حفظی می نویسی؛ اما:

یادت رفته در خط اول علامت کوتیشن دوبل (") بذاری (که مهم نیست)
اما توجه داشته باش اگر در سیستمی Decimal Symbol برابر نقطه نباشه کد تو دچار مشکل میشه.
این گزینه رو میشه از مسیر زیر تغییر داد


Control Panel | regional and Language option |Regional Options | Customize | Decimal Symbole

[مهدی نان شکری]

Truncate یک روتین Shared است. نیازی به ایجاد نسخه جدیدی از Math نیست (مکروه هم هست)

[/code]

ممنون از توجه شما.
ولی من نسخه جدیدی ایجاد نکردم. فقط یک متغییر از نوع Match تعریف کردم که نیازی هم نبود.
به هر حال متشکر از توجه دقیقانه شما

[linux]

ممنون از توجه شما.
ولی من نسخه جدیدی ایجاد نکردم. فقط یک متغییر از نوع Match تعریف کردم که نیازی هم نبود.
به هر حال متشکر از توجه دقیقانه شما
dim a as math یعنی یک شی جدید به اسم a از کلاس math چون این کلاس shared هست از new استفاده نکردی و جواب داده. برای کلاس هایی که shared هستند اینکار درست نیست
اگر می خواهید از اسم کوتاه تر استفاده کنید ایجوری استفاده کنید
Imports m = System.Math