경과 시간을 얻고 형식을 지정하는 방법은 무엇입니까?

Question

나는 2 개의 유닉스 타임 스탬프를 LONG INT로 가지고있다. 경과 시간을 얻고 hh로 형식을 지정하려면 끝에서 빼기를 원합니다. mm : ss

어떻게하면됩니까? 감사합니다

Answer 1

는 당신이 년, 월 및 일 수 싶어 경우가와 FormatDateTime 기능이 샘플 또한

uses 
    DateUtils, 
    SysUtils; 

var 
    StartUnixTime : Int64; 
    EndUnixTime : Int64; 

    StartDateTime : TDateTime; 
    EndDateTime : TDateTime; 
begin 
    try 
    StartUnixTime:=1293062827; 
    EndUnixTime :=1293070000; 

    //option 1 converting both unix times to TDatetime and then subtract 
    StartDateTime:=UnixToDateTime(StartUnixTime); 
    EndDateTime :=UnixToDateTime(EndUnixTime);  
    Writeln(Format('Elapsed time %s',[FormatDateTime('hh:nn:ss',EndDateTime-StartDateTime)])); 

    //option 2 subtract directly and then convert to TDatetime 
    Writeln(Format('Elapsed time %s',[FormatDateTime('hh:nn:ss',UnixToDateTime(EndUnixTime-StartUnixTime))])); 

    except 
    on E:Exception do 
     Writeln(E.Classname, ': ', E.Message); 
    end; 
    Readln; 
end. 

을 볼 UnixToDateTime 사용할 수 있습니다, 당신은 사용할 수 YearsBetween, MonthsBetween이 방법으로 DaysBetween 기능 .

Writeln(Format('Years %d Months %d Days %d',[YearsBetween(EndDateTime,StartDateTime),MonthsBetween(EndDateTime,StartDateTime),DaysBetween(EndDateTime,StartDateTime)])); 

Answer 2

UnixTime1 := 123456; 
UnixTime2 := 123460; 

Diff := UnixTime2 - UnixTime1; 
if Diff > 24 * 60 * 60 then 
    raise Exception.CreateFmt('Time difference (%s seconds) is longer than a day.', [Diff]); 
s := Format('%.2d:.%2d:%.2d', [Diff div 60 div 60, (Diff div 60) mod 60, Diff mod 60]); 

Answer 3

이 답변은 내가 찾고 있던 결과를 생성하지 않았다. OvcDate.DateDiff 프로 시저를 사용하여 내가 원하는 결과를 제공하기로 결정했습니다.

procedure TBCSJEmpdm.q1CalcFields(DataSet: TDataSet); 
var 
    das, mos, yrs : Integer; 
begin 
    OvcDate.DateDiff(DateTimeToStDate(DataSet.FieldByName('fromd').AsDateTime), 
    DateTimeToStDate(DataSet.FieldByName('tod').AsDateTime), das, mos, yrs);  
    DataSet.FieldByName('das').AsInteger := das; 
    DataSet.FieldByName('mos').AsInteger := mos; 
    DataSet.FieldByName('yrs').AsInteger := yrs; 
end; 

이 접근법은 두 날짜 사이에 경과 된 년, 월 및 일을 제공합니다. OvcDate에는 ovc.inc 파일이 필요합니다. 이게 필요한지 알려주세요.