يه برنامه ميخام كه وقتي يه عدد دريافت ميكنه اون رو به حروف نمايش بده

[Mahsa Hatefi]

با سلام
من يه تازه واردم با يه عالمه سوال اميدوارم باعث كسالت شما دوست عزيز نشوم و جواب سوالاتمو دريافت كنم .
من با سمي كالن در كد هاي بالا مشكل دارم چون با اجراي كدها در وي بي اونها رو ارور ميگيره . چه بايد بكنم ؟
راستش من يه ماژول تبديل عدد به حروف مي خوام براي نمرات يه كارنامه كه مميز داره . 3 تا ماژول دارم اما جواب نمي ده البته ماژول هايي دارم كه جواب مي ده ولي بدون مميز تعريف شده و به درد من نمي خوره . مي شه لطف كنين كمكم كنين .

[Mahsa Hatefi]

If Ashar Mod 10 <> 0 And Mid(Ashar, 1, 1) <> 0 Then Meghdar = dahi(Mid(Ashar, 1, 1)) & " æ " & ziredah(Mid(Ashar, 2, 2)) & " " & sadom

يكي لطف كنه بگه اين" سمي كالن " ; " توي اين كد چيه ؟ چرا error ميده ؟ lt چيه ؟ كه معرفي نشده ؟
ممنون ميشم

[mohseni12345]

If Ashar Mod 10 <> 0 And Mid(Ashar, 1, 1) <> 0 Then Meghdar = dahi(Mid(Ashar, 1, 1)) & " æ " & ziredah(Mid(Ashar, 2, 2)) & " " & sadom

يكي لطف كنه بگه اين" سمي كالن " ; " توي اين كد چيه ؟ چرا error ميده ؟ lt چيه ؟ كه معرفي نشده ؟
ممنون ميشم

این به خاطر اینه که توی سایت گذاشتند (مربوط به تگ های اچ تی ام ال )هستش
این مشکل رو بر طرف کردم و گذاشتمش تویه یه ماژول که اونو می تونید از اینجا دانلود کنید
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
و اگه نشد
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

[Mahsa Hatefi]

دوست مهربان واقعا تشكر مي كنم
اون مشكل رفع شد ولي يه مشكل ديگه پيش اومده و اون اينه كه عدد را گرد مي كنه . مثلا 75/15 رو "شانزده" مي دهد . چه كنم ؟

[Mahsa Hatefi]

سرور گرامي Mohseni12345 مشكلم با يه ماژول ديگه حل شد تشكر مي كنم