محبوبترینها
با چاپ روی وسایل یک کسب و کار پرسود بسازید
قیمت دیگ بخار و تولیدکننده اصلی دیگ بخار
معروف‌ترین هدیه و سوغاتی یزد مشخص شد!
آشنایی با انواع دوربین مداربسته ضد آب
پرداخت اینترنتی قبوض ساختمان (پرداخت قبض گاز، برق و آب)
بهترین دوره آموزش سئو محتوا در سال 1403 با نام طوفان ۱۴۰۳ در فروردین ماه شروع می شود
یک صرافی ارز دیجیتال چه امکاناتی باید داشته باشد؟
تعمیرگاه مجاز تعمیر ماشین لباسشویی در شرق تهران
تعمیرگاه مجاز تعمیر ماشین لباسشویی در شرق تهران
جراحی و درمان ریشه دندان عفونی با خانم دکتر صفوراامامی
چه مواردی بر قیمت کابین دوش حمام تاثیر دارند؟
صفحه اول
آرشیو مطالب
ورود/عضویت
هواشناسی
قیمت طلا سکه و ارز
قیمت خودرو
مطالب در سایت شما
تبادل لینک
ارتباط با ما
مطالب سایت سرگرمی سبک زندگی سینما و تلویزیون فرهنگ و هنر پزشکی و سلامت اجتماع و خانواده تصویری دین و اندیشه ورزش اقتصادی سیاسی حوادث علم و فناوری سایتهای دانلود گوناگون
مطالب سایت سرگرمی سبک زندگی سینما و تلویزیون فرهنگ و هنر پزشکی و سلامت اجتماع و خانواده تصویری دین و اندیشه ورزش اقتصادی سیاسی حوادث علم و فناوری سایتهای دانلود گوناگون
آمار وبسایت
تعداد کل بازدیدها :
1798336035
ممیز دار کردن اعداد -
واضح آرشیو وب فارسی:سایت ریسک: ممیز دار کردن اعداد shadecute 04 آذر 1387, 00:58سلام دوستان من برای پروژه دانشگاه ( مباحث ویژه ) با وی بی یه برنامه معمولی نوشتم که یه سری چیزا رو بگیره و حالا جمع کنه و مجموع رو نشون بده احالا استاده به یه چیز گیر داده اینکه اعداد رو موقع وروردی گرفتن 3 تا 3تا جدا کنه مثلا 10.000 موقع وارد کردن اتوامات خودش جدا کنه و بعد از جمع اعداد مجموع رو هم به همین شکل نشون بده مثلا 240.000.000 ممنون میشم راهنماییم کنید shadecute 06 آذر 1387, 20:34کمک کنید دیگه the_king 06 آذر 1387, 21:18شما می توانید از تابع FormatNumber استفاده کنید که یک عدد را بصورت رشته String بر می گرداند. پارامتر اول این تابع مقدار عددی خواهد بود که قرار است برگردانده شود، مثلا : FormatNumber(123456) FormatNumber(3.14) FormatNumber(MyNumber) FormatNumber(Val(Text1.Text)) پارامتر دوم این تابع تعداد رقمهای بعد از ممیز (اعشاری) را مشخص می کند که می تواند 0 هم باشد. مثلا : FormatNumber(3.14, 2) FormatNumber(MyNumber, 0) FormatNumber(Val(Text1.Text), 4) برای آنکه رقم ها سه تا سه تا جدا شوند پارامترهای سوم الی پنجم را اینگونه مشخص نمایید (فرض کنیم که n عدد مورد نظر و m تعداد رقمهای بعد از اعشار باشد : FormatNumber(n, m, vbFalse, vbFalse, vbTrue) در مثال زیر ما عدد 12345678 را سه رقم سه رقم جدا کرده و در یک پنجره MessageBox نمایش می دهیم : Private Sub Form_Load() Dim I As Double I = 12345678 MsgBox FormatNumber(I, 0, vbFalse, vbFalse, vbTrue) End Sub در مثال زیر ما مقدار عددی درون کنترل TextBox ای با نام Text1 را سه رقم سه رقم جدا کرده و در درون TextBox دیگری با نام Text2 کپی می کنیم : Text2.Text = FormatNumber(Val(Text1.Text), 0, vbFalse, vbFalse, vbTrue) عیب این تابع FormatNumber این است که همیشه تعداد رقم های بعد از اعشار ثابتی خواهد داشت. مثلا اگر مقدار پارامتر دوم 0 باشد عدد 3.14 را 3 بر می گرداند و اگر پارامتر دوم 3 باشد عدد 1234 را 1,234.000 نشان میدهد. برای رفع این مشکل می توانید از یک تابع اختصاصی استفاده کنید : Private Function GroupDigits(ByVal Number As Variant) As String Dim Pos As Long GroupDigits = Format(Number, "###,###,###,##0.##########") If Right(GroupDigits, 1) = "." Then GroupDigits = Left(GroupDigits, Len(GroupDigits) - 1) End If End Function این تابع GroupDigits تنها یک ورودی دارد که همان عددی است که قرار است برگردانده شود. مزیت این تابع اختصاصی در این است که اعداد اعشاری را با تعداد رقم های بعد از اعشار موجود نشان داده (تا 10 رقم بعد از اعشار را نمایش می دهد) و اعداد غیر اعشاری را بدون ممیز بر می گرداند. مثلا عدد 3.14 را 3.14 بر می گرداند و عدد 1234 را 1,234 نشان میدهد.
این صفحه را در گوگل محبوب کنید
[ارسال شده از: سایت ریسک]
[مشاهده در: www.ri3k.eu]
[تعداد بازديد از اين مطلب: 1290]
-
گوناگون
پربازدیدترینها