Q&A

  • julian에 관한 질문입니다.
예를 들어 127을 입력하면

2004년 5월 6일로 출력받고 싶습니다..
1  COMMENTS
  • Profile
    김운필 2004.05.11 20:33
    TDateTime ( Double ) 형을 이용하시고

    정수형은 날짜를 나타내고,
    소숫점이하 값은 시간을 나타냅니다.

    procedure TForm1.Button1Click(Sender: TObject);
    var sDate, iDate : TDateTime;
    begin
       sDate := StrToDate('2004-01-01') - 1;  // 처음 기준일 Setting
        // 숫자 1을 1일을 빼주는 겁니다.  즉 , 2003-12-31 이 기준일 이 되겠지요.

       iDate := sDate + 127;  // 기준일로 부터 더해주면 끝

       ShowMessage(FormatDateTime('yyyy-mm-dd', iDate));
    end;

    너무 쉽지요,  그럼 즐프하세요.