إظهار أرقام الأسابيع بين تاريخين

[Fmmm]

السلام عليكم 

الساده الأعضاء المحترمين 

اولا احب ان اشكر الساده الخبراء علي المساعده 

لدي نموذج تكمله لم سبق كان عندي سؤالين والساده الخبراء ما قصروا جزاهم الله عنا خير الجزاء 

اريد ان أظهر بين تواريخ الاجازه أرقام الأسابيع بحيث اقدر اعمل مقارنه مثل الرسم البياني بين الموظفين 

انا سوف اكمل عدد الأسابيع الي ٥٤ اريد الفتره بين تاريخ بداية إلاجازة وتاريخ نهايه الاجازه تظهر بلون مميز مثلا ممكن باستخدام التنسيق الشرطي لو الحقل في بيانات يظهر لون 

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

وشكرا لحضرتكم

[kkhalifa1960]

وين المثال كي نعمل عليه ووضح المطلوب به .

[Moosak]

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

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

Function ListWeekNumbers(startDate As Date, endDate As Date) As String

Dim WeekNumberForStartDate As Integer
Dim WeekNumberForEndDate As Integer
Dim x As Integer

' Assigning Week numbers for start and end days
WeekNumberForStartDate = DatePart("ww", startDate)
WeekNumberForEndDate = DatePart("ww", endDate)

' Listing all the weeks numbers in between
For x = WeekNumberForStartDate To WeekNumberForEndDate
    ListWeekNumbers = ListWeekNumbers & x & IIf(x <> WeekNumberForEndDate, ", ", "")
Next

'Debug.Print ListWeekNumbers
End Function

وطريقة عملها هكذا ( من تاريخ اليوم حتى 3/5/2023 ):

ListWeekNumbers(date , #5/3/2023# )

والناتج ( الأسابيع من 2 إلى 18 ) :

2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18

 

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

[Fmmm]

@kkhalifa1960

@Moosak

شكرآ علي اهتمامكم f6.raf6.rar

f6.rar

[Moosak]

تفضل أخي العزيز 🙂 

عدلت لك الدالة بحيث أنك تعطيها تاريخ البداية وتاريخ النهاية ورقم الأسبوع لكل مربع نص .. والدالة ترجع قيمة رقمية 0 و 1 ... الصفر يعني أن هذا الأسبوع ليس من ضمن نطاق الإجازة ، والواحد من ضمن نطاق الإجازة .. وبعدها بالتنسيق الشرطي تلون المربعات التي بها 1 .. ويمكنك إخفاء الأرقام بتلوينها نفس مربعات النص 🙂 

وهذه هي الدالة :

Public Function IsWeekIn(StartDate As Date, Enddate As Date, ThisIsWeekNumber As Integer) As Integer
'هذه الدالة تقوم بكتابة 1 في الأسابيع الواقعة بين تاريخين و 0 للتي ليست ضمن نطاق التواريخ المعطاه

Dim WeekNumberForStartDate As Integer
Dim WeekNumberForEndDate As Integer

' Assigning Week numbers for start and end days
WeekNumberForStartDate = DatePart("ww", StartDate)
WeekNumberForEndDate = DatePart("ww", Enddate)

If ThisIsWeekNumber >= WeekNumberForStartDate And ThisIsWeekNumber <= WeekNumberForEndDate Then
    IsWeekIn = 1
Else
    IsWeekIn = 0
End If
End Function

وتكتبها كمصدر بيانات مربعات الأسبوع هكذا :

=IsWeekIn([Strdate];[Enddate];1)

لاحظ الرقم الأخير 1  هذا سيتغير لكل مربع من مربعات الأسابيع حسب رقم الأسبوع ( من 1 إلى 54 )

f6-Moosak.rar

[kkhalifa1960]

استكمالا لما قام به استاذنا موسى تفضل 

f6-1.rar

[Fmmm]

11 ساعات مضت, kkhalifa1960 said:

استكمالا لما قام به استاذنا موسى تفضل 

f6-1.rar 42.86 kB · 3 downloads

شكرآ اخي الله يبارك فيك @kkhalifa1960

شكرآ اخي @Moosak بارك الله فيك 

كان نفس يكون أفضل اجابه للاثنين  بصراحه متشكر جدا لكم الله يسعدكم 

[MAHERABOUSMRA]

استاذي الغالي moosak
هل ممكن اعطائي مثال عن الموضوع

 

مثال عن موقع

https://l.top4top.io/m_2568jb50r1.mp4