ازاي اثبت عدد ايام الشهرعلى 30يوم فقط

[baraa2007]

السلام عليكم 

 

لو طرحت تاريخين من بعض مثل

18/07/2017  - 16/09/2017   = 60 يوم

علي اساس ان شهر 7 & 8 31 يوم

طب لو عايز اثبت عدد ايام الاشهر الى 30 يوم بس ايا كان الشهر

بحيث يبقا الناتج 58 يوم

اعمل ايه ؟؟؟؟

 

[baraa2007]

لا اله الا انت سبحانك اني كنت من الظالمين

[jjafferr]

وعليكم السلام

 

طيب وشهر 2 كيف تتعامل معاه؟

 

جعفر

[jjafferr]

السلام عليكم

 

بعد البحث ، اتضح ان هذه طريقة يستخدمها بعض المحاسبين والتي تسمى 30/360 

 

ضع الكود في وحدة نمطية:

Public Function Set_30(Date1 As Date, Date2 As Date) As Integer

'
' The basic 30/360 calculation
' From
' https://sqlsunday.com/2014/08/17/30-360-day-count-convention/
' 360*(@y2-@y1) + 30*(@m2-@m1) + (@d2-@d1)
'
' converted to VBA by jjafferr on 20/12/2017
'

    Dim D1 As Integer
    Dim D2 As Integer
    Dim M1 As Integer
    Dim M2 As Integer
    Dim Y1 As Integer
    Dim Y2 As Integer
    
    D1 = DatePart("d", Date1)
    D2 = DatePart("d", Date2)
    
    M1 = DatePart("m", Date1)
    M2 = DatePart("m", Date2)
    
    Y1 = DatePart("yyyy", Date1)
    Y2 = DatePart("yyyy", Date2)
    
    Set_30 = 360 * (Y2 - Y1) + 30 * (M2 - M1) + (D2 - D1)
    
End Function

.

ثم في الاستعلام ، ننادي الوحدة النمطية هكذا:

Number_of_Days: Set_30([Start date],[End Date])

 

جعفر

[baraa2007]

سلام عليكم 

شكرا على الرد

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

ودا البرنامج 

ممكن تضع فيه الكود

في حقل فرق الايام 

 

كهرباء.rar

[baraa2007]

بارك الله فيك ونفع بك 

تمام كدا 

 

[jjafferr]

الحمدلله انك قدرت تخلص العمل

[baraa2007]

شكرا اخي جعفر 

جزاك الله كل خير على مجهودك