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

[amirsafari 116]

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

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

[Farzad Musavi 576]

Round2(4.12314124,2)

[amirsafari 116]

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

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

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

[مجید آرتا 5,874]

سلام

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

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),"")

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