سلام به همگی
یک سوال و این همه جواب؟؟!!!
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