PDA

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-)