function TForm1.CalcElapsedDay(const date1,date2:TDatetime):integer;
var
ElapsedDay:string;
tmpDay:word;
begin
result:=0;
try
ElapsedDay:=FloatToStr(dateTimeToJulianDate(date2)-dateTimeToJulianDate(date1));
//일자에 따라 소숫점이 반환될수도 있기때문에(날짜계사니에는 필요가 없습니다.) 잘라버립니다.
//굳이 이런절차를 거친것은 형변환이 귀찮아서 스트링으로 바꾸고 다시 인티저로 바꾸어 버렸습니다.
//Float->integer 바꾸는 간단한 방법이 있으면 알려주십시오.
if pos('.',ElapsedDay)<>0 then
ElapsedDay:=copy(ElapsedDay,1,pos('.',ElapsedDay)-1);
result:=StrToInt(ElapsedDay)+1;
except
messageDlg('일자변환중 에러!'+#13+'전산실에 문의하십시오.',mtError,[mbOk],0);
end;
end;
다음과 같습니다.
function TForm1.CalcElapsedDay(const date1,date2:TDatetime):integer;
var
ElapsedDay:string;
tmpDay:word;
begin
result:=0;
try
ElapsedDay:=FloatToStr(dateTimeToJulianDate(date2)-dateTimeToJulianDate(date1));
//일자에 따라 소숫점이 반환될수도 있기때문에(날짜계사니에는 필요가 없습니다.) 잘라버립니다.
//굳이 이런절차를 거친것은 형변환이 귀찮아서 스트링으로 바꾸고 다시 인티저로 바꾸어 버렸습니다.
//Float->integer 바꾸는 간단한 방법이 있으면 알려주십시오.
if pos('.',ElapsedDay)<>0 then
ElapsedDay:=copy(ElapsedDay,1,pos('.',ElapsedDay)-1);
result:=StrToInt(ElapsedDay)+1;
except
messageDlg('일자변환중 에러!'+#13+'전산실에 문의하십시오.',mtError,[mbOk],0);
end;
end;