التفقيط على طريقة القرش والجنيه

[أبو سجده]

بسم الله الرحمن الرحيم

وبه نستعين

السادة الزملاء الافاضل

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

الملف المرفق لتفقيط صافى المبلغ

على طريقة القرش والجنيه بخليتين منفصلتين

فى أروع مشاركة بينى وبين

القدير المتألق دائما

أستاذى الفاضل

أبو حنين

بارك الله فيه وفى ذريته

أرجو من الله العلى القدير

أن يكون فيه النفع للجميع

خالص احترامى وتقديرى

وجزاكم الله خيرا

 

التفقيط على طريقة القرش والجنيه - سعيد بيرم.rar

تم تعديل أبريل 27, 2014 بواسطه دغيدى

[ناصر سعيد]

جزاك الله على هذا المجهود الراائع

وعلى هذا الكود المفيد حقا

Function NoToTxt2(TheNo As Double) As String

Dim MyArry1(0 To 9) As String, MyArry2(0 To 9) As String, MyArry3(0 To 9) As String
Dim Myno As String, GetNo As String, RdNo As String
Dim My100 As String, My10 As String, My1 As String, My11 As String, My12 As String
Dim GetTxt As String, Mybillion As String, MyMillion As String, MyThou As String, MyHun As String
Dim MyFraction As String, MyAnd As String, I As Integer, ReMark As String
If TheNo > 999999999999.999 Then Exit Function
If TheNo = 0 Then
NoToTxt2 = "صفر"
Exit Function
End If
MyAnd = " و"
MyArry1(0) = ""
MyArry1(1) = "مائة"
MyArry1(2) = "مائتان"
MyArry1(3) = "ثلاثمائة"
MyArry1(4) = "اربعمائة"
MyArry1(5) = "خمسمائة"
MyArry1(6) = "ستمائة"
MyArry1(7) = "سبعمائة"
MyArry1(8) = "ثمانمائة"
MyArry1(9) = "تسعمائة"
MyArry2(0) = ""
MyArry2(1) = " عشر"
MyArry2(2) = "عشرون"
MyArry2(3) = "ثلاثون"
MyArry2(4) = "اربعون"
MyArry2(5) = "خمسون"
MyArry2(6) = "ستون"
MyArry2(7) = "سبعون"
MyArry2(8) = "ثمانون"
MyArry2(9) = "تسعون"
MyArry3(0) = ""
MyArry3(1) = "احدي"
MyArry3(2) = "اثنان"
MyArry3(3) = "ثلاثة"
MyArry3(4) = "اربعة"
MyArry3(5) = "خمسة"
MyArry3(6) = "ستة"
MyArry3(7) = "سبعة"
MyArry3(8) = "ثمانية"
MyArry3(9) = "تسعة"
GetNo = Round(TheNo, 3)
GetNo = Format(TheNo, "000000000000.000")
I = 0
Do While I < 16
If I < 12 Then
Myno = Mid$(GetNo, I + 1, 3)
Else
Myno = Mid$(GetNo, I + 2, 3) + "0" ' "0" + Mid$(GetNo, I + 2, 2)
End If
If (Mid$(Myno, 1, 3)) > 0 Then
RdNo = Mid$(Myno, 1, 1)
My100 = MyArry1(RdNo)
RdNo = Mid$(Myno, 3, 1)
My1 = MyArry3(RdNo)
RdNo = Mid$(Myno, 2, 1)
My10 = MyArry2(RdNo)
If Mid$(Myno, 2, 2) = 11 Then My11 = "احدي عشر"
If Mid$(Myno, 2, 2) = 12 Then My12 = "اثني عشر"
If Mid$(Myno, 2, 2) = 10 Then My10 = "عشرة"
If ((Mid$(Myno, 1, 1)) > 0) And ((Mid$(Myno, 2, 2)) > 0) Then My100 = My100 + MyAnd
If ((Mid$(Myno, 3, 1)) > 0) And ((Mid$(Myno, 2, 1)) > 1) Then My1 = My1 + MyAnd
GetTxt = My100 + My1 + My10
If ((Mid$(Myno, 3, 1)) = 1) And ((Mid$(Myno, 2, 1)) = 1) Then
GetTxt = My100 + My11
If ((Mid$(Myno, 1, 1)) = 0) Then GetTxt = My11
End If
If ((Mid$(Myno, 3, 1)) = 2) And ((Mid$(Myno, 2, 1)) = 1) Then
GetTxt = My100 + My12
If ((Mid$(Myno, 1, 1)) = 0) Then GetTxt = My12
End If
If (I = 0) And (GetTxt <> "") Then
If ((Mid$(Myno, 1, 3)) > 10) Then
Mybillion = GetTxt + " مليار"
Else
Mybillion = GetTxt + " مليارات"
If ((Mid$(Myno, 1, 3)) = 2) Then Mybillion = " مليار"
If ((Mid$(Myno, 1, 3)) = 2) Then Mybillion = " ملياران"
End If
End If
If (I = 3) And (GetTxt <> "") Then
If ((Mid$(Myno, 1, 3)) > 10) Then
MyMillion = GetTxt + " مليون"
Else
MyMillion = GetTxt = " ملايين"
If ((Mid$(Myno, 1, 3)) = 1) Then MyMillion = " مليون"
If ((Mid$(Myno, 1, 3)) = 2) Then MyMillion = " مليونان"
End If
End If
If (I = 6) And (GetTxt <> "") Then
If ((Mid$(Myno, 1, 3)) > 10) Then
MyThou = GetTxt + " الف"
Else
MyThou = GetTxt + " الاف"
If ((Mid$(Myno, 3, 1)) = 1) Then MyThou = " الف"
If ((Mid$(Myno, 3, 1)) = 2) Then MyThou = " الفان"
End If
End If
If (I = 9) And (GetTxt <> "") Then MyHun = GetTxt
If (I = 12) And (GetTxt <> "") Then MyFraction = GetTxt
End If
I = I + 3
Loop

