حذف اعشار در محيط برنامه

[mahdighasemi]

سلام دوستان
من برنامه اي نوشتم در محيطVB. NET 2003 و يك متغير از نوع decimal از بانك اكسس هنگامي كه وارد برنامه مي شوم همه داده ها داراي دورقم اعشار مي شود چه اعشار داشته باشد چه نداشته باشد و اين مشكل بزرگي براي من شده آيا روشي هست فقط اعدادي كه اعشار دارند اعشارشان نمايش داده شود و بقيه نمايش داده نشود
باتشكر فراوان

[baidin]

در صورتی که مقدار خوانده شده در Num ریخته شود:

Dim Num As Decimal = 12323.34
Dim strArr() As String = Split(CStr(Num), ".")
If UBound(strArr) >= 1 Then
MsgBox(strArr(0) & "/" & strArr(1))
Else
MsgBox(strArr(0))
End If

Num = 2344.0
strArr = Split(CStr(Num), ".")
If UBound(strArr) >= 1 Then
MsgBox(strArr(0) & "/" & strArr(1))
Else
MsgBox(strArr(0))
End If

[حامد مصافی]

System.Math.Round

[salehbagheri]

BlackDal جان! در صورتي ميشه از كد شما استفاده كرد كه نياز به اعشار نداشته باشيم!

ايشون سوال كردند كه اگر اعشار داشت نشون بده و اگر نداشت نشون نده!

بهترين راه اين هست كه اعداد رو با جزء صحيحشون مقايسه كنيد! اگر تفاوت داشت، اعشار نشون داده بشه و اگر تفاوت نداشت Round بشه!

با تشكر!