مساعدة من فضلكم في تاريخين

[عبدالقدوس48]

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

كيف إيجاد فرق بين تارخين وبشهر واليوم مثلا 01/01/2020 إلى 05/03/2020  مطلوب 2 أشهر وخمسة أيام وشكرا

[ناقل]

سنه واشهر وايام

ام فقط اشهر وايام

هل في النموذج أم تقرير .......

؟؟؟؟؟

 

على كل حال جرب الوحدة النمطية هذه

unction CalcAge(vDate1 As Date, vdate2 As Date)
    Dim vYears As Integer, vMonths As Integer, vDays As Integer
    vMonths = DateDiff("m", vDate1, vdate2)
    vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2)
    If vDays < 0 Then
        vMonths = vMonths - 1
        vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2)
    End If
    vYears = vMonths \ 12
    vMonths = vMonths Mod 12
    CalcAge = vYears & "سنة,  " & vMonths & "شهر,  " & vDays & "يوم"
End Functio

استدعيها من خلال مربع النص هكذا 

Me.txtage.Text = CalcAge(Me.txtfrom, Me.txtto)

 

تم تعديل أكتوبر 25, 2020 بواسطه ناقل

[عبدالقدوس48]

شكرا لك أخي فضلتها في الإستعلام 

DateDiff("m";[1]![من تاريخ];[1]![إلى تاريخ])

[Barna]

15 دقائق مضت, عبدالقدوس48 said:

شكرا لك أخي فضلتها في الإستعلام 

DateDiff("m";[1]![من تاريخ];[1]![إلى تاريخ])

استخدم نفس كود االاستاذ @ناقل واعمل استعلام للجدول لديك ثم ضيف هذه العبارة الى الاستعلام مع تغيير ما يلزم من مسميات 

Expr1: CalcAge([from_date];[to_date])

 

[عبدالقدوس48]

يأخي يقول الدالة غير معرفة

[aliali2019]

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

[Barna]

في ٢٥‏/١٠‏/٢٠٢٠ at 22:22, عبدالقدوس48 said:

يأخي يقول الدالة غير معرفة

لانك لم تضف الوحدة النمطيه .... انشأ وحدة نمطية واحفظها ثم اانشأ الاستعلام بارك الله فيك او ارفق لنا مثال مصغر للتعديل عليه

في ٢٥‏/١٠‏/٢٠٢٠ at 22:24, aliali2019 said:

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

؟؟؟؟؟؟؟؟؟

[aliali2019]

محتاج الكود عند الضغط عل ئ مربع تحرير وسرد وفيه قيمة افتراضية عندما اضغط عليها يدخلني مباشره ال شاشة الموظفيت

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

[Barna]

Function CalcAge(vDate1 As Date, vdate2 As Date)
    Dim vYears As Integer, vMonths As Integer, vDays As Integer
    vMonths = DateDiff("m", vDate1, vdate2)
    vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2)
    If vDays < 0 Then
        vMonths = vMonths - 1
        vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2)
    End If
    vYears = vMonths \ 12
    vMonths = vMonths Mod 12
    CalcAge = vYears & "سنة,  " & vMonths & "شهر,  " & vDays & "يوم"
End Function

صحح كود الوحدة النمطيه لأن الكود الذي ارفقة أخي ناقل في بدايتة ونهايتة نقص احرف

في ٢٥‏/١٠‏/٢٠٢٠ at 22:27, aliali2019 said:

محتاج الكود عند الضغط عل ئ مربع تحرير وسرد وفيه قيمة افتراضية عندما اضغط عليها يدخلني مباشره ال شاشة الموظفيت

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

سبب عدم الاجابة :

قد يكون المطلوب غير واضح للزملاء

يجب فتح موضوع مستقل بطلبك

ارفاق مثال مبسط للمطلوب

لانك طلبت في موضوع قديم جدا

حاول التقيد بهذه القوانين أخي الكريم ... وحياك الله

 

قواعد المشاركة فى الموقع

 

اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة
و بصفة خاصة نؤكدعلى ما يلي
1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة
2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد.
3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال.
4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا.....
5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم.
ومخالفة ذلك تعرض الموضوع للحذف

[aliali2019]

حاضر 

[Barna]

3 دقائق مضت, aliali2019 said:

حاضر 

بارك الله فيك أخي الكريم