nsco_nsco
شنبه 11 دی 1389, 01:40 صبح
سلام
شبتون بخیر و عید سال میلادیتون مبارک ما در دلفی دستوری به نام DayOfWeek داریم که روز را نشان می دهد من چطور می تونم به صورت ساده تنها عدد را نمایش بدم از شنبه تا جمعه و نه به صورت زیر
type
TDay = (Sunday, Monday, Tuesday, Wednesday, Thursday, Friday, Saturday);
const
DayNames : array [TDay] of String[9] = ('Sunday', 'Monday', 'Tuesday',
'Wednesday', 'Thursday',
'Friday', 'Saturday');
var
Today : TDay;
begin
Today := TDay(DayOfWeek(Date) - 1);
ShowMessage('Today is ' + DayNames[Today] + '!');
در ضمن در صورت امکان نیز فرمول به دست اورد نام حیوانات سال را بگویید مسئله ای که دارم در بیشتر جاها این گونه گفته :
براي تشخيص اينكه هرسال با كداميك از اين نام ها مطابقت دارد از سال خورشيدي عدد 6 را كم كنيد.
حاصل عدد را بر 12 تقسيم كنيد ؛ عدد باقيمانده اين تقسيم را كه حتما كمتر از 12 است در نظر بگيريد؛ از شماره يك از موش شروع به شمردن كنيد نام هر حيواني با عدد با قيمانده مطابقت كرد سال همان حيوان است.
مثال :
سال1386 شمسي مطابق با نام كدام حيوان است؟
1380 =6-1386
باقيمانده حاصل تقسيم 1380 بر 12 =صفر كه آخرين حيوان است. خوك
اما من هر جور تقسیم می کنم به عدد صفر نمی رسم اگر ممکنه توضیح دهید با تشکر از همه شما :تشویق::چشمک:
شبتون بخیر و عید سال میلادیتون مبارک ما در دلفی دستوری به نام DayOfWeek داریم که روز را نشان می دهد من چطور می تونم به صورت ساده تنها عدد را نمایش بدم از شنبه تا جمعه و نه به صورت زیر
type
TDay = (Sunday, Monday, Tuesday, Wednesday, Thursday, Friday, Saturday);
const
DayNames : array [TDay] of String[9] = ('Sunday', 'Monday', 'Tuesday',
'Wednesday', 'Thursday',
'Friday', 'Saturday');
var
Today : TDay;
begin
Today := TDay(DayOfWeek(Date) - 1);
ShowMessage('Today is ' + DayNames[Today] + '!');
در ضمن در صورت امکان نیز فرمول به دست اورد نام حیوانات سال را بگویید مسئله ای که دارم در بیشتر جاها این گونه گفته :
براي تشخيص اينكه هرسال با كداميك از اين نام ها مطابقت دارد از سال خورشيدي عدد 6 را كم كنيد.
حاصل عدد را بر 12 تقسيم كنيد ؛ عدد باقيمانده اين تقسيم را كه حتما كمتر از 12 است در نظر بگيريد؛ از شماره يك از موش شروع به شمردن كنيد نام هر حيواني با عدد با قيمانده مطابقت كرد سال همان حيوان است.
مثال :
سال1386 شمسي مطابق با نام كدام حيوان است؟
1380 =6-1386
باقيمانده حاصل تقسيم 1380 بر 12 =صفر كه آخرين حيوان است. خوك
اما من هر جور تقسیم می کنم به عدد صفر نمی رسم اگر ممکنه توضیح دهید با تشکر از همه شما :تشویق::چشمک: