تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مشكله كود متعلق بالتواريخ
#1
السلام عليكم ورحمه الله وبركاته
لى طلب اتمنى من الاخوة الاعضاء ايجاد حل
المشكلة ان لدى جدول به حقول مبالغ شيكات وتواريخ صرف تلك الشيكات
واريد استخراج الفوائد باليوم حسب صرف الشيك
جربت معادلات كثيرة واكواد وكلها باءت بالفشل
اتمنى من لدية حل لتلك المشكله يخبرنى
من خلال المثال المرسل


الملفات المرفقة
.rar   data.rar (الحجم : 11.04 ك ب / التحميلات : 0)
الرد
تم الشكر بواسطة:
#2
قم بوضع الفوائد المطلوب تطبيقها
حتى يتم توضيح لك كيفية عمل المعدلة

كمثال لديك شيك بقيمة 1000 يصرف بعد شهر ويتم احتساب الفوائد عن كل 10 يوم 1.5% مثلاً
حسب ما لديك او ما تريده تطبيقه وضحه حتى يتم توضيح كيفية اتمام المعدلة

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

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


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد
تم الشكر بواسطة:
#3
استاذى العزيز انا حبيت ابسط المشكلة
لكن الحقيقة هى كالتالى
توجد شيكات صرفت فى يوليو واغسطس الى اكتوبر 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
اتمنى ان لا اشق على حضراتكم
انا عملتها من خلال الاكسيس فى الاستعلامات لكنى اريد ان اعملها من خلال الفيجوال بيسيك
ولكم منى الف تحية واجلال لحضراتكم
الرد
تم الشكر بواسطة:
#4
اخى الكريم

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

ادخل كل بيانات على نفس المعادله بالاكسس

ثم اجعل البرنامج التنفيذى بالفيجوال
لا اله الا انت سبحانك انى كنت من الظالمين.
اللهم انك عفو كريم حليم تحب العفو فاعفوا عنا.
اللّهُمَّ اغْفِرْ لِي وَلِوالِدَيَّ وَارْحَمْهُما كَما رَبَّيانِي صَغِيراً، اللَّهُمَّ اجْزِهِما بِالاِحْسانِ إِحْسانا وَبِالسَّيِّئاتِ غُفْرانا، اللَّهُمَّ اغْفِرْ لِلْمُؤْمِنينَ وَالمُؤْمِناتِ الاَحْياءِ مِنْهُمْ وَالاَمْواتِ.
سبحان الله والحمدلله ولا إله إلا الله والله أكبر زنه عرشك ومداد كلماتك ورضاء نفسك وكما ينبغى لجلال شأنك وعظيم سلطانك وعدد ما كان وعدد ما سيكون وعدد الحركات و السكون وعدد ما نعلم وعدد مالانعلم وعدد كل شيئ احصيته بعلمك يا كريم
الرد
تم الشكر بواسطة:
#5
استاذى العزيز
مشكلتى مع كيفية احتساب الفوائد بالفيجوال مش بالاكسيس
وان شاء الله سوف احاول لان العمل من خلال الفيجوال افضل واحسن بكتير
الرد
تم الشكر بواسطة:
#6
المشكلة بدأت خيوطها تتفك
انا عدلت فى بعض الاكواد والمتغيرات
لكن عند التنفيذ لا تعمل بشكل صحيح
ولا تباهى بتنفيذ قاعدة 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

str = "update T_Bank set M_07 = 31 - day(date_spend) "
condb.Execute str
Else
str = "update T_Bank set M_07 = 0 "
condb.Execute str

End If


RSt.MoveNext
Loop
Adodc1.Refresh


الملفات المرفقة
.rar   data.rar (الحجم : 11.08 ك ب / التحميلات : 1)
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Question [vb6.0] يوجد مشكله في البحث حيث لا يظهر قيمة هذا الخيار عندي البحث الموجود في الصورة ؟؟ Microformt 5 208 20-08-18, 08:47 PM
آخر رد: elgokr
Question [سؤال] مشكله فى فيجوال6 koolman 1 151 02-07-18, 03:48 PM
آخر رد: Amir_alzubidy
  مشكله ادماج كريستال ريبورت 10 مع فيجوال بيسك 6 amro1965 5 277 01-07-18, 10:51 PM
آخر رد: elgokr
  [سؤال] السلام عليكم / سوال متعلق ببرنامج skype sher 0 133 20-02-18, 12:34 PM
آخر رد: sher
  [سؤال] كيف حل مشكله عرض الحقول الفارغة بواسطة استعلام وعرضها awidan76 2 192 03-02-18, 12:07 PM
آخر رد: awidan76
  مشكله في تقرير يعرض الشروط الموجوده في الكومبو بوكس مصعب القرشي 16 1,904 18-06-16, 03:49 AM
آخر رد: مصعب القرشي
  [vb6.0] مشكله في كود البحث mustafamusaway 1 710 26-09-15, 03:04 PM
آخر رد: أبو عمر
Lightbulb [vb6.0] مشكله فى VB 6 فى برنامج لطرح عددين عشريين Ayman2895 6 1,220 09-09-15, 06:03 PM
آخر رد: Ayman2895
  مشكله فى اداة Calendar aboezzat84 1 727 22-08-15, 10:18 AM
آخر رد: aboezzat84
  [vb6.0] كود متعلق بالرياضيات Ahmed xD 0 572 23-11-14, 07:20 PM
آخر رد: Ahmed xD

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم