رفتن به مطلب
  • 0

روند کردن عدد تا دو رقم اعشار


amirsafari

سوال

سلام دوستان خب سوالم از عنوان هم مشخصه .
میخوام یه عدد اعشاری رو تا 2 رقم روند کنم 
ینی 4/12314124 بشه 4/12 

ممنون میشم راهنمایی کنید

لینک ارسال
به اشتراک گذاری در سایت های دیگر

3 پاسخ به این سوال تاکنون داده شده است

ارسال های توصیه شده

Round2(4.12314124,2)

تست کردم ولی نمیکنه 

 

Sub calcutepreweight(sarfe As Int,dore As String) As Double
	Dim m As Int
	Dim res As Float
	m=(sarfe*143)/1000
	If dore="hafte" Then
	res=7*m/1000
	res=Round2(res,2)
	Return res
	Else If dore="mah" Then
	res=30*m/1000
	res=Round2(res,2)
	Return res
	End If
End Sub

این یه تابعه واسه محاسبه ی یه عبارت و رند کردنش

ولی کار نمیکنه

لینک ارسال
به اشتراک گذاری در سایت های دیگر

سلام

تابعتون رو به این شکل بنویسید »

Sub calcutepreweight(sarfe As Int,dore As String) As Float
	Dim m As Int
	Dim res As Float
	m=(sarfe*143)/1000
	If dore="hafte" Then
		res=7*m/1000
	Else If dore="mah" Then
		res=30*m/1000
	End If
	Return res
End Sub

وبه این شکل استفادش کنید »

Msgbox(Round2(calcutepreweight(12,"mah"),2),"")

خروجی تابع رو رند کنید کارتون راه میوفته.

لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.

مهمان
این موضوع برای عدم ارسال قفل گردیده است.
  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...