طريقه حساب تواريخ الانتاج و الانتهاء

[ابوعبدالله_1972]

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

ربي يحفظ لكم و الديكم عندي جدول عمل صيدلية خاصة للبيت و اريد منكم طريقة حساب تاريخ الانتهاء (اليوم و الشهر و السنة) بدوال الاستعلام و عداد اخر (عدد الأيام المتبقية)

هل ممكن عمل منبه لقرب الانتهاء بالماكرو

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

Database4.rar

[محمد أبوعبدالله]

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

يوجد موديول يقوم بهذه العملية سواء في الاستعلامات او في النماذج

Option Compare Database
Option Explicit

Function CalcAgeY(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
    CalcAgeY = vYears
    
End Function
Function CalcAgeM(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
    CalcAgeM = vMonths
    
End Function
Function CalcAgeD(vDate1 As Date, vdate2 As Date) As String
    Dim vYears As Integer, vMonths As Integer, vDays As Integer
    vMonths = DateDiff("m", vDate1, vdate2)
    vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2)
    If Day(vDate1) = 31 Then vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2) - 1

    If vDays < 0 Then
        vMonths = vMonths - 1
        vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2)
        
    End If
    vYears = vMonths \ 12
    vMonths = vMonths Mod 12
    CalcAgeD = vDays
    End Function

اليوم - الشهر - السنة

D : CalcAgeD([PDate];[EDate])
M : CalcAgeM([PDate];[EDate])
Y : CalcAgeY([PDate];[EDate])

Database4.rar

تحياتي

[ابوعبدالله_1972]

أولا شكرا بارك الله فيك

ثانيا كان معي و لكن قبل يومين عطل نهادي في الهردسك و كان في دوال الاستعلام

اتمني من الله ثم منك و أعضاء المجموعة يتم عمله

عدد الأيام المتبقية يتم حسم الأيام من تاريخ الكمبيوتر الى تاريخ الانتهاء

وشكرا

[محمد أبوعبدالله]

تفضل اخي الكريم

عدد الايام المتبقية: DateDiff("d";Date();[EDate])

Database4.rar

تحياتي

[ابوعبدالله_1972]

شكرا يا اخي محمد ابوعبدالله على تعبك ... شاكرا و مقدراً لك

و لكن يوجد خطاء في النتائج اريد المتبقي من تاريخ الكمبيوتر أي تاريخ اليوم و ليس من تاريخ الإنتاج اريد كم سنة باقية و كم شهر باقي و كم يوم ياقي

ارجوك كل الرجاء ان تكون المعادلة في الاستعلام لان البرمجة ليس لدي فيها علم

 اسف على تعبك و اعتذر لسوء الفهم بارك الله فيك وشكراً

تم تعديل يوليو 21, 2020 بواسطه ابوعبدالله_1972

[محمد أبوعبدالله]

13 دقائق مضت, ابوعبدالله_1972 said:

اريد المتبقي من تاريخ الكمبيوتر أي تاريخ اليوم و ليس من تاريخ الإنتاج

في الاستعلام غير تاريخ الانتاج = PDate الى تاريخ اليوم Date()

انظر الاستعلام Query2

Database4.rar

تحياتي