الفرق او الطرح بين تاريخين على اعتبار الشهر = 30 يوما

[ابو هاله النبلسي]

 

المطلوب عند الطرح بين التاريخين  يكون الناتج 30 يوم 

data360.accdb

تم تعديل مارس 23, 2023 بواسطه ابو هاله النبلسي

[ابو هاله النبلسي]

@Eng.Qassim من فضلك مساعدة

[kkhalifa1960]

تفضل أخي .

DD129.accdb

[ابو هاله النبلسي]

استاذي العزيز @kkhalifa1960 على سبيل المثال ان التاريخ الاول على افتراض 30-03-2023 والتاريخ الثاني 28-2-2023 حاصر الفرق بينهم 3 ايام او مثال ثاني ان التاريخ الاول 30-3-2023 والتاريخ الثاني 6-2-2023 حاصل الفرق يكون 25 يوم وعليه يجب ان يكون التاريخ لكل شهر 30 يوم لكل الاشهر وشاكر لك جهودك 

تم تعديل مارس 23, 2023 بواسطه ابو هاله النبلسي

[AbuuAhmed]

طريقة غريبة في الحساب!! ممكن تشرح السبب، هل الحسبة تخص الرواتب؟
ممكن نعمل تحايل ولكن سيكون عدد الأيام عدد عشري يعني به كسور ، فهل هذا يرضيك؟
يعني لو عندنا يومين من شهر فبرير ويومين من شهر مارس ستكون المدة (2/28*30)   +  (2/31*30)
أي الأربعة أيام ستحسبها 4.0783410138 وستضربها في الراتب/30
 

Days = (2 / 28 * 30) + (2 / 31 * 30) = 4.0783410138
وبافتراض أن الراتب الشهري 1000
NetSalary = 4.0783410138 * (1000 / 30) = 135.94

 

تم تعديل مارس 23, 2023 بواسطه AbuuAhmed

[ابو هاله النبلسي]

4 دقائق مضت, AbuuAhmed said:

طريقة غريبة في الحساب!! ممكن تشرح السبب، هل الحسبة تخص الرواتب؟
ممكن نعمل تحايل ولكن سيكون عدد الأيام عدد عشري يعني به كسور ، فهل هذا يرضيك؟
يعني لو عندنا يومين من شهر فبرير ويومين من شهر مارس ستكون المدة (2/28*30)   +  (2/31*30)
أي الأربعة أيام ستحسبها 4.0783410138 وستضربها في الراتب/30

صح تحايل وخاصة بالترفيعات كل موظف لديه تاريخ استحقاق ونظام الرواتب يحسب شهر شباط على 30 يوم وليس 29 او 28 شكرا لدعمك ممكن مساعده 

@AbuuAhmed على سبيل المثال ان التاريخ الاول على افتراض 30-03-2023 والتاريخ الثاني 28-2-2023 حاصر الفرق بينهم 3 ايام او مثال ثاني ان التاريخ الاول 30-3-2023 والتاريخ الثاني 6-2-2023 حاصل الفرق يكون 25 يوم وعليه يجب ان يكون التاريخ لكل شهر 30 يوم لكل الاشهر وشاكر لك جهودك 

[AbuuAhmed]

هل أشتغل لك على مقترحي ، يعني هل أنت موافق ، أنا لا أريد أن يذهب تعبي سدى ، أكد لي موافقتك لو سمحت

[ابو هاله النبلسي]

34 دقائق مضت, AbuuAhmed said:

هل أشتغل لك على مقترحي ، يعني هل أنت موافق ، أنا لا أريد أن يذهب تعبي سدى ، أكد لي موافقتك لو سمحت

 على سبيل المثال ان التاريخ الاول على افتراض01-03-2023 والتاريخ الثاني 28-2-2023  اريد ان يكون حاصر الفرق بينهم 3 ايام او مثال ثاني ان التاريخ الاول 01-3-2023 والتاريخ الثاني 6-2-2023  اريد ان يكون حاصل الفرق يكون 25 يوم وعليه يجب ان يكون التاريخ لكل شهر 30 يوم لكل الاشهر وشاكر لك جهودك  هذا المطلوب وشكرا لوقتك ورمضان كريم 

