Начиная с 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;
|
С уважением Бахтинов Андрей |