قطان قام بنشر يوليو 30, 2009 قام بنشر يوليو 30, 2009 السلام عليكم ورحمة الله وبركاته أخواني الأعزاء بحثت ولكن دون جدوى عن رابط لتفقيط العملات ولكن أغلب الإجابات عن تفقيط الدرجات ( والدرجات تفقط لفاصلتين عشرييتين فقط ) والسلام ختام
حسين بلال قام بنشر يوليو 30, 2009 قام بنشر يوليو 30, 2009 السلام عليكم ورحمة الله وبركاته أخواني الأعزاء بحثت ولكن دون جدوى عن رابط لتفقيط العملات ولكن أغلب الإجابات عن تفقيط الدرجات ( والدرجات تفقط لفاصلتين عشرييتين فقط ) والسلام ختام السلام عليكم هلا إذا بدك اياها بالإنكليزي, فعندي اياها وتكرم عيونك أما بالعربي ....
رفيق محمد قام بنشر يوليو 30, 2009 قام بنشر يوليو 30, 2009 اخي القطان السلام عليكم عندي دالة تفقيط استخدمها بالجنيه المصري " ربنا يخليه لنا " اذا عندك خبرة او احد من الاخوة خبراء المنتدى يعدل لك عليه وسلم على الكويت واهلها يعطيك الف عافية Tafkeet.rar
قطان قام بنشر أغسطس 6, 2009 الكاتب قام بنشر أغسطس 6, 2009 السلام عليكم مشكور أخي الكريم بالنسبة لتفقيط الجنيه موجود عندي لكن المشكلة الجنيه 100 قرش أما الدينار 1000 فلس والسلام بيوصل أخي ابن البلد الحبيب بالانجليزي ماشي (بس التفقيط لثلاث أعداد عشرية وليس عددين عشريين ) والسلام ختام
adam13 قام بنشر أغسطس 8, 2009 قام بنشر أغسطس 8, 2009 السلام عليكم وأنا معك ياأخى الحبيب ليت أحد الإخوة يقوم بوضع كود فيه دالة تفقيط الدينار عربى وانجليزى لأننى محاسب مصرى وسافرت للكويت وقمت بعمل شيتات مهمة يمكننى الاستفادة منها بالكويت ولكن هنا العملة محتلفة والجزء من الدينار يشمل على ثلاثة أرقام وليس رقمين مثل الجنية المصرى
سالم شباني قام بنشر أغسطس 8, 2009 قام بنشر أغسطس 8, 2009 السلام عليكم إليكم الملف المرفق ( تفقيط بالعربي ) أرجو أن يكون هو المطلوب أخوكم سالم شباني دينار كويتي.rar
adam13 قام بنشر أغسطس 9, 2009 قام بنشر أغسطس 9, 2009 رائع ياأخى سالم بارك الله فيك ولكن مشكلة الفلس لم تحل بعد لأنه مكون من ثلاثة اجزاء وليت أحد الاخوة يقوم بوضع الدالة باللغة الانجليزية
سالم شباني قام بنشر أغسطس 10, 2009 قام بنشر أغسطس 10, 2009 (معدل) السلام عليكم أصبح الكود يقرأ 3 أرقام وراء الفاصلة إليكم الملف المرفق دينار كويتي.rar تم تعديل أغسطس 10, 2009 بواسطه سالم شباني 1
سالم شباني قام بنشر أغسطس 10, 2009 قام بنشر أغسطس 10, 2009 (معدل) السلام عليكم هل هذا هو المطلوب تم تعديل أغسطس 10, 2009 بواسطه سالم شباني 1
سالم شباني قام بنشر أغسطس 10, 2009 قام بنشر أغسطس 10, 2009 السلام عليكم إليكم الملف المرفق وهو لأحد الأعضاء جزاه الله خيرا ملاحظة / الرجاء متابعة الردود covert No.rar
adam13 قام بنشر أغسطس 10, 2009 قام بنشر أغسطس 10, 2009 أخى سالم بارك الله فيك وأسف فى تأخرى عن الرد والمتابعة الدالة التى وضعتها باللغة العربية مظبوطة وتعمل بشكل جيد والملف الثانى رائع بحق ولكنى لا أجد فيه دالة تفقيط الدينار بالعملة الكويتية أقصد أن يكون الفقيط بهذه الصيغة One Hundred Twenty Three Dollars And Ninety Nine Cents والتى توجد فى الموديل باسم AbuHamoudEn (9) ولكن مشكلتها هى أنها تقوم بوضع رقمين عشريين فقط وأشكرك بشدة ياأخى على تعبك
adam13 قام بنشر أغسطس 10, 2009 قام بنشر أغسطس 10, 2009 وهذا ياأخى هو الكود للدالة باللغة الانجليزية الذى أقصده ليت أحد الأخوة الافاضل يقوم بالتعديل عليه كى يصبح الفلس يقبل ثلاثة أرقام Function ConvertCurrencyToEnglish(ByVal MyNumber) Dim Temp Dim Dollars, Cents Dim DecimalPlace, Count ReDim Place(9) As String Place(2) = " Thousand " Place(3) = " Million " Place(4) = " Billion " Place(5) = " Trillion " ' Convert MyNumber to a string, trimming extra spaces. MyNumber = Trim(Str(MyNumber)) ' Find decimal place. DecimalPlace = InStr(MyNumber, ".") ' If we find decimal place... If DecimalPlace > 0 Then ' Convert cents Temp = Left(Mid(MyNumber, DecimalPlace + 1) & "00", 2) Cents = ConvertTens(Temp) ' Strip off cents from remainder to convert. MyNumber = Trim(Left(MyNumber, DecimalPlace - 1)) End If Count = 1 Do While MyNumber <> "" ' Convert last 3 digits of MyNumber to English dollars. Temp = ConvertHundreds(Right(MyNumber, 3)) If Temp <> "" Then Dollars = Temp & Place(Count) & Dollars If Len(MyNumber) > 3 Then ' Remove last 3 converted digits from MyNumber. MyNumber = Left(MyNumber, Len(MyNumber) - 3) Else MyNumber = "" End If Count = Count + 1 Loop ' Clean up dollars. Select Case Dollars Case "" Dollars = "No Dollars" Case "One" Dollars = "One Dollar" Case Else Dollars = Dollars & " Dollars" End Select ' Clean up cents. Select Case Cents Case "" Cents = " And No Cents" Case "One" Cents = " And One Cent" Case Else Cents = " And " & Cents & " Cents" End Select ConvertCurrencyToEnglish = Dollars & Cents End Function Private Function ConvertHundreds(ByVal MyNumber) Dim Result As String ' Exit if there is nothing to convert. If Val(MyNumber) = 0 Then Exit Function ' Append leading zeros to number. MyNumber = Right("000" & MyNumber, 3) ' Do we have a hundreds place digit to convert? If Left(MyNumber, 1) <> "0" Then Result = ConvertDigit(Left(MyNumber, 1)) & " Hundred " End If ' Do we have a tens place digit to convert? If Mid(MyNumber, 2, 1) <> "0" Then Result = Result & ConvertTens(Mid(MyNumber, 2)) Else ' If not, then convert the ones place digit. Result = Result & ConvertDigit(Mid(MyNumber, 3)) End If ConvertHundreds = Trim(Result) End Function Private Function ConvertTens(ByVal MyTens) Dim Result As String ' Is value between 10 and 19? If Val(Left(MyTens, 1)) = 1 Then Select Case Val(MyTens) Case 10: Result = "Ten" Case 11: Result = "Eleven" Case 12: Result = "Twelve" Case 13: Result = "Thirteen" Case 14: Result = "Fourteen" Case 15: Result = "Fifteen" Case 16: Result = "Sixteen" Case 17: Result = "Seventeen" Case 18: Result = "Eighteen" Case 19: Result = "Nineteen" Case Else End Select Else ' .. otherwise it's between 20 and 99. Select Case Val(Left(MyTens, 1)) Case 2: Result = "Twenty " Case 3: Result = "Thirty " Case 4: Result = "Forty " Case 5: Result = "Fifty " Case 6: Result = "Sixty " Case 7: Result = "Seventy " Case 8: Result = "Eighty " Case 9: Result = "Ninety " Case Else End Select ' Convert ones place digit. Result = Result & ConvertDigit(Right(MyTens, 1)) End If ConvertTens = Result End Function Private Function ConvertDigit(ByVal MyDigit) Select Case Val(MyDigit) Case 1: ConvertDigit = "One" Case 2: ConvertDigit = "Two" Case 3: ConvertDigit = "Three" Case 4: ConvertDigit = "Four" Case 5: ConvertDigit = "Five" Case 6: ConvertDigit = "Six" Case 7: ConvertDigit = "Seven" Case 8: ConvertDigit = "Eight" Case 9: ConvertDigit = "Nine" Case Else: ConvertDigit = "" End Select End Function
قطان قام بنشر أغسطس 11, 2009 الكاتب قام بنشر أغسطس 11, 2009 السلام عليكم أخواني الأعزاء مشكورين على الردود والأخ سالم سلام خاص والأخ آدم جهد مشكور عليه لكن مازالت المشكلة هي أن : لو كان الرقم 1,5 يجب أن يكون التفقيط دينار و خمسمائة فلس وليس دينار و خمسين فلس والسلام ختام
قطان قام بنشر أغسطس 11, 2009 الكاتب قام بنشر أغسطس 11, 2009 السلام عليكم عفوا أخي سالم لكن المشكلة حلت وبشكل رائع جزاك الله عنا كل خير أما الأخ آدم فلابد أن مشكلته لها صيغة أخرى أرجو أن تحل والسلام ختام
adam13 قام بنشر أغسطس 11, 2009 قام بنشر أغسطس 11, 2009 هل لدى الاخوة الكرام دالة تفقيط الدينار الكويتى باللغة الانجليزية
سالم شباني قام بنشر أغسطس 11, 2009 قام بنشر أغسطس 11, 2009 السلام عليكم أولا لكي تقرأ الأرقام الثلاثة وراء الفاصلة لابد من وضع تنسيق الرقم هكذا 0.000 ثانيا من الممكن الإعتماد على كود التفقيط العربي واستبدال العبارات المكتوبة بالعربية بكلمات إنجليزية ربما تؤدي إلى نتيجة أنا شخصيا أحاول ذلك
abujak2007 قام بنشر أغسطس 12, 2009 قام بنشر أغسطس 12, 2009 الاخوة الاعزاء الدالة بالانجليزي في المرفقات دينار كويتي بالانجليزي.rar
سالم شباني قام بنشر أغسطس 12, 2009 قام بنشر أغسطس 12, 2009 السلام عليكم أخي abujak2007 حياك الله شكرا على المساهمة وعلى الإستجابة لطلب الإخوة لو تكرمت تذكر السطور التي عملت عليها تعديل حتى نستفيد 1
adam13 قام بنشر أغسطس 12, 2009 قام بنشر أغسطس 12, 2009 أخوى أبو جاك فعلا عمل رااااااااااااااااااائع جزاء الله عنه كل الخيرات
أ / محمد صالح قام بنشر أغسطس 12, 2009 قام بنشر أغسطس 12, 2009 السلام عليكم ورحمة الله وبركاته عذرا لتأخري في المشاركة في هذا الموضوع ولكن أتيت لكم بموديول واحد به كل ما تريد دالة التفقيط العربي والانجليزي للأخ الرائع أبو هادي والتي قمت فيها ببعض التعديلات ويمكنك من التحكم في عدد المنازل العشرية مراعاة قواعد اللغتين في التفقيط بحيث يراعي كون المعدود مذكرا أو مؤنثا يراعي وضع المعدود والكسر منونا بالنصب وغيرها أترككم مع الملف المرفق وأي مساعدة لا تتردد فزكاة العلم نشره وكثيرا ما استفدت من هذا المنتدى الرائع أخوكم محمد صالح ar_en_tafqeet.rar 3 2
سالم شباني قام بنشر أغسطس 12, 2009 قام بنشر أغسطس 12, 2009 السلام عليكم أستاذ محمد صالخ حياك الله إضافة في محلها وفي غاية الإفادة أخي محمد صالح موقعك ممتاز وأنا عضو جديد فيه
أ / محمد صالح قام بنشر أغسطس 13, 2009 قام بنشر أغسطس 13, 2009 السلام عليكم أستاذ محمد صالح حياك الله إضافة في محلها وفي غاية الإفادة أخي محمد صالح موقعك ممتاز وأنا عضو جديد فيه شكرا على مرورك اخي سالم أسعدني مرورك على موقعي المتواضع 1
أ / محمد صالح قام بنشر أغسطس 13, 2009 قام بنشر أغسطس 13, 2009 أخوى محمد صالح كود رائع وتسلم يداك ياأخى تسلم أخي من كل سوء كل عام أنتم بخير 1
الباحث المصرى الأول قام بنشر أغسطس 29, 2009 قام بنشر أغسطس 29, 2009 ما شاء الله تبارك الله - جزاكم الله خيرا أستاذ محمد صالح
الردود الموصى بها