Советы по Delphi
в модуле SysUtils определена функция
Начиная с Delphi2 в модуле SysUtils определена функция DayOfWeek(Date: TDateTime): Integer.
Тип TDateTime в Delphi1 определён как Double, дата это целая часть определяющая количество дней прошедших с 01.01.0001, дробная часть содержит время.
|
(******************************************************************************* Функция возвращает номер дня недели от 0 - Воскресенье до 6 - Суббота *******************************************************************************) function DayOfWeek(Date:TDateTime):Integer; begin Result:=Trunc(Date) mod 7; end; (******************************************************************************* Функция возвращает название дня недели *******************************************************************************) function NameDayOfWeek(Date:TDateTime):String; const DayNames:array[0..6] of String[11]=('Воскресенье', 'Понедельник', 'Вторник', 'Среда', 'Четверг', 'Пятница', 'Суббота'); begin Result:=DayNames[DayOfWeek(Date)]; end; |
