이상학 wrote:

> 시간에서...시간에서 시간을 빼는 방법은 알겠는데...

> 예를 들면 10:00 - 09:59 일때의 값이 1인 것을 체크하면 되는 형태입니다.

> 먼저 특정시간을 기록하고 그 다음 시간이 체크될때 의 시간의 차가 1인지를 체크하는 것이

> 목적입니다.

>

> 시간문제는 역시 힘드네요 ㅠ_ㅠ;



<1>

function gettime(btime,atime:String):boolean;

var

aatime, bbtime:TDateTime;

hour1,min1,sec1,msec1:word;

hour2,min2,sec2,msec2:word;

ah,am,bh,bm, tmp1, tmp2, res:word;

begin

aatime:=StrToDateTime(atime);

bbtime:=StrToDatetime(btime);



DecodeTime(bbTime,hour2,min2,sec2,msec2);

DecodeTime(aaTime,hour1,min1,sec1,msec1);



//bm:=hour2*60+min2;

//am:=hour1*60+min1;



//tmp2:=trunc(bm/60);

//tmp1:=trunc(am/60);



res:=hour2-hour1;



if IntToStr(res)='1' then result:=true

else result:=false;

end;



<2>

procedure TForm1.FormCreate(Sender: TObject);

begin

longTimeFormat:='hh:mm';

end;



function gettime2(nTime,mTime:string):boolean;

var

tmp:TDateTime;

begin

tmp:=StrToDateTime('nTime')-StrToDateTime('mTime');



if FormatDateTime('hh',tmp)='01' then result:=true else result:=false;

end;

이상학 wrote:

> 시간에서...시간에서 시간을 빼는 방법은 알겠는데...

> 예를 들면 10:00 - 09:59 일때의 값이 1인 것을 체크하면 되는 형태입니다.

> 먼저 특정시간을 기록하고 그 다음 시간이 체크될때 의 시간의 차가 1인지를 체크하는 것이

> 목적입니다.

>

> 시간문제는 역시 힘드네요 ㅠ_ㅠ;



procedure TForm1.Button1Click(Sender: TObject);

var

Hour, Min, Sec, MSec: Word;

s : TTime;

begin

s := strtotime('10:00:00') - strtotime('09:59:00');

DecodeTime(s, Hour, Min, Sec, MSec);



showmessage('몇분이 지났냐면.....' +#13+inttostr(min)+'분이 지났군!');



end;



행복하셔요! 규춘올림....