نمایش نسخه قابل چاپ
سلام دوستان من با یه مشکل برخورد کردم لطفا راهنمایی کنید
توی برنامه برای بدست آوردن روز هفته از تابع DayOfWeek استفاده میکنم
ولی متأسفانه وقتی روز شنبه باشه با اخطار زیر مواجه میشم
ممنون میشم راهنمایی کنید
باتشکر
[برای مشاهده لینک ها شما باید عضو سایت باشید برای عضویت در سایت بر روی اینجا کلیک بکنید]
سلام ودرود.
قطعا طریقه ی استفاده تون اشتباهه ، به طریق زیر استفاده کنید و در صورت وجود اشکال، پروژه ی خودتون رو آپلود کرده تا نظرات دوستان رو در مورد پروژه تون بشنوید.
موفق و موید باشیدکد:var
myDate : TDateTime;
day : string;
begin
myDate := EncodeDate(2017, 05,16);
day := LongDayNames[dayofweek(myDate)];
ShowMessage('امروز روز '+day + ' است');
با عرض سلام و تشکر فراوان خدمت شما مدیر محترم
مهندس جان تشکر میکنم مشکل حل شد.
فقط ظاهرا از دلفی XE2 به بعد تابع LongDayNames به تنهایی جواب نمیده و باید به صورت زیر استفاده بشهمهندس جان باز هم از زحمات شما متشکرنقل قول:
day := FormatSettings.LongDayName[dayofweek(myDate)]
دقیقا درسته ، و البته از اونجاییکه خروجی dayofweek(myDate).ToString() عددی بین 1 تا 7 می باشد ، با یک تابع ساده میشه خودتون هر مقداری رو جایگزین کنید ، مثلا بگید :نقل قول:
نوشته اصلی توسط msi1393 [برای مشاهده لینک ها شما باید عضو سایت باشید برای عضویت در سایت بر روی اینجا کلیک بکنید]
اگر جواب مساوی 4 بود ، سه شنبه و روز چهارم هفته است و یا هر مقداری که مایلید کاربر شما ببیند ...