جدا کردن قسمت صحیح از عدد اعشاری

[farzad2006]

لطفا منو راهنمایی کنیییییییید

مثال : 15 <--- 15.78

:بوس:

[ali_habibi1384]

از تابع int استفاده کنید یا از fix :


dim a as double
a=text1.text
a=fix(a)

تابع fix عددو گرد میکنه تابع int جزء صحیح عدد رو پیدا میکنه.

[farzad2006]

بابا Int هم گرد میکنه که
15.45=15
15.55=16

[ali_habibi1384]

نه گرد نمیکنه شما امتحان کن بعدش بگو گرد میکنه!!! من الآن امتحانش کردم

[__siavash__]

فرق بین Int و Fix که اتفاقا همین دو سه روز پیش بحث شد


Private Sub Form_Load()
MsgBox Int(15.78) 'Return 15
MsgBox Int(-15.78) 'Return -16
MsgBox Fix(15.78) 'Return 15
MsgBox Fix(-15.78) 'Return -15
End Sub

http://barnamenevis.org/forum/showthread.php?t=83699

البته اگه بخوای این عدد رو گرد کنی باید از تابع Format استفاده کنی !


MsgBox Format(15.78, "##") 'Return 16
MsgBox Format(15.45, "##") 'Return 15

[اوبالیت به بو]

از تابع Cint استفاده کن.
اگه اعشارش زیر 5 باشه گرد به پایین اگه 5 یا مساوی 5 باشه گرد به بالا می کنه.

Cint(15.2) = 15
Cint(10.5) = 11
Cint (12.8) = 13

[ali_habibi1384]

گرد به به بالا یا پاییین یعنی چی؟؟؟؟؟ بگو روندش میکنه دیگه!

[ali_habibi1384]

شما مشکلت هنوز حل نشده؟؟؟؟

[اوبالیت به بو]

والا چی بگم.به ما اینجوری یاد دادن.

[farzad2006]

مرسی ممنون مشکلم حل شد


.: با تشکر :.