اصلاح کد ویژوال بیسیک نوشتن اعداد به حروف (عربی)

[msmaiili]

با سلام

یه ماژول ویژوال رو تو پیوست به صورت فایل تکست text گذاشتم

این ماژول برای نوشتن اعداد به حروف (عربی) هست

وقتی 0 وارد میکنی 0 به عدد مینویسه

و اگر هم به مجموعه زير Case Is = 0: Digit1 = "صفر" اضاف شود 0 رو درست مینویسه ولی وقتی 20-30-40 و .... رو وارد میکنم علاوه بر بیست و سی صفر هم کنارش مینویسه مثلا مینویسه صفر وعشرون که باید فقط عشرون بنویسه و با صفر ترکیب نشه
لطفا برام اصلاح کنید. ممنون
Select Case c1
Case Is = 1: Digit1 = "واحد"
Case Is = 2: Digit1 = "اثنان"
Case Is = 3: Digit1 = "ثلاث"
Case Is = 4: Digit1 = "اربع"
Case Is = 5: Digit1 = "خمس"
Case Is = 6: Digit1 = "ست"
Case Is = 7: Digit1 = "سبع"
Case Is = 8: Digit1 = "ثمان"
Case Is = 9: Digit1 = "تسع"

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.