DELPHI ДЕНЬ НЕДЕЛИ
var Today: TDateTime;begin Today := Now; // получаем текущее дату и время ShowMessage('Сегодня ' + FormatDateTime('dddd', Today)); // выводим название дня недели end;
Для того чтобы вывести день недели на русском языке, нужно использовать локаль RU. Например:var Today: TDateTime;begin Today := Now; ShowMessage('Сегодня ' + FormatDateTime('dddd', Today, TFormatSettings.Create('ru-RU')));end;
Для получения дня недели для определенной даты, нужно воспользоваться функцией DayOfWeek. Например:var MyDate: TDateTime; DayOfWeek: Integer;begin MyDate := EncodeDate(2021, 5, 17); // задаем дату DayOfWeek := DayOfTheWeek(MyDate); ShowMessage('День недели: ' + IntToStr(DayOfWeek));end;
jQuery : Get active month in calendar
CSS : Designing a dynamic responsive week calendar
A look at Delphi dates on its 27th birthday Feb 14, 2022
Delphi 7 Timers Tutorial
Date and Time Part 1 - Date and Time in Delphi
ФОГЕЛЬ - НЕДЕЛИ (Official Audio)