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

[admin]

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

var
  myDate : TDateTime;
  day    : string;

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

  day := LongDayNames[dayofweek(myDate)];

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

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