+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : مشكله كود متعلق بالتواريخ (/showthread.php?tid=27499)
مشكله كود متعلق بالتواريخ - amro1965 - 17-11-18
السلام عليكم ورحمه الله وبركاته
لى طلب اتمنى من الاخوة الاعضاء ايجاد حل
المشكلة ان لدى جدول به حقول مبالغ شيكات وتواريخ صرف تلك الشيكات
واريد استخراج الفوائد باليوم حسب صرف الشيك
جربت معادلات كثيرة واكواد وكلها باءت بالفشل
اتمنى من لدية حل لتلك المشكله يخبرنى
من خلال المثال المرسل
RE: مشكله كود متعلق بالتواريخ - elgokr - 17-11-18
قم بوضع الفوائد المطلوب تطبيقها
حتى يتم توضيح لك كيفية عمل المعدلة
كمثال لديك شيك بقيمة 1000 يصرف بعد شهر ويتم احتساب الفوائد عن كل 10 يوم 1.5% مثلاً
حسب ما لديك او ما تريده تطبيقه وضحه حتى يتم توضيح كيفية اتمام المعدلة
تحياتى لك
وتمنياتى لك التوفيق
RE: مشكله كود متعلق بالتواريخ - amro1965 - 17-11-18
استاذى العزيز انا حبيت ابسط المشكلة
لكن الحقيقة هى كالتالى
توجد شيكات صرفت فى يوليو واغسطس الى اكتوبر 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
اتمنى ان لا اشق على حضراتكم
انا عملتها من خلال الاكسيس فى الاستعلامات لكنى اريد ان اعملها من خلال الفيجوال بيسيك
ولكم منى الف تحية واجلال لحضراتكم
RE: مشكله كود متعلق بالتواريخ - Ashraf Elafify - 18-11-18
اخى الكريم
ما المانع مثل ما اشرت اليه و هو انك عملت هذه المعادله فى الاستعلامات بالاكسس و نجح معك.
ادخل كل بيانات على نفس المعادله بالاكسس
ثم اجعل البرنامج التنفيذى بالفيجوال
RE: مشكله كود متعلق بالتواريخ - amro1965 - 18-11-18
استاذى العزيز
مشكلتى مع كيفية احتساب الفوائد بالفيجوال مش بالاكسيس
وان شاء الله سوف احاول لان العمل من خلال الفيجوال افضل واحسن بكتير
RE: مشكله كود متعلق بالتواريخ - amro1965 - 18-11-18
المشكلة بدأت خيوطها تتفك
انا عدلت فى بعض الاكواد والمتغيرات
لكن عند التنفيذ لا تعمل بشكل صحيح
ولا تباهى بتنفيذ قاعدة 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