فرمت بندی اعداد اعشاری

[Morteza_s]

چطور می تونیم اعداد اعشاری رو فرمت بندی کنیم؟

مثلآ عدد 1.461587 رو به صورت 1.46 نمایش بدیم.

[علیرضا مداح]

سلام دوست عزیز
شما باید از کلاس System.Math و تابع Round استفاده نمایید :


Dim num AsDecimal = Math.Round(1.461587, 2)
'num = 1.46 , decimal points = 2

[VB.NET2005]

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
MsgBox(Fix(19.5365))
End Sub

Private Function Fix(ByVal Number As Double)
Dim i AsByte
Dim strNum As String
Dim FixNumber As Double
strNum = Number.ToString
i = InStr(strNum, ".")
strNum = Mid(strNum, 1, i + 2)
FixNumber = CDbl(strNum)
Return FixNumber
End Function

[amirsajjadi]

با سلام


MsgBox(Format(12.256, "Fixed"))