تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
موعد الفرصة الاخيرة
#1
السلام عليكم
اخواني سؤالي حول التاريخ
هل يمكن ان يظهر التاريخ القادم تلقائيا بشرط ( مثلا اذا الشخص الدين الذي اخذة بتاريخ 11/9/2013 ويجب علية بعد شهر ان يسدد بتاريخ 11/10/2013 ولم يسدد واردنا اعطائة موعد للفرصة اخيرة (وهو المطلوب ) بعد شهر يظهر التاريخ تلقائيا من هذا التاريخ )
للنفترض استخدمنا MaskEdBox1 للتواريخ
1- تاريخ الدين الذي اخذة ونحددة نحن
2- تاريخ السداد ويظهر تلقائيا بعد شهر من تاريخ الدين
3- تاريخ الفرصة الاخيرة ويظهر تلقائيا اذا الشخص لم يسدد بعد شهر وشكرا لكم
الرد }}}}
تم الشكر بواسطة:
#2
الطلبان 1 و 2 اجبت عليهما في موضوع سابق

بالنسبة ل 3 هذا مثال


الملفات المرفقة
.rar   مثال عن مقارنة تاريخين.rar (الحجم : 1.36 ك ب / التحميلات : 128)
الرد }}}}
تم الشكر بواسطة: hussamalhamadany
#3
اشكرك اخي جزيل الشكر لكن بالنسبة للطلبين الاول والثاني انا استخدمت الماسكد بوكس وليس التكت بوكس او تايم بيكر واذا كان هناك موضوع دلني علية وجربت الخطوات لكن يحصل عندي خطا فهل اضع الكود في الود فورم او change للاداة وشكرا اخي الكريم ربي يوفقك

اخي الكريم بالنسبة للمثال 3 هل يمكن ان يظهر تاريخ وليس كلمة لان التعامل مع التاريخ اعتقد انة شوي صعب
وكما شرحت لان المطلوب ب 2و3 مرتبطتان معا
2- تاريخ السداد ويظهر تلقائيا بعد شهر من تاريخ الدين
3- تاريخ الفرصة الاخيرة ويظهر تلقائيا اذا الشخص لم يسدد بعد شهر من تاريخ السداد
وشكرا
الرد }}}}
تم الشكر بواسطة:
#4
لا ادري بخصوص الماسكد بوكس لاني رايت تكست بوكس و بالنسبة للكود هناك ما يتعلق بضغط الكوماند امسحه و بدله بالكود

بالنسبة الى 3 تحتاج قاعدة بيانات

حيث تضيف الى الفورم لود اوامر قراءة سجل من قاعدة البيانات و اسناده الى التكست 1

و هنا مشكلة متى تريد ان تتم القراءة هل عند فتح البرنامج او مرة مثلا كل 3 ساعات ........الخ

و هذا المثال بعد تعديله
كود :
Private Sub Command1_Click()
Dim date1 As Date
Dim date2 As Date
date1 = Format(Text1, "yyyy/mm/dd hh:mm:ss")
Text2.Text = Day(Now) & "/" & Month(Now) & "/" & Year(Now)
date2 = Format(Text2, "yyyy/mm/dd hh:mm:ss")
If date1 < date2 Then
Text3.Text = "ÍãÇÑ"
End If
End Sub

Private Sub Form_Load()
Text2.Text = Day(Now) & "/" & Month(Now) & "/" & Year(Now)
End Sub

طبعا انا وضعت شرط معين يؤدي الى اظهار الكلمة فبدل الكلمة ب تكست 1
الرد }}}}
تم الشكر بواسطة:
#5
السلام عليكم

- أخي الكريم ، مايجب عليك فعله لتحصل على ماتريده هو أن تضيف حقل في الجدول الخاص بالدين أو الجدول الذي يتم حفظ فيه تاريخ الدين وتاريخ السداد وهذا الحقل لكي تعلم ويعلم البرنامج أنه تم السداد وليكن إسم هذا الحقل "IsPaid" وليكن من نوع "Yes/No" مثلاً ، فعند إدخال بيانات الدين تاريخه وتاريخ السداد طبعا ستترك حقل تاريخ آخر فرصه فارغ وأيضاً حقل الدفع IsPaid ستضع قيمة No أو صفر أو أي قيمة تعرف منها أنه لم يتم الدفع ، وعندما يتم الدفع ستغير قيمة الحقل إلى Yes أو واحد ، المهم وهو الذي تريده أنك لكي تضع تاريخ آخر فرصه لابد أن تضع كود في بداية تشغيل البرنامج ووظيفته هو فحص أو فتح جدول الدين والبحث أو مقارنة حقل تاريخ السداد هل هو أصغر أو قبل تاريخ اليوم الحالي وفحص قيمة الحقل IsPaid هل هي No أو صفر يعني لم يتم الدفع وفحص حقل تاريخ آخر فرصه هل هو مازال فارغ إذا عندها قم بتعديل حقل تاريخ آخر فرصة وضع فيه نفس تاريخ السداد لكن بزيادة شهر ، هذا ما يجب فعله .

- تحياتي .
كود :
For each Breathe in MyLife
Breathe.Say " سبحان الله والحمد لله ولا إله إلا الله والله أكبر أستغر الله العظيم وأتوب إليه"
Next
الرد }}}}
تم الشكر بواسطة:
#6
اشكركم اخواني الاعزاء وبارك الله فيكم كل يوم اتعلم شي جديد في هذا الصرح الكبير
الرد }}}}
تم الشكر بواسطة:
#7
للرفع
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] احتاج مساعده في برنامج موعد الحضور والانصراف mera 6 324 30-11-16, 10:59 PM
آخر رد: فاطمة غ

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


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