ارجو تنفيذ كود DateDiff في استعلام

[محسن سرحان]

اخوانى

السلام عليكم ورحمة الله وبركاته

وجدت مثال جميل في منتدانا الغالي

ارجو تنفيذ الكود بالملف المرفق في الاستعلام  بدلا من النموذج

وشكرا

db1.rar

تم تعديل ديسمبر 6, 2016 بواسطه jjafferr
تغيير اسم الموضوع ليتماشى مع محتواه

[jjafferr]

تفضل

 

.

 

جعفر

473.db1.mdb.zip

[محسن سرحان]

اشكرك اخي العبقري

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

احداهما تاريخ ثابت وليكن 1/10/2016

والاخر هو تاريخ ميلاد الموظف

ليخرج في خانة ثالثة في الاستعلام بعدد الايام الفرق بين التاريخين

وشكرا

[jjafferr]

3 دقائق مضت, محسن سرحان said:

اشكرك اخي العبقري

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

احداهما تاريخ ثابت وليكن 1/10/2016

والاخر هو تاريخ ميلاد الموظف

ليخرج في خانة ثالثة في الاستعلام بعدد الايام الفرق بين التاريخين

وشكرا

ومن وين لي اعرف كل هذا ، وانت طلبك كان:

29 دقائق مضت, محسن سرحان said:

ارجو تنفيذ الكود بالملف المرفق في الاستعلام  بدلا من النموذج

 

جعفر

[محسن سرحان]

اسف اخي ولكن سرعتك في التنفيذ تجعلنا نطمع في المزيد

[jjafferr]

ولا يهمك 

بس حتى الجدول مافيه إلا حقل بداية التاريخ ، وحقل نهايته!

 

فماذا تقترح!!

 

جعفر

[محسن سرحان]

اقترح اضافة جدول جديد بخانة فيها تاريخ موحد هو 1/10/2016

[jjafferr]

خلاص ، اعمل جدول جديد ، وارفقه لوسمحت 

واخبرني باسماء الحقول التي تريد ان تحصل الناتج منها 

 

 

جعفر

[محسن سرحان]

لقد صنعت جدول جديد بالقاعدة

وسأقوم بارفاقه

db1.rar

[jjafferr]

سلام اخوي محسن

 

انزلت المرفق ، وما فهمت المطلوب

معلش ، الوقت عندي متأخر ، ومخي مو شغال مثل الصباح ، فرجاء اعطني مثال من اللي تريدة ، وببيانات من برنامجك ، وانا ان شاء الله احاول اطلع لك النتائج

 

جعفر

[محسن سرحان]

في ٣‏/١٢‏/٢٠١٦ at 23:14, jjafferr said:

سلام اخوي محسن

 

انزلت المرفق ، وما فهمت المطلوب

معلش ، الوقت عندي متأخر ، ومخي مو شغال مثل الصباح ، فرجاء اعطني مثال من اللي تريدة ، وببيانات من برنامجك ، وانا ان شاء الله احاول اطلع لك النتائج

 

جعفر

اخي العزيز جعفر

اشكرك من كل قلبي

طلبي بسيط وسهل

وهو بدل ان ما يأخذ الاستعلام القيم من النموذج

يأخذها من الجداول

تاريخ ثابت من جدول t1 وليكن 1/10/2016

والتاريخ الثانى من الجدول الثانى Date

وشكرا

[Shivan Rekany]

4 ساعات مضت, محسن سرحان said:

اخي العزيز جعفر

اشكرك من كل قلبي

طلبي بسيط وسهل

وهو بدل ان ما يأخذ الاستعلام القيم من النموذج

يأخذها من الجداول

تاريخ ثابت من جدول t1 وليكن 1/10/2016

والتاريخ الثانى من الجدول الثانى Date

وشكرا

من رخصة استاذي الجليل جعفر القدير
اتفضل هذا استعلام

لعل يفيدك

db1 (13).rar

تم تعديل ديسمبر 6, 2016 بواسطه Shivan Rekany

[jjafferr]

شكرا اخي شيفان 

 

وهذه نتيجة عمل برنامج اخي شيفان

 

جعفر

[محسن سرحان]

اشكرك اخى العزيز

 

[jjafferr]

السلام عليكم

 

وحتى يكتمل الموضوع ، اخذت جزئية من احد برامجي ، وهي لحساب السنه والشهر واليوم ، يعني الحساب بالكامل

 

.

وهكذا ننادي الوحدة النمطية

.

والنتيجة

.

والوحدة النمطية

Public Function YMDDif2(sDate1, sDate2)
'Public Function YMDDif2(sDate1, sDate2, Cont_Type, Res_Date)
On Error GoTo err_YMDDif2

    'sDate1 earliest date
    'sDate2 later date
    'Cont_Type = Contract Type
    'Res_Date = Resignation Date
    
    Dim dInterim1 As Date
    
'    If Cont_Type = "استقالة" Or Cont_Type = "متقاعد" Then
'        sDate2 = Res_Date
'    End If
    
    iMonth = DateDiff("m", sDate1, sDate2)
        
    If Day(sDate1) > Day(sDate2) Then
        iMonth = iMonth - 1
    End If
    
    dInterim1 = DateAdd("m", iMonth, sDate1)
    iDay = DateDiff("d", dInterim1, sDate2)
    
    D = iDay
    M = iMonth Mod 12
    Y = iMonth \ 12

    YMDDif2 = CStr(Y) & " س/" & CStr(M) & " ش/" & CStr(D) & " ي"

Exit Function
err_YMDDif2:

    If Err.Number = 94 Then
        'ignor, null
        Resume Next
    Else
        MsgBox Err.Number & vbCrLf & Err.Description
    End If
    
End Function

.

 

جعفر

473.2.db.mdb.zip

[محمدنجار]

::: مبروك .. لقد حصل على الهدية .... Time counter .

 

 

[jjafferr]

[Shivan Rekany]

لمساتك سحر يا استاذ
 

[محسن سرحان]

الله على الابداع