Форум: "Начинающим";
Текущий архив: 2008.06.22;
Скачать: [xml.tar.bz2];

Вниз

Юлианов День   Найти похожие ветки 

← →
may be I am noob... ©   (2008-05-25 10:50) [0]

Здравствуйте!

Как реализовать в Delphi преобразовании даты в Юлианов День (наподобие ф-и StrToTime() в PHP), имея при этом: день, месяц, год, часы, минуты и секунды?

---

← →
may be I am noob... ©   (2008-05-25 10:53) [1]

Т.е. сколько прошло секунд с 01.01.1900г. (для тех кто не знает)

Заранее благодарен.

---

← →
may be I am noob... ©   (2008-05-25 11:21) [2]

Извините, с 01.01.1970 года и время 07:00:00 :)

---

← →
engine ©   (2008-05-25 13:15) [3]

Uses DateUtils;

SecondsBetween - ?

---

← →
may be I am noob... ©   (2008-05-25 14:22) [4]

Большое спасибо! Да-это оно! :)

---

← →
TForumHelp ©   (2008-05-25 14:53) [5]

unit Julian;

interface

uses
 SysUtils, DateUtils;

Function GetJulianDate(Dt: TDateTime): Real; overload;
Function GetJulianDate(D, M, Y, H, I, S: Integer): Real; overload;

implementation

Function GetJulianDate(Dt: TDateTime): Real; overload;
begin
 Result := SecondsBetween(Dt, StrToDateTime("01.01.1970 07:00:00"));
end;

Function GetJulianDate(D, M, Y, H, I, S: Integer): Real; overload;
begin
 Result := GetJulianDate( StrToDateTime( Format("%d.%d.%d %d:%d:%d", [D, M, Y, H, I, S])) );
end;

end.

на

---

← →
Anatoly Podgoretsky ©   (2008-05-25 18:21) [6]

> Т.е. сколько прошло секунд с 01.01.1900г. (для тех кто не
> знает)

Такого никто не знает, откуда ты взял это про Юлиан день, ну не имеет оно отношение к 1900 никакого.

А ответ очень смешной DateTimeToJulianDate

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2008.06.22;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.047 c