23-07-2013, 05:28 PM
هناك خطأ بسيط
الدالة DayOfTheYear وظيفتها هي الحصول على ترتيب اليوم في السنة وهي تأخذ الأرقام مابين 1 الى
365 أو 366 اذا كانت السنة كبيسة
أما للحصول على عدد أيام السنة فالدالة DaysInAYear تقوم بذلك
نفس الشيء بالنسبة للدالة WeekOfTheYear فهي تعطي ترتيب الأسبوع ضمن السنة
فمثلا الأسبوع الأول من الشهر الأول في العام يكون ترتيبه واحد وهكذا بالنسبة لباقي الأسابيع.
أما عدد الأسابيع في السنة فالدالة WeeksInAYear تقوم بذلك
الدالة DayOfTheYear وظيفتها هي الحصول على ترتيب اليوم في السنة وهي تأخذ الأرقام مابين 1 الى
365 أو 366 اذا كانت السنة كبيسة
كود :
function DayOfTheYear(const AValue: TDateTime): Word;أما للحصول على عدد أيام السنة فالدالة DaysInAYear تقوم بذلك
كود :
function DaysInAYear(const AValue: TDateTime): Word;نفس الشيء بالنسبة للدالة WeekOfTheYear فهي تعطي ترتيب الأسبوع ضمن السنة
فمثلا الأسبوع الأول من الشهر الأول في العام يكون ترتيبه واحد وهكذا بالنسبة لباقي الأسابيع.
أما عدد الأسابيع في السنة فالدالة WeeksInAYear تقوم بذلك
كود :
WeeksInAYear(const AYear: Word): Word;

![[-]](https://delphi4arab.net/forum/D4A2020/collapse.png)