DayoftheWeek Delphi - Okolokompa

DayoftheWeek

Модуль: DateUtils
function DayOfTheWeek(const AValue: TDateTime): Word;

Функция возвращает номер дня недели на основе даты, сохраненной в параметре AValue .

Функция возвращает стандартное значение ISO 8601, что означает, что первый день недели — понедельник, а последний день — воскресенье. Чтобы загрузить день недели, в который воскресенье является первым днем, используйте функцию DayOfWeek .

Вот пример программы, использующей функцию:

program Foo;

{$APPTYPE CONSOLE}

uses

SysUtils, DateUtils;

const

DayValues : array[1..7] of String =

('Poniedziałek', 'Wtorek', 'Środa', 'Czwartek', 'Piątek', 'Sobota', 'Niedziela');

begin

Writeln('Dzisiaj jest: ', DayValues[DayOfTheWeek(Now)]);

Readln;

end.

На основе текстовых значений, объявленных в таблице DayValues , программа отображает день недели (прописью).