نیاز به اصلاح کد تبدیلگر عددی به حروفی

[1234567]

سلام
من خیلی دنبال یه سورس خوب برای تبدیل عدد به حروف گشتم
و به نظر من این یکی خیلی کامله
فقط یه باگ کوچیک داره که امیدوارم با کمک اساتید VB بتونم حلش کنم
این رو هم بگم من با کامپایلر دیگه ای کار میکنم و اطلاع من از VB معمولیه
خواهشا کمکم کنین
باگ در تبدیل 30 و 40 و 50 و 60 و 70 و 80 و90 هست
که یه "و" اضافه میاره بعدشون مثلا 40 میشه:
"چهل و"
عجیب تر اینکه اگه 20 رو بزنی قفل میکنه.
من با vb6 تست زدم.

http://persiandrive.net/967178

[Pr0grammer]

این سورس کامل هستش و اصلاً مشکلی نداره، چطور سرچ کردی که این پیدا نشد؟! همین سورس رو من 15 روز پیش (30 مهر) گذاشتم:

لینک مستقیم :
http://barnamenevis.org/forum/attachment.php?attachmentid=24698&d=1224572315

اینم لینک تاپیک :
http://barnamenevis.org/forum/showthread.php?p=618339

موفق باشی

[1234567]

:قلب:واقعا ممنونم:قلب:
حتما تست میکنم و نتیجه رو میگم
خدا کنه از توابع پیچیده توش استفاده نشده باشه چون باید به زبان دیگه ترجمش کنم

ادیت:
سلام مجدد
:تشویق:آقا رضا واقعا ترکوندی ها:تشویق:
این کاملترین چیزی هست که دیدم:کف:
:قلب:واقعا ممنونم:قلب:
اگه تو ترجمش به مشکل برخوردم لطفا کمکم کنین
البته مزاحمتی براتون نخواهد بود
مثلا ممکنه ندونم تابع IIF کارش چیه.
یا \ کارش چیه که با توضیح شما میتونم معادلش رو پیدا کنم


یه سوال مهم:
این بالاتر از میلیارد ها رو از کجا آوردی؟ میخام مطمئن باشم حتما درسته

[Pr0grammer]

سلام مجدد
:تشویق:آقا رضا واقعا ترکوندی ها:تشویق:
این کاملترین چیزی هست که دیدم:کف:
:قلب:واقعا ممنونم:قلب:سلام...
خوهش می کنم!


اگه تو ترجمش به مشکل برخوردم لطفا کمکم کنین
البته مزاحمتی براتون نخواهد بود
من در خدمتتون هستم! می تونی Yahoo ID منو Add کنی!


مثلا ممکنه ندونم تابع IIF کارش چیه.
یا \ کارش چیه که با توضیح شما میتونم معادلش رو پیدا کنماگه دستور If...Else چندان پیچیده نباشه، می تونید به جای اون از تابع IIF استفاده کنی، که شکل کلیش اینه :


IIF(Condition,TrueBody,FalseBody)

Condition : شرط مورد نظر
TrueBody : دستوری که در صورت True بودن شرط اجرا میشه
FalseBody : دستوری که در صورت False بودن شرط اجرا میشه
موفق باشی