이순희 wrote:

> 안녕하세요...

> 테이블에 시작시간과 끝시간에 대한 두개의 필드가 있습니다.

> 두개의 필드에 대해 (끝시간-시작시간)의 값을 계산하고 싶습니다.

> 즉, 시간간격을 계산하고 싶습니다.

> 참고로 시작시간과 끝시간에 대한 데이터 type은 Time으로 두었습니다.

> 답변 부탁드립니다..

>



안녕하세요, 미숙한 놈입니다.^^'

델파이 헬퍼에서 답변한 것을 다시 적습니다.

저도 초보자이지만 제가 아는 한도내에서

답변을 해드리겠습니다.

많은 도움이 된다면 참 좋겠어요..



음, 계산필드란 말을 들어보셨는지요.

계산필드를 사용하면 해결이 될것 같군요.



방법은,

첫번째로

TTable(혹은 TQuery) 컴포넌트를 더블 클릭하면 필드 편집기가 보일 겁니다.

보인다면, 필드 편집기에서 오른쪽 마우스 버튼을 클릭하세요.

그럼, 팝업메뉴가 나타면서 Add Fields와 New Field란 메뉴가 보일 겁니다.

그럼 New Field를 선택하고 나온 폼에서

Name , Type(여기에서는 Time을 선택하면 되겠죠?)와 Size를 입력한후

Field Type을 Calcurated로 선택합니다.

그런 후, OK버튼을 누르시면 추가된 계산필드가 필드 편집기에 나타나죠?



자, 그럼 두번째로

두개의 필드값을 계산해서 이 계산 필드에 값을 넣도록 하면 됩니다.

그러기 위해서는 OnCalcFields이벤트를 편집하면 됩니다.



OnCalcFields이벤트는 TTable(or TQuery)컴포넌트의 이벤트에서 찾을 수

있으며,

코드를 살짝 함 보시도록 하죠.



//테이블 컴포넌트의 이름이 UseTime이라 해보죠.

//계산필드는 calcTime이라 하고요.



procedure TForm1.UseTimeCalcFields(DataSet: TDataset);

var

startTime : TDateTime;

lastTime : TDateTime;

resultTime : TDateTime;

begin

startTime := UseTime.FieldByName('startTime').AsDateTime;

lastTime := UseTime.FieldByName('lastTime').AsDateTime;

resultTime := lastTime - startTime;



UseTime.FieldByName('calcTime').AsDateTime :=

resultTime;

end;



맞는지 모르겠군요.

직접해보시고 안되면 다시 연락주세요..



그럼, 좋은 하루 되세요.

^^

이순희 wrote:

> 안녕하세요...

> 테이블에 시작시간과 끝시간에 대한 두개의 필드가 있습니다.

> 두개의 필드에 대해 (끝시간-시작시간)의 값을 계산하고 싶습니다.

> 즉, 시간간격을 계산하고 싶습니다.

> 참고로 시작시간과 끝시간에 대한 데이터 type은 Time으로 두었습니다.

> 답변 부탁드립니다..

>



필드타입을 Date나 DateTime으로 바꾸시는 것이 좋아요.

그래서 올바른 계산을 하실 수 있습니다.

다음과 같은 함수를 사용해보셔요.





Unit

SysUtils

선언부

////////////////////////////////////////////////////////////////////////////////

function CalcTimeToSec( FromTime, ToTime: TDateTime ) : String;

function CalcDateTimeToSec( FromTime, ToTime: TDateTime ) : LongInt;

구현부

////////////////////////////////////////////////////////////////////////////////

function CalcTimeToSec( FromTime, ToTime: TDateTime ) : String;

begin

Result := FormatDateTime( 'hh:nn:ss', ( ToTime - FromTime ) );

end;



////////////////////////////////////////////////////////////////////////////////

function CalcDateTimeToSec( FromTime, ToTime: TDateTime ) : LongInt;

var

FromTimeStamp, ToTimeStamp : TTimeStamp;

begin

FromTimeStamp := DateTimeToTimeStamp( FromTime );

ToTimeStamp := DateTimeToTimeStamp( ToTime );



Result := (ToTimeStamp.Date - FromTimeStamp.Date) * 24 * 60 * 60 + ( ( ToTimeStamp.Time div 1000 ) - ( FromTimeStamp.Time div 1000 ) );

end;



////////////////////////////////////////////////////////////////////////////////