تم تعديل مارس 23, 2023 بواسطه ابو هاله النبلسي

[ابوخليل]

26 دقائق مضت, ابو هاله النبلسي said:

 على سبيل المثال ان التاريخ الاول على افتراض 30-03-2023 والتاريخ الثاني 28-2-2023  اريد ان يكون حاصر الفرق بينهم 3 ايام 

راجع تواريخك .. هذا لا يمكن .. انت كتبت هذا التاريخ عدة مرات ..  ربما يقصد 1-3  وليس 30-3

[ابو هاله النبلسي]

3 دقائق مضت, ابوخليل said:

راجع تواريخك .. هذا لا يمكن .. انت كتبت هذا التاريخ عدة مرات ..  ربما يقصد 1-3  وليس 30-3

أحسنت استاذي همتك معانه الله يخليك 

[ابوخليل]

37 دقائق مضت, AbuuAhmed said:

هل أشتغل لك على مقترحي ، يعني هل أنت موافق ، أنا لا أريد أن يذهب تعبي سدى ، أكد لي موافقتك لو سمحت

2 دقائق مضت, ابو هاله النبلسي said:

أحسنت استاذي همتك معانه الله يخليك 

لا يفتى ومالك في المدينة

[Eng.Qassim]

مشاركة مع اساتذتي الكرام

لكني عملتها على السنة الواحدة

data360.rar

[ابو هاله النبلسي]

33 دقائق مضت, Eng.Qassim said:

مشاركة مع اساتذتي الكرام

لكني عملتها على السنة الواحدة

data360.rar 35.14 kB · 2 downloads

ياسلام عليك يا غالي 

[AbuuAhmed]

جرب هذا الكود:
 

Option Compare Database
Option Explicit

Function GetDays360(DateFm As Date, DateTo As Date) As Double
    Dim Part1 As Double, Part2 As Double, Part3 As Double
    Dim mmDays As Byte, FullMonths As Integer
    Dim Date1 As Date, Date2 As Date
    
    If DateTo - DateFm < 0 Then Exit Function
    
    Date1 = DateSerial(Year(DateFm), Month(DateFm) + 1, 1)
    Date2 = DateSerial(Year(DateTo), Month(DateTo) + 0, 0)
    FullMonths = DateDiff("m", Date1 - 1, Date2)
    
    mmDays = Day(DateSerial(Year(DateFm), Month(DateFm) + 1, 0))
    If FullMonths < 0 Then
        Part1 = (DateTo - DateFm + 1) / mmDays * 30
    Else
        Part1 = (Date1 - DateFm + 0) / mmDays * 30
        Part2 = FullMonths * 30
        
        mmDays = Day(DateSerial(Year(DateTo), Month(DateTo) + 1, 0))
        Part3 = (DateTo - Date2 + 0) / mmDays * 30
    End If
        
    GetDays360 = Part1 + Part2 + Part3
End Function


Sub Test()
    Dim Date1 As Date, Date2 As Date
    
    Date1 = DateSerial(2023, 1, 1)
    Date2 = DateSerial(2023, 12, 31)
    
    MsgBox GetDays360(Date1, Date2)
End Sub

 

55 دقائق مضت, ابوخليل said:

لا يفتى ومالك في المدينة

على راسي @ابوخليل

تم تعديل مارس 23, 2023 بواسطه AbuuAhmed
تنقيح الكود

[ابو هاله النبلسي]

26 دقائق مضت, AbuuAhmed said:

جرب هذا الكود:
 

Option Compare Database
Option Explicit