If (Mybillion <> "") Then
If (MyMillion <> "") Or (MyThou <> "") Or (MyHun <> "") Then Mybillion = Mybillion + MyAnd
End If
If (MyMillion <> "") Then
If (MyThou <> "") Or (MyHun <> "") Then MyMillion = MyMillion + MyAnd
End If
If (MyThou <> "") Then
If (MyHun <> "") Then MyThou = MyThou + MyAnd
End If
If MyFraction <> "" Then
If (Mybillion <> "") Or (MyMillion <> "") Or (MyThou <> "") Or (MyHun <> "") Then
NoToTxt2 = Mybillion + MyMillion + MyThou + MyHun + " " + MyAnd + MyFraction
Else
NoToTxt2 = MyFraction + " " + MySubCur
End If
Else
NoToTxt2 = Mybillion + MyMillion + MyThou + MyHun + " "
End If

End Function

ولي سؤال للاسناذ العظيم سعيد

لماذا لااجد مواضبعك المفيده بالمنتدى ؟

لماذا يتم ازالتها ؟ ام اني مش عارف اعمل بحث لمواضيعك ؟ قل لي طمني

 

[أبو سجده]

ولي سؤال للاستاذ ******** سعيد

لماذا لااجد مواضيعك المفيده بالمنتدى ؟

لماذا يتم ازالتها ؟ ام اني مش عارف اعمل بحث لمواضيعك ؟ قل لي طمني

 

اخى العزيز المحترم الاستاذ // ناصر سعيد

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

والله ياأخى لاأدرى ماذا أقول لسيادتكم

ولكن مابوسعى الان أننى تحت أمرك فى أى إستفسار

جزاكم الله خيرا.... بارك فيكم تقبل وافر احترامى

تم تعديل أبريل 26, 2014 بواسطه سعيد بيرم

[محمود_الشريف]

أخى فى الله

أستاذى القدير // سعيد بيرم

بارك الله فيكم على مجهودكم الاكثر من رائع

فى مجال التفقيط وهذه الإضافة المميزة فى مجال التفقيط بالمنتدى 

 

ولى سؤالين لأننى كنت بصدد ربط التفقيط على خليتين ولكنكم سبقتم بذلك وجزاكم رب العالمين خير الجزاء

كما تعودت من أهل المنتدى أن جميع أساتذته سباقون فى عمل الخير والبحث عن كل ما هو جديد

 

