كود ايجاد الفرق التاريخ Vb.net

[Amoor12311]

السلام عليكم
اخواني الاعزاء انا اقوم بتصميم نظام مكتبة كتب بالفيجوال احتاج مساعده نافذه الاعاره من ناحية برمجة التاريخ:
عندي حقلين في جدول الاستعاره الاول (تاريخ الاعارة) والاخر(تاريخ الاعادة) وحقل (غرامة التاخير)....
....
قمت بجعل حقل(تاريخ الاعارة) يحمل تاريخ اليوم للجهاز ... واريد ان اجعل الحقل الثاني (تاريخ الاعاده) يحسب تلقائيا الايام المتاحه المحدده في جدول نوع المستعير....ا
توووضيح اكثر ::: اريده ان يحسب الايام ويظهر في textbox تاريخ الاعاده تلقأئيا ....
..
واذا تجاوزت الاعارة (تاريخ الاعادة) يقوم بأضافة الغرامه بحقل (غرامة التاخير) حسب الغرامه المحدده في جدول نوع المستعير ...
..
اتمنئ تكونو فهمتوني
ولكم جزززيل الشكر

[goldman1415]

وعليكم السلام
 
بالرغم من ان المنتدى هنا اوركل بس انا حرد عليك
انت حتعمل متغيرين من نوع integerتجيب بيهم من قاعده البيانات عدد الايام الاستعارة و قيمة التأخير  وتحسب الايام الفعلية للى اخده فيها الكتاب و الايام المتوقعه و تقارنه بينهم لو فى فرق تضيف قيمة التاخير على المبلغ
dim actual_date , expect_date , late_value , value_payment , normal_value as integer

actual_date= date - take_Date_textbox
--expect_date ,normal_value,late_value = query from your database
if actual_date >expect_date then
value_payment = late_value + normal_value
end if

if actual_date <= expect_date then
value_payment = normal_value
end if