سوال ساده : محمدود کردن رقم های فیلد

[maryamb]

من تو برنامم یه سری محاسباتی انجام می دم و کاربر اونو نمی بینه و نتیجه این محاسبات تو یه فیلدب ذخیره می شه و تو ریپورت دیده می شه.
حالا نمی دونم چیکار کنم تا این رقم با اعشارش تا 4 رقم بیشتر نشه.
در واقع من از تقسیم استفاده می کنم و ارقامی که بدست می اد نزدیک 10 - 12 رقم اعشار داره !
البته من در پایگاه دادم فیلد سایز رو رو 4 قرار دادم ولی نتیجه نداشت.

[xxxxx_xxxxx]

Format Text1, "##.####"


یا این که پس از انجام محسباتتون عدد رو تبدیل به رشته کرده و تنها 7 کاراکتر اول را در متغیری ذخیره و بعد محتوی متغیر تبدیل به عدد بشه و در انتها تو بانک ذخیره بشه.

[maryamb]

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

[r0ot$harp]

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


دوست عزیز اینم خدمت شما :



Private Sub Form_Load()

Text2.Text = Spliter_Math("0.111247079764156", 1)

End Sub

Private Function Spliter_Math(Buffer As String, Math_Count As String) As String

Dim a() As String

a = Split(Buffer, ".")

If Math_Count < Len(a(1)) Then

Spliter_Math = a(0) & "." & Left(a(1), Math_Count)

Else

MsgBox "Please Select Correct Math Count", vbCritical

Exit Function

End If

End Function


باتشکر احسان

[xxxxx_xxxxx]

دوست عزیز من گفتم محاسبات مخفی انجام می ده یعنی تکست باکسی در کار نیست.
و بنده هم در ادامه خدمتتون عرض کردم:



یا این که پس از انجام محسباتتون عدد رو تبدیل به رشته کرده و تنها 7 کاراکتر اول را در متغیری ذخیره و بعد محتوی متغیر تبدیل به عدد بشه و در انتها تو بانک ذخیره بشه.


موفق باشید/

[r0ot$harp]

maryamb (http://barnamenevis.org/forum/member.php?u=61013) آیا کدی که من گذاشتم بدرد شما خورد و مشکلتون رو حل کرد یا نه ؟




باتشکر احسان

[maryamb]

راستش هنوز امتحان نکردم.
ممنون