وكانت المشكلة التى تواجهنى ان الداله لا تقرأ خلية القرش بل تضعها رقم كما هو موجود بمثالكم 

فإن كان هناك طريقة لجعل الداله تقرأ خلية القرش مثل خليه الجنية تصبح بذلك الدالة مكتملة الأركان ؟؟؟

 

سؤالى الثاني 

الجدول الموجود هل هو جدول الزيادات السنوية الخاصة بالرواتب 

ان كان كذلك فأتمنى أن تفيدنى بكيفية عملية التسكين الخاصة بالرواتب ومن ثم احتساب الزيادة السنوية ؟

وأنت تعلم أخى الكريم

أن القطاع الخاص له شروط كثيرة

منها التسكين ، التقييم ، الجزاءات 

 

شاكرا لكم حسن تعاونكم

وتقبل منى وافر الإحترام والتقدير

[أبو حنــــين]

السلام عليكم

جزاكم الله خيرا اخي سعيد بيرم على هذا العمل الرائع

ملاحظة  اخوك لا يفهم في المرتبات و طريقة حسابها و كل ما اعرفه عن الراتب هو سحبه في آخر الشهر و التمتع به لبضع ايام ثم انتظاره في الشهر القادم ثم ....... Next

تقبل تحياتي

[أبو سجده]

اخى العزيز الغالى المحترم // ابو حنين

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

جزاكم الله خيراوبارك فيكم

لولا فضل الله ثم فضل سيادتكم لما كانت هذه الرائعة

والتى تعد نقله نوعيه فى موضوع التفقيط وخاصة

انها المرة الاولى التى يتطرق لها أحد فقراء الله على ارضه بهذه الكيفية

والتى تشغل بال الكثيرين من داخل وخارج صرحنا المبارك

متعكم الله بالصحة والعافيه ورزقكم الله وإيانا من حيث لانحتسب

تقبل وافر تقديرى واحترامى وجزاكم الله خيرا

[أبو سجده]

وكانت المشكلة التى تواجهنى ان الداله لا تقرأ خلية القرش بل تضعها رقم كما هو موجود بمثالكم 

فإن كان هناك طريقة لجعل الداله تقرأ خلية القرش مثل خليه الجنية تصبح بذلك الدالة مكتملة الأركان ؟؟؟

بسم الله الرحمن الرحيم

وبه نستعين

أخى العزيز المحترم الاستاذ // محمود الشريف

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

بداية جزاكم الله خيرا وبارك فيكم

مما لاشك فيه أن الله سبحانه وتعالى جعلنا أسبابا لبعضنا البعض فى قضاء حوائجنا

وقد يعز فى نفس أحدا منا عدم مد يد العون لصاحب مسأله قد تكون هذة المسأله سببا فى حدوث مشكلة ما فى مجال عمله

ولكن الحمد لله الذى تتم بنعمته الصالحات والحمدلله على حسن النوايا

" انما الاعمال بالنيات " والحمد لله على

الصحبه الصالحه الخالصه لوجه الله تعالى 

http://www.officena.net/ib/index.php?showtopic=53266&hl=

بشأن استفساركم الاول تم بحول الله اجراء تعديل بسيط في الدالة لتقرأ الارقام بالحروف في خلية القروش

وتم اعادة رفع المرفق بالمشاركة رقم 1 لذا يمكنكم اعادة التحميل

بشأن استفساركم عن الجدول المرفق فهو عبارة عن جزء من برنامج المرتبات وليس له علاقه بالزيادة السنويه

فهذا أمرأخر ويمكننى وبحول الله تقديم اى استفسار بشأنه سواء قطاع خاص أوحكومى

لك منى وافر احترامى وتقديرى ..... وجزاكم الله خيرا

تم تعديل أبريل 26, 2014 بواسطه سعيد بيرم

[حمادة عمر]

السلام عليكم

الاستاذ القدير / سعيد بيرم

بارك الله فيك

عمل ومجهود طيب بالفعل ودائما تبحث عن الجديد والمفيد

وكل الشكر لاستاذي الحبيب / ابو حنين ... جزاه الله خيرا

تقبلوا خالص تحياتي

[بكار للأبد]

