Карта сайта Kansoftware
НОВОСТИУСЛУГИРЕШЕНИЯКОНТАКТЫ
Разработка программного обеспечения
KANSoftWare

Как получить дату по Юлианскому календарю?

Delphi , Синтаксис , Дата и Время

Как получить дату по Юлианскому календарю?

Code:
function julian(year, month, day: Integer): real;
var
yr, mth: Integer;
noleap, leap, days, yrs: Real;
begin
if year < 0 then yr := year + 1 else yr := year;
mth := month;
if (month < 3) then
   begin
     mth := mth + 12;
     yr := yr - 1;
   end;
yrs := 365.25 * yr;
if ((yrs < 0) and (frac(yrs) <> 0)) then yrs := int(yrs) - 1 else yrs := int(yrs);
days := int(yrs) + int(30.6001 * (mth + 1)) + day - 723244.0;
if days < -145068.0 then julian := days
else
begin
   yrs := yr / 100.0;
   if ((yrs < 0) and (frac(yrs) <> 0)) then yrs := int(yrs) - 1;
   noleap := int(yrs);
   yrs := noleap / 4.0;
   if ((yrs < 0) and (frac(yrs) <> 0)) then yrs := int(yrs) - 1;
   leap := 2 - noleap + int(yrs);
   julian := days + leap;
end;
end;

Взято с Delphi Knowledge Base: http://www.baltsoft.com/

Статья Как получить дату по Юлианскому календарю? раздела Синтаксис Дата и Время может быть полезна для разработчиков на Delphi и FreePascal.


Комментарии и вопросы


Ваше мнение или вопрос к статье в виде простого текста (Tag <a href=... Disabled). Все комментарии модерируются, модератор оставляет за собой право удалить непонравившейся ему комментарий.

заголовок

e-mail

Ваше имя

Сообщение

Введите код




Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.



:: Главная :: Дата и Время ::


реклама



©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007
Top.Mail.Ru Rambler's Top100
28.03.2024 21:01:16/0.042753934860229/2