الاستاذ الفاضل / ابوهادى
جزاك الله كل خير
لقد عملت دالة تقوم بهذا العمل
Function mad(TY As Currency)
Dim UO As Currency
Dim uo1 As Currency
uo1 = Fix(TY * 100)
UO = Fix((TY - Fix(TY)) * 1000)
If Right(Str(UO), 1) < 5 Then
mad = uo1 / 100
Else
mad = uo1 / 100 + 0.01
End If
End Function
مع جعل الحقل ثابت وثلاثة ارقام عشرية وقد آتت بالمطلوب لك خالص شكرى وتقديرى لحضرتك وشكرا