DayOfWeek
Модуль: SysUtils
function DayOfWeek(Date: TDateTime): Integer;
Функция возвращает номер дня недели на основе параметра Date типа TDateTime . Номер дня возвращается как целое число , где 1 — воскресенье, а 7 — суббота.
Чтобы загрузить день недели в стандарте ISO 8601, где понедельник является первым днем недели, используйте функцию DayOfTheWeek . Вот пример дня недели (прописью):
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 |
program Foo; {$APPTYPE CONSOLE} uses SysUtils, DateUtils; const DayValues : array[1..7] of String = ( 'Niedziela', 'Poniedziałek', 'Wtorek', 'Środa', 'Czwartek', 'Piątek', 'Sobota'); begin Writeln('Dzisiaj jest: ', DayValues[DayOfWeek(Now)]); Readln; end. |