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

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


ااقوم بعمل برنامج ترصيد اجازات الموظفين  فواجهتني مشكله عند اختيار تاريخ بدؤء الاجازة من اداة  دتابيكر 1 ومن ثم تحديد عدد ايام الاجازة  داخل تكست بوكس ان يقوم بالتعديل على دتا بيكر 2  لاحتساب تاريخ انتهاء الاجازة مع الاخذ بعين الاعتبار عم احتساب الجمع والسبت من الايام المدخلة في التكست بوكس

ولكم جزيل الشكر
الرد }}}
تم الشكر بواسطة:
#2
أضف بعد WHERE شرط تجاهل الجمعة والسبت مثل
PHP كود :
WHERE [mdateBETWEEN تاريخ1 AND تاريخ2
  AND  WEEKDAY
(mdateNOT IN(6,7

كود :
http://www.techonthenet.com/access/functions/date/weekday.php
0    Use the NLS API settings
1    Sunday (default used)
2    Monday
3    Tuesday
4    Wednesday
5    Thursday
6    Friday
7    Saturday
الرد }}}
#3
وعليك السلام ورحمة الله وبركاته

أهلا بك أخي الكريم , ضع Command1 على الفورم و DTPicker1 لتاريخ بداية الإجازة و Text1 لعدد أيام الإجازة و DTPicker2 لتاريخ نهاية الإجازة , ثم ضع هذا الكود في الزر1 :

PHP كود :
Private Sub Command1_Click()

If 
IsDate(DTPicker1.Value) = False Then
   MsgBox 
"تأكد من صحة تاريخ بداية الإجازة"
   
DTPicker1.SetFocus
   
Exit Sub
End 
If

If 
Val(Trim$(Text1.Text)) <= 0 Then
   MsgBox 
"تأكد من صحة عدد أيام الإجازة"
   
Text1.SetFocus
   
Exit Sub
End 
If

Command1.Enabled False

Dim zStartDate 
As String
Dim zDayIndex 
As Integer
Dim zCounter 
As Integer
Dim I 
As Long

zStartDate 
DTPicker1.Value

For 1 To 1000000
    
    
'رقم يوم الجمعة يساوي 6
    '
رقم يوم السبت يساوي 7
    zDayIndex 
Weekday(zStartDate)
    
    If 
zDayIndex 6 Then zCounter zCounter 1
    
    
If zCounter Val(Trim$(Text1.Text)) Then
       DTPicker2
.Value zStartDate
       Command1
.Enabled True
       
Exit Sub
    End 
If
    
    
zStartDate DateAdd("d"1zStartDate)
    
Next

Command1
.Enabled True

End Sub 
الرد }}}
#4
(17-08-16, 01:10 AM)Ahmed_Mansoor كتب : وعليك السلام ورحمة الله وبركاته

أهلا بك أخي الكريم , ضع Command1 على الفورم و DTPicker1 لتاريخ بداية الإجازة و Text1 لعدد أيام الإجازة و DTPicker2 لتاريخ نهاية الإجازة , ثم ضع هذا الكود في الزر1 :

PHP كود :
Private Sub Command1_Click()

If 
IsDate(DTPicker1.Value) = False Then
   MsgBox 
"تأكد من صحة تاريخ بداية الإجازة"
 
  DTPicker1.SetFocus
   
Exit Sub
End 
If

If 
Val(Trim$(Text1.Text)) <= 0 Then
   MsgBox 
"تأكد من صحة عدد أيام الإجازة"
 
  Text1.SetFocus
   
Exit Sub
End 
If

Command1.Enabled False

Dim zStartDate 
As String
Dim zDayIndex 
As Integer
Dim zCounter 
As Integer
Dim I 
As Long

zStartDate 
DTPicker1.Value

For 1 To 1000000
    
    
'رقم يوم الجمعة يساوي 6
    '
رقم يوم السبت يساوي 7
    zDayIndex 
Weekday(zStartDate)
 
   
    If zDayIndex 
6 Then zCounter zCounter 1
    
    If zCounter 
Val(Trim$(Text1.Text)) Then
       DTPicker2
.Value zStartDate
       Command1
.Enabled True
       
Exit Sub
    End 
If
 
   
    zStartDate 
DateAdd("d"1zStartDate)
 
   
Next

Command1
.Enabled True

End Sub 

كل الشكر والاحترام لك سيد احمد منصور هذا هو المطلوب بالزبط 
وجزاك الله خير وادام الله عليك نعمه ......
الرد }}}


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [vb6.0] اضافة الصور الى ملف واسترجاعها بدون قاعدة البيانات haitham Muhammed 3 417 24-01-24, 01:51 PM
آخر رد: haitham Muhammed
  [Acces2010] كيف احسب رصيد - الفرق بين المشتريات والمبيعات ragab_most 6 1,526 01-11-21, 10:51 AM
آخر رد: ragab_most
  اهدي اليكم طريقة الاتصال بقاعدة البيانات عن طريقة المشاركه بدون تعديل كود الاتصال ahmed201 1 1,459 25-03-21, 11:35 AM
آخر رد: رضوان الجماعي
Lightbulb [كود] كود لتأجيل تنفيذ الكود بدون Timer! Omar 6.0 1 2,097 19-08-20, 09:39 PM
آخر رد: Gfftfdeuoig c
  التحقق مما إذا كان التاريخ بين تاريخين آخرين dr.mostashar 1 1,188 12-08-20, 05:01 AM
آخر رد: بلدي
  البحث بين تاريخين mohfar 13 5,807 25-07-20, 11:08 PM
آخر رد: مصمم هاوي
  موضوع الاستعلام بين تاريخين - مكرر hannileo 1 1,259 05-02-20, 02:23 AM
آخر رد: Ahmed_Mansoor
  الفرق بين وقتين و التاريخ رجل الكهرباء 10 5,483 11-12-19, 11:31 PM
آخر رد: tighrmte
  [سؤال] ما هو الفرق بين MSFlexGrid و MSHFlexGrid suzoki 4 2,602 01-11-19, 10:24 PM
آخر رد: مصمم هاوي
  حساب الفرق بين اداتين Dtpiker hannileo 2 1,463 26-10-19, 01:05 PM
آخر رد: hannileo

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


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