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

[سپهر-111]

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

چطور میشه فقط قسمت صحیح اعداد اعشاری نشون داد ؟؟
مثلا : 98.98278560250391
فقط 98 نشون داده بشه (البته نمیخوام راند بشه چون اگه راند بشه میشه 99 ! )

ممنون میشم راهنمایی بفرمایید

[SlowCode]

سلام
از Int یا CInt استفاده کن.

[soheila2012]

cint به نزدیکترین عدد گرد میکنه
این باید عددی که قبل از دات (.) البته سمت چپ رو نشون بده.
با توابع رشته ای میشه

[soheila2012]

Private Sub Command1_Click()
Dim a As Integer
a = Val(Text1.Text)
Print CInt(a)
End Sub

اعداد رو گرد میکنه

[سپهر-111]

cint به نزدیکترین عدد گرد میکنه
این باید عددی که قبل از دات (.) البته سمت چپ رو نشون بده.
با توابع رشته ای میشه

ممنون از پاسخ شما و محسن عزیز
ایا راهی نداره که به صورت رشته ای نباشه . . .

[soheila2012]

Dim a As String
a = Text1.Text
Print Left(a, 2)
اگه فقط با دو عدد باشه

[سپهر-111]

Dim a As String
a = Text1.Text
Print Left(a, 2)
اگه فقط با دو عدد باشه


ممنون از شما

امتحان کردم همون Int جواب میده !

[ho3ein.3ven]

سلام . برای حذف قسمت اعشار اعداد منفی از تابع int نمی تونی استفاده کنی .
برای حذف قسمت اعشار از تابع fix استفاده کن .

[سپهر-111]

باتشکر از دوستان که وقت میزارند و جواب میدن
یک سوال دیگه ؟!
حالا اگه بخوام یک رقم اعشار بعدش نشون بدم چکار باید بکنم( البته بازم نمیخوام گرد بشه )

مثلا :
مثلا : 98.98278560250391
فقط 98.9 نشون داده بشه

[SlowCode]

با این روش هر بلایی میخوای سر عدد بیار.
num = 98.9827856025039
Splited = Split(num, ".")
MsgBox Splited(0) & "." & Left(Splited(1), 1)

[amin32]

یک تابع کوچیک نوشتم که میتونی تا هر عدد اعشار که خواستی رو بدست بیاری:


Private Function FixFloat(ByVal Number As Double, length As Integer) As String
FixFloat = Mid(Number, 1, InStr(1, Number, ".") + length)
End Function


و این هم یه مثال:


Print FixFloat(98.9827856025039, 1)

[ho3ein.3ven]

سلام . با استفاده از خود توابع ویژوال بیسیک هم می تونید این کار رو انجام بدین :

مثال :
Round(2.223, 1)

[سپهر-111]

سلام دوستان گل
چطور میشه فهمید که یک عدد چند رقم اعشار داره ؟؟!
مثلا :
98.98278560250391
باتشکر

[ho3ein.3ven]

سلام .
تابع زیر رو بررسی کنید :

Private Function CountFloat(num As Double)
p = InStr(1, CStr(num), ".")
num = Mid(CStr(num), p + 1)
p = Len(CStr(num))
CountFloat = p
End Function

موفق باشید

[سپهر-111]

سلام .
تابع زیر رو بررسی کنید :

Private Function CountFloat(num As Double)
p = InStr(1, CStr(num), ".")
num = Mid(CStr(num), p + 1)
p = Len(CStr(num))
CountFloat = p
End Function

موفق باشید


سلام ممنون زحمت کشیدی
ولی اعداد اعشاری مثل این نشون نمیده
مثلا : 0.001
که سه رقم اعشار هستش ولی خروجی تابع یک رقم اعشار هستش !
ممنون میشم راهنمایی بفرمایید

[ho3ein.3ven]

سلام . تابع رو ویرایش کردم :

Private Function CountFloat(num As Double)
Dim num1 As String
num1 = CStr(num)
p = InStr(1, num1, ".")
num1 = Mid(num1, p + 1)
p = Len(num1)
CountFloat = p
End Function

موفق باشید.

[سپهر-111]

سلام . تابع رو ویرایش کردم :

Private Function CountFloat(num As Double)
Dim num1 As String
num1 = CStr(num)
p = InStr(1, num1, ".")
num1 = Mid(num1, p + 1)
p = Len(num1)
CountFloat = p
End Function

موفق باشید.

ممنون دوست عزیز خیلی زحمت کشیدی
ولی یک ایراد دیگه داره . . .
اونم اینه که اگه عدد مورد نظر ، بدون اعشار باشه و در ورودی این تابع قرار بگیره ، در خروجی باید صفر بده ، ولی اینطور نیست
ممنون میشم بررسی نمایید

[ho3ein.3ven]

سلام . مجددا ویرایش شد :

Private Function CountFloat(num As Double)
Dim num1 As String
num1 = CStr(num)
p = InStr(1, num1, ".")
If p = 0 Then
CountFloat = 0
Exit Function
End If
num1 = Mid(num1, p + 1)
p = Len(num1)
CountFloat = p
End Function

موفق باشید.

[SlowCode]

بفرما:
Num = 0.001
Splited = Split(Num, ".")
MsgBox Len(Splited(1))
تابع split خیلی از کارها رو آسون میکنه.

[سپهر-111]

بفرما:
Num = 0.001
Splited = Split(Num, ".")
MsgBox Len(Splited(1))
تابع split خیلی از کارها رو آسون میکنه.

ممنون محسن جان
تابعی که دوستمون لطف کردند و گذاشتند جواب داد