박성훈 wrote:

> 2000-02-02 02:50:00과 2000-03-03 14:10:00의 차이를 구한다음 이것을 시간으로 표시하고 싶은데요. 바로 빼니까 1900-XX 이런 식으로 나오는군요.

> 날짜따로 시간따로 계산해 주어야 하는지, 한방에 계산하는 방법이 있는지요?



음...^^

RxLibrary 안에 시간계산을 해주는 게 있을겁니다... 그걸 쓰시면 좋겠군여..

코드도 아주 깔끔하구.. 아님 Rx 라이브러리는 무료고, 소스까지 제공하니까 필요한 소스부분만 빼내 써두 되구여...

TimeStamp를 이용하시면 간단히 구하실 수 있습니다.



var

Time1, Time2, pTime: TTimeStamp;

begin

Time1 := DateTimeToTimeStamp(StrToDateTime('2000-02-02 02:50:00'));

Time2 := DateTimeToTimeStamp(StrToDateTime('2000-02-03 02:49:59'));

pTime.Time := Time2.Time - Time1.Time;

pTime.Date := Time2.Date - Time1.Date;

if pTime.Time < 0 then

begin

Dec(pTime.Date);

pTime.Time := MSecsPerDay + pTime.Time;

end;

Result := pTime.Date * MSecsPerDay + pTime.Time

end;

결과값은 밀리세컨드(mSec)형태로 반환됩니다.



박성훈 wrote:

> 2000-02-02 02:50:00과 2000-03-03 14:10:00의 차이를 구한다음 이것을 시간으로 표시하고 싶은데요. 바로 빼니까 1900-XX 이런 식으로 나오는군요.

> 날짜따로 시간따로 계산해 주어야 하는지, 한방에 계산하는 방법이 있는지요?

박성훈 wrote:

> 2000-02-02 02:50:00과 2000-03-03 14:10:00의 차이를 구한다음 이것을 시간으로 표시하고 싶은데요. 바로 빼니까 1900-XX 이런 식으로 나오는군요.

> 날짜따로 시간따로 계산해 주어야 하는지, 한방에 계산하는 방법이 있는지요?



궁여지책 끝에 함수를 하나 만들었는데 좀 엉성하군요.



function BetweenDaysToTimeStr(D1,D2:TDateTime):String;

var

RD,RT:TDateTime;

yy,mm,dd,hh,mi,ss,ms:word;

begin

DecodeDate(D1-D2,yy,mm,dd);

DecodeTime(D1-D2,hh,mi,ss,ms);

RD:=EncodeDate(yy,mm,dd);

RT:=EncodeTime(hh,mi,ss,ms);

dd:= Trunc(D1,D2);

if FormatDateTime('hh:mm:ss',D1)>FormatDateTime('hh:mm:ss',D2) then

dd:= dd-1;

hh:= (dd*24)+hh;

Result:= Format('%2.2d',[hh])+'시간'+Format('%2.2d',[mi])+'분'+Format('%2.2d',[ss])+'초';

end;