مساعدت و راهنمايي ويژه در انجام فعاليت تبديل عدد به حرف

[sadegh55]

با سلام
چندين با سعي كردم اعدا برنامه را به حرف (ريال) تبديل كنم ولي به دليل تازه كاريم نشد
ماژوال مربوطه را هم كپي كردم ولي باز نشد

دوستان عزيزي كه ميتوانند اين موضوع را به صورت روان براي من توضيح دهند حتي الامكان تصويري بسيار ممنون و سپاسگذار خواهم شد

با تشكر

[Rasool-GH]

نمونه بزاری بهتره

[mohamad goodarzi]

با سلام
تبديل عدد به حروف

[sadegh55]

با سلام
تبديل عدد به حروف

ضمن تشكر از توجه جنابعالي
جناب گودرزي در صورت امكان از طريق 2003 اسال فرمائيد :لبخندساده::قلب:

[Rasool-GH]

سلام
این نمونه رو به 2003 تبدیل کردم

[sadegh55]

سلام
این نمونه رو به 2003 تبدیل کردم

ضمن تشكر از جنابعالي
ولي باز هم 2003 نيست چون نمي تونم باز كنم:خجالت:

[Rasool-GH]

سلام دوباره تبدیل کردم
امتحان کنید

[sadegh55]

سلام دوباره تبدیل کردم
امتحان کنید

ضمن تشكر از لطف جنابعالي
من چون در اين كار مبتدي هستم طبيعتا نيازمند همياري دوستان مي باشم
اين تابع در برنامه خودتان دزست كار مي كنه ولي در برنامه خودم ايراد ميگيره و به ماژوئل برمي گرده و خطا ميگيره
اون قسمتي كه خطا مي گيره رو براتون فرستادم در صورت امكان راهنمايي فرمائيد
قسمتي كه بارنگ آبي مشخص شده
مممنننوووننن:لبخندساده::لب� �ندساده::لبخندساده:
: Case 4 To 6
If (Right(N, 3)) = 0 Then
Horof = Horof(Left(N, Len(N) - 3)) & " åÒÇÑ "
Else
Horof = Horof(Left(N, Len(N) - 3)) & " åÒÇÑ æ " & Horof(Right(N, 3))

End If