View Full Version : امروز کدام روز هفته است؟
FirstLine
سه شنبه 28 بهمن 1382, 13:15 عصر
با سلام
امروز کدام روز هفته است؟ البته فارسی یا لاتین فرقی نمیکنه، ولی فارسی بهتره ، چجوری بفهمم.
با تشکر
Delphi-Clinic
سه شنبه 28 بهمن 1382, 13:39 عصر
سلام
function DayOfTheWeek(const AValue: TDateTime): Word;
Behzad_Asharkhan
سه شنبه 28 بهمن 1382, 14:27 عصر
اینم فارسی بهتره
function FarsiDayofWeek(date: TDateTime): string;
. . .
const
Farsi_Day: array [1 .. 7] of String = (
'شنبه', 'جمعه', 'پنج شنبه', 'چهار شنبه', 'سه شنبه', 'دوشنبه','یکشنبه');
. . .
function FarsiDayofWeek(date: TDateTime): string;
begin
result := Farsi_Day[ DayOfWeek(date) ];
end;
توجه:
مقدار بازگشتی توابع dayoftheweek و dayofweek با هم فرق داره. برای اولی 1 یعنی دوشنبه و اینکه من استفاده کردم 1 یعنی یکشنبه.
یاسر احسانی
شنبه 02 اسفند 1382, 16:35 عصر
علیه 8-)
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.