پيدا کردن روز هفته از تاريخ ميلادي يا شمسي

[h_mohamadi]

سلام بر دوستان گرامي و اساتيد ارجمند
من مي خواهم بدانم آيا فانگشن و يا دستوري است که يک تاريخ را به آن بدهيدم و مشخص کند که اين تاريخ چند شنبه است.
مثلا بدهيدم 890512 و به ما روز را بدهد البته براي من فرقي ندارد اگر ميلادي هم بدهم و بگويد چه روزي است کار من را راه مي اندازد.
با تشکر فراوان از راهنمايي هاي کامل و جامع دوستان گرامي

[hasan0423]

شما می توانید از این دستورها کمک بگیرید
D:=Date
I:=DayOfWeek(D);IF I2=7 THEN I:=0
که I از نوع INTEGER و D از نوع TDateTime می باشد
که تاریخ میلادی از سیستم روی متغیر D ریخته می شود و روز هفته در خط بعدی روی متغییر I از 0 تا 6 به ترتیب از شنبه تا جمعه خواهد ریخت

[hossein_h62]

سلام
به این شکل :



var
myDate : TDateTime;
day : array[1..7] of string;
begin
day[1] := 'دوشنبه';
day[2] := 'سه شنبه';
day[3] := 'چهارشنبه';
day[4] := 'پنجشنبه';
day[5] := 'جمعه';
day[6] := 'شنبه';
day[7] := 'يکشنبه';
myDate := EncodeDate(2010, 10, 13);
ShowMessage('امروز '+day[DayOfTheWeek(myDate)]);
end;




و روز هفته در خط بعدی روی متغییر I از 0 تا 6 به ترتیب از شنبه تا جمعه خواهد ریخت
در ضمن خروجی تابع اعداد 1 الی 7 هستش از دوشنبه تا یکشنبه.

[ariobarzan]

سلام
این یونیت باحالیه
فایل راهنما هم گذاشتم
امیدوارم کمکی شده باشه:لبخند:

[h_mohamadi]

سلام
به این شکل :



var
myDate : TDateTime;
day : array[1..7] of string;
begin
day[1] := 'دوشنبه';
day[2] := 'سه شنبه';
day[3] := 'چهارشنبه';
day[4] := 'پنجشنبه';
day[5] := 'جمعه';
day[6] := 'شنبه';
day[7] := 'يکشنبه';
myDate := EncodeDate(2010, 10, 13);
ShowMessage('امروز '+day[DayOfTheWeek(myDate)]);
end;


در ضمن خروجی تابع اعداد 1 الی 7 هستش از دوشنبه تا یکشنبه.


سلام باتشکر اما مشکل من اين است که در خط
ShowMessage('ÇãÑæÒ '+day[DayOfWeek(myDate)]);
پيغام مي دهد و برنامه کامپايل نمي شود.
مي خواستم بدانم مشکل از کجاست؟؟

[ftn1361]

شما یک تابع به نام DayOfWeek از نوع String تعریف کرده اید و تابع سیستمی DayofWeek را داخل آن بکار برده اید در حالیکه آن تابع به علت تشابه اسم ، خودش را فراخوانی می کند باید نام تابع تعریفی خودتان را عوض کنید وگرنه برنامه مشکلی ندارد