السلام عليكم
عندي سؤال :
كيف يمكنني أن أقرب العدد الصحيح إلى ارقام مثل (50 ، 100 ، 150 ....)
عندنا برنامج رواتب مصمم ببرنامج الاكسس
والرواتب قيمتها مثلا
438220
148970
252720
وأريد تقريبها إلى أقرب رقم بالزيادة أي
438200
149000
252750
يعنى في الرواتب لايقبل ارقام مابين (0 الى 49) و (51 الى 99) و (101 الى 149) و (151 الى 199) و (201 الى 249)
بالأختصار يعنى ارقام مقبول هي (مثلا : 50 او 100 او 150 او 200 او 250 ، 300 ، 350 ، الى اخره ) مثلا راتبي (438750 د.ع)
ممكن توضيح بالأمثلة.
اشكركم
استخدم هذا الكود
Dim x, z As String
x = Len(Me.t)
Select Case x
Case 1
Me.t = 0
Case 2
If Me.t > 50 Then
Me.t = 100
Else
Me.t = 0
End If
Case 3
If Right$(Me.t, 2) < 50 Then
Me.t = Left$(Me.t, 1) & "00"
ElseIf Right$(Me.t, 2) > 50 Then
Me.t = Left$(Me.t, 1) + 1 & "00"
End If
Case Is > 3
z = Mid(Me.t, x - 2, 1)
If Right$(Me.t, 2) < 50 Then
Me.t = Left$(Me.t, x - 2) & "00"
ElseIf Right$(Me.t, 2) > 50 Then
Me.t = Left$(Me.t, x - 3) & z + 1 & "00"
End If
End Select
اشكرك . بس ممكن توضيح بالامثلة؟
اخي العزيز مثالي غير واضح اليك لان بالغة كردية ، ممكن ارفق مثالك ؟ اشكرك
اخي العزيز مثالي غير واضح اليك لان بالغة كردية ، ممكن ارفق مثالك ؟ اشكرك
تفضل اخي المثال المرفق ستجد النتيجة في الاستعلام
مع تحياتي,,,
اشكرك اخى العزيز
بعد اذن اخى منتصر
كودك أفضل وبالتأكيد
و اسمح لى
فقد قمت بتعديله تعديل بسيط جدا
مرفق مثال به الكود الاول فى النموذج و كود الاخ منتصر بعد تعديله فى الاستعلام
اخي العزيز mrnooo2000
بالفعل هذا التعديل هو الاصح في حالة التقريب ولكن مافهمته من الطلب هو حذف كل مايقل عن 50 واكمال كل مازاد عن 50
عموما هذه هي الحلول المطروحة لاخينا frman وما عليه الا ان يتدلل ويأخذ منها ما يلبي حاجته
تحياتي,,,
شكرا اخي