اشکال در هنگام استفاده از تابع DayOfWeek

[msi1393]

سلام دوستان من با یه مشکل برخورد کردم لطفا راهنمایی کنید
توی برنامه برای بدست آوردن روز هفته از تابع DayOfWeek استفاده میکنم
ولی متأسفانه وقتی روز شنبه باشه با اخطار زیر مواجه میشم
ممنون میشم راهنمایی کنید
باتشکر
[برای مشاهده لینک ها شما باید عضو سایت باشید برای عضویت در سایت بر روی اینجا کلیک بکنید]

[admin]

سلام ودرود.
قطعا طریقه ی استفاده تون اشتباهه ، به طریق زیر استفاده کنید و در صورت وجود اشکال، پروژه ی خودتون رو آپلود کرده تا نظرات دوستان رو در مورد پروژه تون بشنوید.

var
  myDate : TDateTime;
  day    : string;

begin
  myDate := EncodeDate(2017, 05,16);

  day := LongDayNames[dayofweek(myDate)];

  ShowMessage('امروز روز  '+day + ' است');

موفق و موید باشید

[msi1393]

با عرض سلام و تشکر فراوان خدمت شما مدیر محترم
مهندس جان تشکر میکنم مشکل حل شد.
فقط ظاهرا از دلفی XE2 به بعد تابع LongDayNames به تنهایی جواب نمیده و باید به صورت زیر استفاده بشه

day := FormatSettings.LongDayName[dayofweek(myDate)]

مهندس جان باز هم از زحمات شما متشکر

[admin]

با عرض سلام و تشکر فراوان خدمت شما مدیر محترم
مهندس جان تشکر میکنم مشکل حل شد.
فقط ظاهرا از دلفی XE2 به بعد تابع LongDayNames به تنهایی جواب نمیده و باید به صورت زیر استفاده بشهمهندس جان باز هم از زحمات شما متشکر

دقیقا درسته ، و البته از اونجاییکه خروجی dayofweek(myDate).ToString() عددی بین 1 تا 7 می باشد ، با یک تابع ساده میشه خودتون هر مقداری رو جایگزین کنید ، مثلا بگید :
اگر جواب مساوی 4 بود ، سه شنبه و روز چهارم هفته است و یا هر مقداری که مایلید کاربر شما ببیند ...