Function GetDays360(DateFm As Date, DateTo As Date) As Double
    Dim Part1 As Double, Part2 As Double, Part3 As Double
    Dim mmDays As Byte, FullMonths As Integer
    Dim Date1 As Date, Date2 As Date
    
    If DateTo - DateFm < 0 Then Exit Function
    
    Date1 = DateSerial(Year(DateFm), Month(DateFm) + 1, 1)
    Date2 = DateSerial(Year(DateTo), Month(DateTo) + 0, 0)
    FullMonths = DateDiff("m", Date1 - 1, Date2)
    
    mmDays = Day(DateSerial(Year(DateFm), Month(DateFm) + 1, 0))
    If FullMonths < 0 Then
        Part1 = (DateTo - DateFm + 1) / mmDays * 30
    Else
        Part1 = (Date1 - DateFm + 0) / mmDays * 30
        Part2 = FullMonths * 30
        
        mmDays = Day(DateSerial(Year(DateTo), Month(DateTo) + 1, 0))
        Part3 = (DateTo - Date2 + 0) / mmDays * 30
    End If
        
    GetDays360 = Part1 + Part2 + Part3
End Function


Sub Test()
    Dim Date1 As Date, Date2 As Date
    
    Date1 = DateSerial(2023, 1, 1)
    Date2 = DateSerial(2023, 12, 31)
    
    MsgBox GetDays360(Date1, Date2)
End Sub

 

على راسي @ابوخليل

من فضلك ممكن اضافته بالملف 

[ابو هاله النبلسي]

41 دقائق مضت, ابو هاله النبلسي said:

ياسلام عليك يا غالي 

هل يمكن اكثر من سنة يا غالي 

[AbuuAhmed]

استغفر الله العظيم
 

DD129_01.accdb

[Eng.Qassim]

18 دقائق مضت, ابو هاله النبلسي said:

هل يمكن اكثر من سنة يا غالي

تفضل

data360.rar

[ابو هاله النبلسي]

شكرا لكم من اعماق قلبي بارك الله بالجهود المبذولة

[AbuuAhmed]

6 دقائق مضت, ابو هاله النبلسي said:

شكرا لكم من اعماق قلبي بارك الله بالجهود المبذولة

ولكنك لم توفي بوعدك (قبولك لشرطي) ، هذه أول ليلة في رمضان ضاعت سدى.
صورة مع التحية لـ @ابوخليل

[ابو هاله النبلسي]

14 دقائق مضت, Eng.Qassim said:

تفضل

data360.rar 41.64 kB · 3 downloads

 

1 دقيقه مضت, AbuuAhmed said:

ولكنك لم توفي بوعدك (قبولك لشرطي) ، هذه أول ليلة في رمضان ضاعت سدى.
صورة مع التحية لـ @ابوخليل

الله يسر امرك وبارك الله فيك وغفر لك ما تقدم وما تاخر من ذنبك في هذا الشهر الفضيل ويعطيك من اوسع الابواب امييين يارب العالمين

[AbuuAhmed]

كما أرجو ملاحظة أن السائل عدل المشاركة التي فيها "الموافقة" على شرطي دون أي ملاحظات منه.

[ابو هاله النبلسي]

12 دقائق مضت, AbuuAhmed said:

كما أرجو ملاحظة أن السائل عدل المشاركة التي فيها "الموافقة" على شرطي دون أي ملاحظات منه.

استاذي العزيز هل يمكن التعديل عل الكود الخاص بك من فضلك 

على سبيل المثال ان التاريخ الاول على افتراض01-03-2023 والتاريخ الثاني 28-2-2023  اريد ان يكون حاصر الفرق بينهم 3 ايام او مثال ثاني ان التاريخ الاول 01-3-2023 والتاريخ الثاني 6-2-2023  اريد ان يكون حاصل الفرق يكون 25 

[AbuuAhmed]

مقارنة

Data360_01.xlsm

[ابو هاله النبلسي]

5 ساعات مضت, AbuuAhmed said:

مقارنة

Data360_01.xlsm 23.67 kB · 2 downloads

مثلما قالها ابو خليل لا يفتي بالمدينة وفيها مالك احسنت وبارك الله فيك هل يتم حل المشكلة بان يكون 360 يوم عن طريق التحايل وحسب الكود عن طريق استخدام round لكي نهمل الكسور وبعد التحايل يصبح 30 يوم لشهر شباط سواء في الحقل الاول او الثاني