مجهود طيب - جزاك الله كل خير

[أبو سجده]

اخى العزيز المحترم الاستاذ // حماده عمر

بارك الله فيكم وجزاكم الله خيرا

[أبو سجده]

اخى العزيز المحترم الاستاذ // بكار

بارك الله فيكم وجزاكم الله خيرا

[محمود_الشريف]

أخى فى الله

أستاذى القدير // سعيد بيرم

بارك الله فيكم

وأسأل رب العالمين أن يجعل كل ما تقدموه من أعمال تفيد الجميع فى ميزان حسناتكم

 

تم اعادة التحميل والإستفاده من النموذج المرفق 

جزاكم الله عنا خير الجزاء

 

أما فيما يختص بسؤالى عن الزيادات السنوية الخاصة بالعاملين فى القطاع الخاص

بإفتراض أن الرواتب تبدأ فى شركة ما من 800 ريال الى 18000 ريال

كيف يتم احتساب الزيادة السنوية بقيمة (( 10 % )) بعد التسكين شرط أن لا يكون حاصل على أى جزاء خلال آخر ثلاثة أشهر

وأن يكون تقييمه جيد على الأقل ليحصل على الزياده

وفى حال أن هذا الموظف استمر بالشركة هل تكون الزيادة الثانية على إجمالى المرتب بعد الزيادة الأولى والتسكين أم ماذا ؟

 

شاكرا لكم سعة صدركم وترحيبكم بإستفساراتى 

علما بأننى بصدد تطوير شامل لعملية الرواتب لإحدى الشركات 

 

وتقبل منى وافر الإحترام والتقدير 

[أبو سجده]

اخى العزيز الفاضل الاستاذ // محمود الشريف

السلام عليكم

بالنسبة لقانون العمل السعودى فليس لدىّ معلومات بشأنه

المقصود بحديثى يتعلق بقوانين العمل المصريه سواء قطاع خاص او حكومى

لذا وجب التنويه ..... وافر تقديرى واحترامى

تم تعديل أبريل 27, 2014 بواسطه سعيد بيرم

[جلال الجمال_ابو أدهم]

السلام عليكم

جزاكم الله خيرا اخي سعيد بيرم على هذا العمل الرائع

ملاحظة  اخوك لا يفهم في المرتبات و طريقة حسابها و كل ما اعرفه عن الراتب هو سحبه في آخر الشهر و التمتع به لبضع ايام ثم انتظاره في الشهر القادم ثم ....... Next

تقبل تحياتي

 

اتعلمت ان بضع ايام فى اللغه العربيه _ هو العدد حتى 9

طب تعمل ايه لو اخوك

مرتيه بيتصرف قبل ما يقبض اصلا _

[أبو حنــــين]

 

اتعلمت ان بضع ايام فى اللغه العربيه _ هو العدد حتى 9

طب تعمل ايه لو اخوك

مرتيه بيتصرف قبل ما يقبض اصلا _

اخي جلال هذا لازم يضيف السطر التالي قبل  ما يصرف الراتب :

On Error Resume Next

[أبو سجده]

اتعلمت ان بضع ايام فى اللغه العربيه _ هو العدد حتى 9

طب تعمل ايه لو اخوك

مرتيه بيتصرف قبل ما يقبض اصلا _

 

اخى الفاضل الاستاذ // أبوأدهم

بداية جزاكم الله خيرا وبارك فيكم

سعدت جدا بمداخلة سيادتكم

اسعدك الله تعالى اينما كنت ورزقكم الله من وإيانا من حيث لانحتسب

تقبل وافراحترامى وتقديرى

تم تعديل أبريل 27, 2014 بواسطه سعيد بيرم

[جلال الجمال_ابو أدهم]

استاذ / سعيد بيرم

 

 شاكر مرورك _ و جزاك الله خيرا و اعطاك الله من فضله_

 

و اسجل اعجابى بمعلوماتك الوفيرة التى اراها فى مشاركاتك و اعمالك و التى لا تبخل فى اعطائها للاخرين

[احمد ابوزيزو]

بارك الله فيك

[أبو سجده]

اخى العزيز الفاضل الاستاذ // أحمد ابو زيزو

بارك الله فيكم وجزاكم خيرا