Советы по Delphi



              

Алгоритм вычисления дня недели для Delphi1


Начиная с 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;

С уважением Бахтинов Андрей [001603]




Содержание  Назад  Вперед