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

الدالة DecimalToRomanNums

تحويل عدد عشري إلى ما يقابله بالأرقام الرومانية.

الصيغة:

Function DecimalToRomanNums(Deci As Long) As String

الصنف:
TNumber.

الوسائط (Parameters):

الشرح:
تقوم هذه الدالة بتحويل العدد الصحيح العشري إلى العدد المقابل له بالأرقام الرومانية (I, II, III, IV, ...).

الاستخدام:

Dim ObjNumber As New TNumber
Dim Index As Long

For Index = 1 To 10
  ListBox1.AddItem ObjNumber.DecimalToRomanNums(Index)
Next Index

بداية الصفحة