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

الدالة GetDirhams

الحصول على الجزء الكسري الذي يمثل الدراهم من عدد حقيقي يمثل مبلغاً مالياً.

الصيغة:

Function GetDirhams(Value As Double) As Long

الصنف:
TNumber.

الوسائط (Parameters):

الشرح:
تعيد هذه الدالة الجزء الكسري من عدد حقيقي. القيمة المعادة تكون عدداً صحيحاً بين 0 و 999 (أجزاء من الدينار الليبي).

الاستخدام:

Dim ObjNumber As New TNumber
Dim Dinars As Long

Dinars = ObjNumber.GetDirhams(CDbl(Text1.Text))

انظر أيضاً:
الدالة GetDinars
الدالة GetMoneyByWordsDD
الدالة GetMoneyByWordsV

بداية الصفحة