PDA

توجه ! این یک نسخه آرشیو شده میباشد و در این حالت شما عکسی را مشاهده نمیکنید برای مشاهده کامل متن و عکسها بر روی لینک مقابل کلیک کنید : اشکال در هنگام استفاده از تابع DayOfWeek


msi1393
14 / May / 2017, 06:30 PM
سلام دوستان من با یه مشکل برخورد کردم لطفا راهنمایی کنید
توی برنامه برای بدست آوردن روز هفته از تابع DayOfWeek استفاده میکنم
ولی متأسفانه وقتی روز شنبه باشه با اخطار زیر مواجه میشم
ممنون میشم راهنمایی کنید
باتشکر
429
admin
16 / May / 2017, 02:18 AM
سلام ودرود.
قطعا طریقه ی استفاده تون اشتباهه ، به طریق زیر استفاده کنید و در صورت وجود اشکال، پروژه ی خودتون رو آپلود کرده تا نظرات دوستان رو در مورد پروژه تون بشنوید.


var
myDate : TDateTime;
day : string;

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

day := LongDayNames[dayofweek(myDate)];

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

موفق و موید باشید
msi1393
18 / May / 2017, 12:09 AM
با عرض سلام و تشکر فراوان خدمت شما مدیر محترم
مهندس جان تشکر میکنم مشکل حل شد.
فقط ظاهرا از دلفی XE2 به بعد تابع LongDayNames به تنهایی جواب نمیده و باید به صورت زیر استفاده بشه


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

مهندس جان باز هم از زحمات شما متشکر
admin
18 / May / 2017, 02:57 AM
با عرض سلام و تشکر فراوان خدمت شما مدیر محترم
مهندس جان تشکر میکنم مشکل حل شد.
فقط ظاهرا از دلفی XE2 به بعد تابع LongDayNames به تنهایی جواب نمیده و باید به صورت زیر استفاده بشهمهندس جان باز هم از زحمات شما متشکر
دقیقا درسته ، و البته از اونجاییکه خروجی dayofweek(myDate).ToString() عددی بین 1 تا 7 می باشد ، با یک تابع ساده میشه خودتون هر مقداری رو جایگزین کنید ، مثلا بگید :
اگر جواب مساوی 4 بود ، سه شنبه و روز چهارم هفته است و یا هر مقداری که مایلید کاربر شما ببیند ...