Delphi Julian 날짜 정상 날짜

Question

줄리안 날짜 값을 보통 날짜로 변환하고 싶습니다. 아무도 나를 도울 수 있습니까? JulianDateToDateTime (somedouble 값)을 시도했지만 예외가 발생했습니다. 그렇다면 ModifiedJulianDateToDateTime (이중 값)을 시도했지만 날짜를 게시했지만 총합이 잘못되었습니다. 예를 들어 내 줄리안 값은 226입니다. 8 월 14 일에 표시되어야한다고 나와 있습니다. 그러나 나는 couldig itig 그것을 델파이로 변환한다. 감사합니다.

Answer 1

이 "율리우스 날짜"정말 "줄리안 날"(. 즉, 특정 연도에 일의 수, 일명 서수 날짜), 당신은 다음을 사용할 수있는 경우

이

uses DateUtils; 

FUNCTION JulianDay(Year,Day : Cardinal) : TDate; 
    BEGIN 
    Result:=IncDay(EncodeDate(Year,1,1),PRED(Day)) 
    END; 

이 JULIANDAY 당신은 운이 더있을 수 있습니다 (2014,226)

Answer 2

System.DateUtils.JulianDateToDateTime은 율리우스 날짜를 TDateTime 값으로 변환합니다. 문서에서

:

율리우스 날짜, 분수 일을 포함하여 일 수있다 4713부터 BC 년 1 월 1 일 그리니치 정오.

그리고 System.DateUtils.ModifiedJulianDateToDateTime을 위해 :

수정 된 율리우스 날짜는 1858 수정 율리우스 날짜 율리우스 날짜를 기반으로하지만, 조정 11 월 17 일에 그리니치 자정 이후, 분수 일을 포함하여 일 수있다 점심 시간 대신 정오보다 한밤중을 사용하고 최근 날짜를 시작점으로 사용합니다.

따라서 시작점 중 하나를 기준으로 줄리안 날짜를 입력해야합니다. DateTimeToJulianDate/DateTimeToModifiedJulianDate :

---

당신은 올바른 율리우스 날짜를 얻기 위해 역 기능을 사용할 수 있습니다. 당신이 가지고있는 날짜 (때로는 기상 데이터 로깅 시스템에 율리우스 일이라고도 함) 특정 연도의 일 번호가 같은 의견에

---

는 것 같다.

그런 다음이를 사용

이

myDT := EncodeDate(2014,1,1) + yourJulianDay - 1; // If the year is 2014