دليل استخدام إجراءات VBAppAss.dll للمبرمجين بلغة Visual Basic 6.0

الدالة Approximate

تقريب عدد كسري حسب قيمة الكسر.

الصيغة:

Function Approximate(Value As Double, Optional DecimalPlaces As Long = 3) As Double

الصنف:
TNumber.

الوسائط (Parameters):

الشرح:
إذا كانت قيمة البارامتر DecimalPlaces أقل من 1 (صفراً أو عدداً سالباً) فإن الدالة تعامله باعتباره 1.
و إذا كان الكسر في العدد Value يتكون من أكثر من 9 خانات فإن الدالة قد تقوم ببعض التقريب على الكسر.
تقوم الدالة Approximate بتقريب عدد كسري بطريقة خاصة تعتمد على قيمة الكسر كما يلي:

• إذا كانت قيمة الكسر مساوية للنصف تماماً (0.5، 0.50، 0.500، ... إلخ) فإنها تترك الكسر كما هو، و تعيد العدد بجزئيه الصحيح و الكسري.
• إذا كانت قيمة الكسر أصغر من النصف فإنها تحذف الكسر و تعيد الجزء الصحيح فقط.
• إذا كانت قيمة الكسر أكبر من النصف فإنها تحذف الكسر و تعيد الجزء الصحيح مع إضافة 1 إليه.

تستعمل هذه الطريقة في الحسابات المالية لبعض المؤسسات للتخلص من الكسور غير المرغوب فيها في الأعداد التي تمثل مبالغ مالية.

الاستخدام:

Dim ObjNumber As New TNumber
Dim X As Double

X := ObjNumber.Approximate(20.514)  ' X = 21.000
X := ObjNumber.Approximate(20.514, 1)  ' X = 20.5
X := ObjNumber.Approximate(20.514, 2)  ' X = 21.00
X := ObjNumber.Approximate(20.514, 3)  ' X = 21.000
X := ObjNumber.Approximate(20.514, 4)  ' X = 21.0000

X := ObjNumber.Approximate(20.504)  ' X = 21.000
X := ObjNumber.Approximate(20.504, 1)  ' X = 20.5
X := ObjNumber.Approximate(20.504, 2)  ' X = 20.50
X := ObjNumber.Approximate(20.504, 3)  ' X = 21.000

X := ObjNumber.Approximate(20.499)  ' X = 20.000

X := ObjNumber.Approximate(20.611)  ' X = 21.000

بداية الصفحة