송재환님 안녕하세요?

하루는 24시간이니 날짜연산을 하세요.

아래는 김영대님이 올리신 날짜연산 예제입니다.

날짜연산 예제

출처 : 김영대님

(yyyy-4) + (mm+254) + (dd+1234) = 며칠?

function DateSer(y, m, d: Integer): TDateTime;

const

mj: array[1..12] of Integer=(31,28,31,30,31,30,31,31,30,31,30,31);

var

add: Integer;

begin

While (true) do

begin

y := y + (m-1) div 12;

m := (m-1) mod 12 +1;



if m <= 0 then

begin

Inc(m, 12);

Dec(y);

end;



if ((y mod 4 = 0) and

((y mod 100 <> 0) or (y mod 400 = 0))) and

(m = 2)

then

add:=1 //add one day in February

else

add:=0;



if (d > 0) and (d <= (mj[m] + add)) then

break;

if d > 0 then

begin

Dec(d, mj[m]+add);

Inc(m);

end

else

begin

Inc(d, mj[m]+add);

Dec(m);

end;

end;

Result := EncodeDate(y, m, d);

end;





// 사용예제

DecodeDate(Date, y, m, d);

NewDate := DateSer(y-4, m+254, d+1234);





시간연산은 아래 플로트 연산을 보시고 응용하세요.



var

SHour, SMin, SSec, SMSec : Word;

EHour, EMin, ESec, EMSec : Word;

STime, ETime, result_time : Single;

begin

DecodeTime( 시작시간, SHour, SMin, SSec, SMSec );

STime := (SHour*60) + SMin + (SSec / 60 ) + (SMSec / 6000 );

...

DecodeTime( 정지시간, EHour, EMin, ESec, EMSec );



ETime := (EHour*60) + EMin + (ESec / 60 ) + (EMSec / 6000 );

result_time := ETime - STime;

end;



그럼.. 즐거운 프로그래밍 되시길...