وحده نمطيه_ تفقيط وتحويل ارقام الى حروف

[co2002co]

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

 

هل من الممكن مساعدتي ب كتابه وحده نمطيه 

تحويل رقم الى نص

 

احاول اعمل تقرير

وعند كتابه الرقم  1 = يوم واحد فقط

وهكذا

 

بحثت بالمنتدى ولقيت كذا مثال لكنهم تختص بالعملات وهي وحدات نمطيه كبيره

 

انا ابي فقط من يوم واحد الى 30 كحد اقصى ولذلك لكتابتة تقاربير طبيه

[ابوخليل]

تفضل 

اكمل البقية

Public Function tArqam(strx As Integer)
Dim x As String
Select Case strx
Case 1
x = "يوم واحد فقط"
Case 2
x = "يومين فقط"
Case 3
x = "ثلاثة أيام فقط"
Case 4
x = "أربعة أيام فقط"
End Select
tArqam = x
End Function

 

[co2002co]

منذ ساعه, ابوخليل said:

تفضل 

 

لا حرمنا الله من عطائك وادام الله علمك ما حييت

 

الف شكر شيخنا الجليل