VPF::Алгоритм определения дня недели

falcon39

Дата 23.9.2005, 10:16 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 103
Регистрация: 21.6.2004

Репутация: нет
Всего: 0

Помогите.
Нужен алгоритм определения дня недели.

--------------------

Rennigth

Дата 23.9.2005, 10:17 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

Репутация: 49
Всего: 76

DayOfWeek некатит?...

--------------------

(* Honesta mors turpi vita potior *)

devmstr

Дата 23.9.2005, 12:12 (ссылка)

(нет голосов)

Загрузка ...

Developer

Профиль
Группа: Участник
Сообщений: 879
Регистрация: 28.4.2004
Где: Ukraine

Репутация: 2
Всего: 11

Определение сегодняшнего дня недели

Код


procedure TForm1.Button1Click(Sender: TObject);
Var
 cur : word;
 function DoW(day:word):string;
 begin
  case day of
    7: result :='Воскресенье';
    1: result :='Понедельник';
    2: result :='Вторник';
    3: result :='Среда';
    4: result :='Четверг';
    5: result :='Пятница';
    6: result :='Суббота';
    end;
 end;
begin
 cur := DayOfWeek(now);
 showmessage(Dow(cur));

end;

Это сообщение отредактировал(а) magician - 23.9.2005, 12:14

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »