السلام عليكم ورحمه الله وبركاته
لى طلب اتمنى من الاخوة الاعضاء ايجاد حل
المشكلة ان لدى جدول به حقول مبالغ شيكات وتواريخ صرف تلك الشيكات
واريد استخراج الفوائد باليوم حسب صرف الشيك
جربت معادلات كثيرة واكواد وكلها باءت بالفشل
اتمنى من لدية حل لتلك المشكله يخبرنى
من خلال المثال المرسل
17-11-18, 04:51 PM (آخر تعديل لهذه المشاركة : 17-11-18, 04:52 PM {2} بواسطة amro1965.)
استاذى العزيز انا حبيت ابسط المشكلة
لكن الحقيقة هى كالتالى
توجد شيكات صرفت فى يوليو واغسطس الى اكتوبر 2018
وبما ان الفوائد مركبه فاجد صعوبه فى عمل الكود على الفيجوال بيسيك
المطلوب
الفائدة 18.5
السنه 360 يوم
كمثال
شيك بقيمة 1000
صرف يوم 2018/7/12
حسبته على الورق كالتالى
فائدة شهر 7 = عدد الايام بعد تاريخ الصرف / 360 يوم سنويا ×مبلغ الشيك 1000 × 18.5 /100 = 9.76
فائدة شهر 8 = 31 عدد ايام شهر اغسطس /360 سنويا ×مبلغ الشيك 1000 × 18.5 /100 = 15.93
بالاضافة لفائدة الفائدة = 31 يوم /360 × 9.76 ×18.5/100 =.16
مجموع الفوائد لشهر اغسطس = 15.93 + 0.16 = 16.09
اتمنى ان لا اشق على حضراتكم
انا عملتها من خلال الاكسيس فى الاستعلامات لكنى اريد ان اعملها من خلال الفيجوال بيسيك
ولكم منى الف تحية واجلال لحضراتكم
ما المانع مثل ما اشرت اليه و هو انك عملت هذه المعادله فى الاستعلامات بالاكسس و نجح معك.
ادخل كل بيانات على نفس المعادله بالاكسس
ثم اجعل البرنامج التنفيذى بالفيجوال
لا اله الا انت سبحانك انى كنت من الظالمين.
اللهم انك عفو كريم حليم تحب العفو فاعفوا عنا.
اللّهُمَّ اغْفِرْ لِي وَلِوالِدَيَّ وَارْحَمْهُما كَما رَبَّيانِي صَغِيراً، اللَّهُمَّ اجْزِهِما بِالاِحْسانِ إِحْسانا وَبِالسَّيِّئاتِ غُفْرانا، اللَّهُمَّ اغْفِرْ لِلْمُؤْمِنينَ وَالمُؤْمِناتِ الاَحْياءِ مِنْهُمْ وَالاَمْواتِ.
سبحان الله والحمدلله ولا إله إلا الله والله أكبر زنه عرشك ومداد كلماتك ورضاء نفسك وكما ينبغى لجلال شأنك وعظيم سلطانك وعدد ما كان وعدد ما سيكون وعدد الحركات و السكون وعدد ما نعلم وعدد مالانعلم وعدد كل شيئ احصيته بعلمك يا كريم
المشكلة بدأت خيوطها تتفك
انا عدلت فى بعض الاكواد والمتغيرات
لكن عند التنفيذ لا تعمل بشكل صحيح
ولا تباهى بتنفيذ قاعدة if
PoolConn
Dim RSt As New ADODB.Recordset
Dim str As String
Dim s As Date
Dim ss As Integer
str = "select * from T_Bank "
'
RSt.Open str, condb, adOpenDynamic, adLockOptimistic
'
Do While Not RSt.EOF
s = (RSt.Fields("date_spend"))
ss = (Month(s))
ss = Month(s)
' MsgBox (ss)
If ss > 9 Then