منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - الرجاء مساعدتى فى المعادله التالية

لدى معادل رياضيه المطلوب فيها تقريب الارقام العشريه لأقرب رقم صحيح فمثلا :-

text1.text = 600
DBGrid1.Columns(8).Text = 1.625

نتيجة قسمه 600/ 1.625 = 369.2307692307692
اريد تعديل الكود التالى لتصبح النتيجة 370 فقط بدون ارقام عشرية.

كود :

              Dim SizeSQuare As Integer

                    SizeSQuare = 0

                    SizeSQuare = Val(Text1.Text) / Val(DBGrid1.Columns(8).Text)

وبارك الله فى الجميع

أهلا أخي الكريم , وهذه طريقة أخرى :

PHP كود :

Dim SizeSQuare As Double
Dim zCheckValue As String

SizeSQuare = Val(Trim$(Text1.Text)) / Val(Trim$(DBGrid1.Columns(8).Text))

zCheckValue = SizeSQuare

If InStr(1, zCheckValue, ".") <> 0 Then
   zCheckValue = Left$(zCheckValue, InStr(1, zCheckValue, ".") - 1)
   SizeSQuare = Val(Trim$(zCheckValue)) + 1
End If 

بارك الله فيكم أخوانى أ/ أمير - أ/ أحمد
بارك الله فيكما و زادكم علما وجعله الله في ميزان حسناتكم .

جارى التجربة.

تم و الحمد لله
انها تعمل بشكل جيد جداً

جعلها الله في ميزان حسناتكم وبارك الله فيكم و فى جميع اعضاء المنتدى الغالى.

جزاك الله خير اخوتي احمد منصور وامير الزبيدي مبدعين دائماً

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

Ashraf Elafify

Ahmed_Mansoor

Ashraf Elafify

Ashraf Elafify

awidan76