Скачать: CL | DM;

Определение дня недели из заданой даты   Найти похожие ветки 

← →
Charlz ©   (2002-06-16 16:23) [0]

Пожалуйста дайте пример, как определить день недели для заданной даты. Зарание спасибо!

---

← →
Anatoly Podgoretsky ©   (2002-06-16 16:24) [1]

Перевод: Day Of Week

---

← →
Сатир   (2002-06-16 20:26) [2]

procedure TForm1.Button1Click(Sender: TObject);

var
ADate: TDateTime;
days: array[1..7] of string;
begin
days[1] := "Sunday";
days[2] := "Monday";
days[3] := "Tuesday";
days[4] := "Wednesday";
days[5] := "Thursday";
days[6] := "Friday";
days[7] := "Saturday";
ADate := StrToDate(Edit1.Text);
ShowMessage(Edit1.Text + " is a " + days[DayOfWeek(ADate)];
end;
©Delphi Help;-)
с уважением.

---

← →
Anatoly Podgoretsky ©   (2002-06-16 20:35) [3]

Такой массив уже есть в системе, и даже два и даже локализирован, называются
var ShortDayNames: array[1..7] of string;
var LongDayNames: array[1..7] of string;

---

← →
~RAND~ ©   (2002-06-16 20:59) [4]

Удалено модератором

---

← →
Kr_Alex ©   (2002-06-16 22:38) [5]

Если дата в формате TDateTime то FormateDateTime("dddd",YourDate). Если дата в string то перевести её в TDateTime можно функцией StrToDate.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.009 c