Советы по Delphi. Версия 1.4.3 от 1.1.2001 (Озеров) - страница 4

>{----------------------------------------------------------------}

>var

> nMonth, nDay, nMoon, nEpact, nSunday,

> nGold, nCent, nCorx, nCorz: Integer;

>begin

> { Номер Золотого Года в 19-летнем Metonic-цикле: }

> nGold := (Year mod 19) + 1;

> { Вычисляем столетие: }

> nCent := (Year div 100) + 1;

> { Количество лет, в течение которых отслеживаются високосные года… }

> { для синхронизации с движением солнца: }

> nCorx := (3 * nCent) div 4 – 12;

> { Специальная коррекция для синхронизации Пасхи с орбитой луны: }

> nCorz := (8 * nCent + 5) div 25 – 5;

> { Находим воскресенье: }

> nSunday := (Longint(5) * Year) div 4 – ncorx – 10;

> { ^ Предохраняем переполнение года за отметку 6554}

> { Устанавливаем Epact – определяем момент полной луны: }

> nEpact := (11 * nGold + 20 + nCorz – nCorx) mod 30;

> if nepact < 0 then nEpact := nEpact + 30;

> if ((nepact = 25) and (ngold > 11)) or (nepact = 24) then nEpact := nEpact + 1;

> { Ищем полную луну: }

> nMoon := 44 – nEpact;

> if nmoon < 21 then nMoon := nMoon + 30;

> { Позиционируем на воскресенье: }

> nMoon := nMoon + 7 – ((nSunday + nMoon) mod 7);

> if nmoon >l 31 then

> begin

>  nMonth := 4;

>  nDay := nMoon – 31;

> end

> else

> begin

>  nMonth := 3;

>  nDay := nMoon;

> end;

> Easter := EncodeDate(Year, nMonth, nDay);

>end; {easter}

Delphi 1

EncodeDate возвращает объект TDateTime, который просто является double-числом. Для получения количества миллисекунд с даты 1/1/0001, умножьте результат на 86400000.0 Но чтобы избежать переполнения, лучше пользоваться более поздней датой.

Delphi 1

>procedure TForm1.Button1Click(Sender: TObject);

>var  frstDay,toDay : TDateTime; week : Integer;

>begin

> frstDay := StrToDate('1/1/96');

> toDay := StrToDate(Edit1.Text);

> week := Trunc((toDay - frstDay) / 7) + 1;

> Label1.Caption := IntToStr(week);

>end;

Delphi 1

>procedure TForm1.Button1Click(Sender: TObject);

>var

> st,formatsave : string;

> DT : TDateTime;

>begin

> st := Edit1.text; // '1996-06-03 00.00.00'

> formatsave := ShortDateFormat;

> ShortDateFormat := 'yyyy.mm.dd hh.mm.ss';

> while pos ('-', st) > 0 do st [pos ('-', st)] := '.';

> DT := StrToDateTime(st);

> ShortDateFormat := formatsave;

> Label1.Caption := DateTimeToStr(DT);

>end;

Delphi 1

>LongDate := FormatDateTime('ddmmyyyy', StrToDate(ShortDate));

Данный код преобразует дату, переданную в формате, определенном в виде короткой даты в Панели Управления (типа DD/MM/YY) в формат, заданный в строке Format (в нашем примере DDMMYYYY).

Если DD/MM/YY — входное поле, а DDMMYYYY — поле базы данных, то приведенный выше код может сослужить пользователю хорошую службу, если он вдруг захочет использовать другой формат даты, с его соответствующим переопределением в Панели Управления.