Разное
Облака / Clouds
    Go to Copy.com
    Copy.com
    The bast cloud service
    Get 20 GB free!!!
    Support WebDav.
    Show more >>
    Go to Dropbox.com
    Dropbox.com
    time-tested cloud storage
    Support WebDav.



Последние книги
Самое популярное
Все бесплатно
    Все ссылки на файлы, расположенные на страницах сайта, добавлены пользователями и доступны для бесплатного скачивания. За содержание этих файлов администрация сайта ответственности не несет.
Навигация



Вопросы
  Перегенерировать все индексы Dbase
   Категория: Базы данных
  Вывод текста на канву Canvas
   Категория: Компоненты
  Числовой формат ячейки в Excel
   Категория: Базы данных
  Поиск по EasyTable
   Категория: Базы данных
  Компонент StatusBar
   Категория: Компоненты
  Что значит Paramstr
   Категория: Приложение
  Число строкой с предстоящими нулями
   Категория: Текст и строки
  Создание цветных строк в ListBox
   Категория: Компоненты
  Перекодировка текста DOS-Windows-Koi8
   Категория: Текст и строки
  Создание кнопки на панели в IE
   Категория: Интернет и Сети

Delphi - Справочник: DayOfWeek

ABCDEFGHIJKLMNOPQRSTUVWXYZ

  << Вернуться  

 DayOfWeek
function DayOfWeek ( Date : TDateTime ) : Integer;
Функция (Unit SysUtils)
Выдает индекс дня недели для значения TDateTime
Описание:
Функция DayOfTheWeek возвращает индекс дня недели:

1 = Понедельник
2 = Вторник
3 = Среда
4 = Четверг
5 = Пятница
6 = Суббота
7 = Воскресенье
Пример кода: Показ дня недели для Рождества 2002 г. 

var
  myDate : TDateTime;
  day    : string;

begin
  myDate := EncodeDate(2002, 12, 31);

  day := LongDayNames[DayOfWeek(myDate)];

  ShowMessage('Рождество 2002г. '+day);
end;

Результат:
Рождество 2002г. Вторник
Примечание:
Предупреждение: Эта функция НЕ соглачована с ISO 8601.

DayOfTheWeek является согласованной с ISO 8601, и использует Понедельник как начало недели.

  << Вернуться