Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Алгоритм определения дня недели

Автор: falcon39 23.9.2005, 10:16

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

Автор: Rennigth 23.9.2005, 10:17

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

Автор: devmstr 23.9.2005, 12:12

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

Код


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;