안녕하세요. 최용일입니다.



수없이 답변한 내용인데요. 몇일이 지났는가하는 것을 아는데에는 TTimeStamp를



사용하시는 것이 가장 좋습니다. TTimeStamp는 날짜를 정수형으로 관리를 하니까요.



function TForm1.GetDayCount: Integer;

var

FirstStamp, LastStamp: TTimeStamp;

begin

FirstStamp := DateTimeToTimeStamp(StrToDate('2000-01-01'));



LastStamp := DateTimeToTimeStamp(StrToDate('2000-03-01'));



// Result = 두 날짜 사이의 값 = 60

Result := LastStamp.Date - FirstStamp.Date;

end;



^^ 항상 즐코하세요.



문형록 wrote:

> 안녕하세요 델피언님들...

>

> 지금 전 새해 첫날 1월1일 부터 어떤 특정한 날이 몇일이 지났는지 알고파서 코딩중

>

> 입니다.

>

> 하지만 머리속에서 딱 떠오르는게 없네요!...

>

> 누가 힌트좀 주시겠어요?... 부탁부탁

문형록 wrote:

> 안녕하세요 델피언님들...

>

> 지금 전 새해 첫날 1월1일 부터 어떤 특정한 날이 몇일이 지났는지 알고파서 코딩중

>

> 입니다.

>

> 하지만 머리속에서 딱 떠오르는게 없네요!...

>

> 누가 힌트좀 주시겠어요?... 부탁부탁



function DateGap(aDate,bDate:TDateTime):integer;

begin

result:=DateTimeToTimeStamp(bDate).Date-

DateTimeToTimeStamp(aDate).Date;

end;



ex> DateGap(StrToDate(aDate), StrToDate(bDate))

날짜의 형식은 yyyy-mm-dd형식이 되어야 하기때문에,

날짜를 입력받을때, maskedit를 쓰세요.

문형록 wrote:

> 안녕하세요 델피언님들...

>

> 지금 전 새해 첫날 1월1일 부터 어떤 특정한 날이 몇일이 지났는지 알고파서 코딩중

>

> 입니다.

>

> 하지만 머리속에서 딱 떠오르는게 없네요!...

>

> 누가 힌트좀 주시겠어요?... 부탁부탁



질문을 정확히 이해했는지 모르겠지만

다음과 같이 날짜수를 구할수 있는데요...



SourDT, ObjeDT : TDate;



SourDT := StrToDate('00-01-01');

ObjeDT := StrToDate('05-01-01'); -> 원하는 날짜

Edit1.Text := IntToStr(Trunc(ObjeDT - SourDT));



즐코하세요 ...

문형록 wrote:

> 안녕하세요 델피언님들...

>

> 지금 전 새해 첫날 1월1일 부터 어떤 특정한 날이 몇일이 지났는지 알고파서 코딩중

>

> 입니다.

>

> 하지만 머리속에서 딱 떠오르는게 없네요!...

>

> 누가 힌트좀 주시겠어요?... 부탁부탁



델파이에서의 날자 데이터는 덧셈, 뺄셈 연산이 가능합니다.

즉 특정 기간의 일수를 계산하고자 한다면 날자를

변수에 할당한 후 더하기, 빼기 하듯이 계산만 하시면 됩니다.

물론 상황에 따라서 문자를 날자로, 날자를 문자로 변환하는

함수를 사용해야 합니다.

그럼 이만...

> 지금 전 새해 첫날 1월1일 부터 어떤 특정한 날이 몇일이 지났는지 알고파서 코딩중

> 입니다.

> 하지만 머리속에서 딱 떠오르는게 없네요!...

> 누가 힌트좀 주시겠어요?... 부탁부탁





이창영 wrote:



제가 쓰는 function이니까 되긴 하는데 질문을 잘 파악한건지는 모르겠네요!



//=== 날짜계산 ( start_Date ~ end_Date 사이의 기간 계산 )

function Datenumber(const start_Date, end_Date : string):integer; //날짜계산

var

startdate : TDateTime;

enddate : TDateTime;

numdate : TDateTime;

v_result : string;

r_result : double;

year : integer;

month : integer;

day : integer;

begin

if (start_Date > ' ') and (end_Date > ' ') then

begin

year := strtointdef(copy(start_Date, 1, 4), 0);

month := strtointdef(copy(start_Date, 5, 2), 0);

day := strtointdef(copy(start_Date, 7, 2), 0);

startdate := EncodeDate(year, month, day);



year := strtointdef(copy(end_Date, 1, 4), 0);

month := strtointdef(copy(end_Date, 5, 2), 0);

day := strtointdef(copy(end_Date, 7, 2), 0);

enddate := EncodeDate(year, month, day);



numdate := (enddate - startdate);

r_result := numdate;

v_result := FloatToStr(r_result);

result := StrToIntDef(v_result, 0);

end

else

result := 0;

end;

너무 난해하내요...



좀 해설좀 부탁해요