إنتقال للمحتوى

  • تسجيل الدخول عبر الفيس بوك تسجيل الدخول عبر تويتر Log In with LinkedIn Log In with Google      تسجيل دخول    
  • إنشاء حساب

صورة
- - - - -

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


1 رد (ردود) على هذا الموضوع

#1 Amoor12311

Amoor12311

    عضو

  • الأعضــاء
  • 7 مشاركة

تاريخ المشاركة 11 June 2016 - 04:56 AM

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

#2 goldman1415

goldman1415

    مشترك

  • الأعضــاء
  • 98 مشاركة
  • الاسم الأول:mohamed
  • اسم العائلة:nouh
  • البـلـد: Country Flag

تاريخ المشاركة 11 June 2016 - 01:41 PM

وعليكم السلام
 
بالرغم من ان المنتدى هنا اوركل بس انا حرد عليك
انت حتعمل متغيرين من نوع 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