دالة (hndlPercentValue) لتفقيط النسب المؤية

السلام عليكم ورحمة الله وبركاته

لقد كنت أقوم البارحة بعمل دالة تقوم بعمل تفقيط للنسب او القيم المؤية.

مثلاً إذا كانت القيمة هي 87 % فتقوم الدالة بتحويلها الى سبعة وثمانون بالمئة , كما تُعطيك الدالة حرية الأختيار ما بين إستخدام بالمئة او التعويض عنها بالمعامل % , أضع الدالة بين يديكم فأرجو أن تستفيدون منها.

الدالة:

'Author Programmation(OmarNgem)
Public Function hndlPercentValue(ByVal Number As Integer, Optional ByVal UsePercentScore As Boolean = False, Optional ByVal ReversePercentScore As Boolean = False) As String
Dim strWords As String = "أحد,واحد,إثنان,ثلاثة,أربعة,خمسة,ستة,سبعة,ثمانية,تسعة,إثنا"
Dim strWords2 As String = "عشر,عشرة,عشرون,ثلاثون,أربعون,خمسون,ستون,سبعون,ثمانون,تسعون,مئة"
Dim arrWord() As String = Split(strWords, ",")
Dim arrWord2() As String = Split(strWords2, ",")
Dim frstNum As String = ""
Dim scdNum As String = ""
Dim FinalFilter As String = ""
If Number > 0 And Number 1 And scdNum = 1 Then
If frstNum = 2 Then
FinalFilter = arrWord(10).ToString
Else
FinalFilter = arrWord(Int(frstNum)).ToString
End If
FinalFilter &= " " & arrWord2(0).ToString
Else
If frstNum > 0 Then
FinalFilter = arrWord(Int(frstNum)).ToString
FinalFilter &= " و " & arrWord2(Int(scdNum)).ToString
Else
FinalFilter = arrWord2(Int(scdNum)).ToString
End If
End If
Case 3
FinalFilter = "مئة"
End Select
Else
FinalFilter = "لا شئ"
End If
If UsePercentScore = False Then
FinalFilter &= " بالمئة"
Else
If ReversePercentScore = False Then
FinalFilter &= " %"
Else
FinalFilter = "% " & FinalFilter
End If
End If
Return FinalFilter
End Function

كيفية إسـتخدام الدالة:
1 – ضع الدالة داخل Module وبعدها يُمكنك إستدعائها من أي مكان داخل مشروعك.
2 – الدالة تحتوي على ثلاثة معاملات اولهم (Number) إجباري والأثنين الأخرى (UsePercentScore, ReversePercentScore) إختيارية:

أما الأول فهو من النوع Integer ويتم التعويض عنه بالنسبة المؤية.
والثاني (إختياري) ويُستخدم إذا ما كنت تُريد إستخدام معامل بالمئة (%) بدلاً من إستخدامها حرفياً (أقصد بدلاً من “بالمئة”).
اما الثالث (إختياري) ويُستخدم فى عكس محاذاة المعامل (%) وذلك فى حالة إذا لم تُكن مُستخدماً الخاصية RightToLeft للكائن الذى سوف تحصل على التفقيط داخله فتُعطيه القيمة True ليعكس لك وجوده ليظهر لك التفقيط بشكل صحيح.

إستخدام الدالة برمجـياً:
1 – الأمر التالي سوف يقوم بتفقيط النسبة 76 :
TextBox1.Text = hndlPercentValue(76)

النتيجة = “% تسعة وتسعون”

2 – نفس الأمر السابق ولكن مع عكس وجود معامل %:
TextBox1.Text = hndlPercentValue(99,True,True)

النتيجة = “ستة وسبعون بالمئة”

1 – الأمر التالي سوف يقوم بتفقيط النسبة 99 ويقوم بإستخدام المعامل % بدلاً من كتابتها حرفياً:

TextBox1.Text = hndlPercentValue(99,True)

النتيجة = “تسعة وتسعون %”

أتمنى أن تستفيدوا من الدلـة, ولا تنسونا من صالح دعائكم

والسـلام عليكم ورحمة الله وبركاته