초보1 wrote:

>

> 안녕하십니까 ...

> 두개의 maskedit3, maskedit4로 일자를 구하려 하는데 잘안되네요...

> maskedit3는 2000-01-01

> maskedit4는 2000-03-01 입니다. 이때 일자를 60의 값입니다.

> 아래 처럼하니 error가 나네요....

>

> var

> n1,n2 : tdate;

> n3 : integer;

> begin

> n1 := StrTodate(maskedit3.text);

> n2 := StrTodate(maskedit4.text);

> n3 := Trunc(n2-n1);

> showmessage(inttostr(n3));

>

>

저렇게 간단히도 되나요? 이건, 걍..



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

begin

result:=DateTimeToTimeStamp(bDate).Date-DateTimeToTimeStamp(aDate);

end;



frmInput.btnCalcClick(Sender:TObject);

var

iGapDays:integer;

bbDate, aaDate:string;

begin

bbDate:=mskEdit4.Text;

aaDate:=mskEdit3.Text;

iGapDays:=GetGapDays(StrToDateTime(bbDate),StrToDateTime(aaDate));

ShowMessage(IntToStr(iGapDays));

end;

그렇게 하니 error가

''20000301' is not a valid date and time' 라고 하네요.

초보1 wrote:

>

> 그렇게 하니 error가

> ''20000301' is not a valid date and time' 라고 하네요.

>

>



날짜의 양식이 잘못 되면, StrToDate()에서 error메세지를 냅니다.

없는 날짜를 입력한다던지, 날짜의 양식이 잘못되면 말이죠.

20000301이라고 나왔다는 것은 전혀 editmask가 지정되어 있지 않은 상태를

말해주는 것입니다. maskedit의 text는 editmask와 텍스트를 그대로 출력하니까요.

예를들어, editMask속성에 !9999-99-99라고 되어있으면, editMask.text는

1998-09-01이런 식이죠. 혹시, editmask를 해제하는 코드를 쓰신건지?

edit에서나, maskedit에서나, 날짜의 차를 구하기 위해서는 날짜의 양식을

1998-08-01형식이나, 98-09-01형식으로 입력해주어야 합니다.

님의 코드에서, editMask.text가 어떤식으로 되어 있는지 부터 알아야 문제를

해결할수 있을것 같습니다. 미리, editmask.text를 올려주셨으면 좋았을텐데요.

만약 editmask.text의 내용이 20000301이라면, 2000-03-01형식으로 고쳐주어야

합니다. 다음을 참고하세요.

//-------------------------------------------------------------------------

Function GetGapDays(bbDate,aaDate:TDateTime):integer;

begin

result:=DateTimeToTimeStamp(bDate).Date-DateTimeToTimeStamp(aDate).Date;

end;



Procedure Form1.Button1Click(Sender:TObject);

var

aYear, aMonth, aDay, aDate:string;

bYear, bMonth, bDay, bDate:string;

sbDate, saDate:TDateTime;

iGapDays:integer;

begin

aDate:=maskedit1.text; //20000301(aDate)

bDate:=maskedit2.text; //20000411(bDate)

//----10001010형식을--"1000-10-10"형식으로변환----------------

aYear:=copy(aDate,1,4); //2000

aMonth:=copy(aDate,5,2); //03

aDay:=copy(aDate,7,2); //01

aDate:=aYear+'-'+aMonth+'-'aDay; //2000-03-01

bYear:=copy(bDate,1,4); //2000

bMonth:=copy(bDate,5,2); //04

bDay:=copy(bDate,7,2); //01

bDate:=bYear+'-'+bMonth+'-'bDay; //2000-04-11

//-------------예외처리(시작)----------------------------------

try

saDate:=StrToDateTime(aDate)

except begin

Application.MessageBox('유효하지 못한 날짜를 입력하셨습니다'

,'첫번째날짜입력란', mb_ok);

exit; end;



try

sbDate:=StrToDateTime(bDate)

except begin

Application.MessageBox('유효하지 못한 날짜를 입력하셨습니다'

,'두번째날짜입력란', mb_ok);

exit; end;

//-------------예외처리(끝)-----------------------------------

iGapDays:=GetGapDays(sbDate,saDate);

ShowMessage(IntToStr(iGapDays));

end;

초보1 wrote:

>

> 안녕하십니까 ...

> 두개의 maskedit3, maskedit4로 일자를 구하려 하는데 잘안되네요...

> maskedit3는 2000-01-01

> maskedit4는 2000-03-01 입니다. 이때 일자를 60의 값입니다.

> 아래 처럼하니 error가 나네요....



아래 처럼 해보니 error이 안생기더군요!(히~!)



>

> var

> n1,n2 : tdate;

> n3 : integer;

> begin

> n1 := StrTodate(maskedit3.text);

> n2 := StrTodate(maskedit4.text);

> n3 := Trunc(n2-n1);

> showmessage(inttostr(n3));

>

>

혹시

maskedit에서... 속성중 editmask의 값을 잘못 넣은 것은 아닌지?

!9999/99/00;1;_ 저는 이렇게 넣었는데...

이상하군요! 나는 되는데..... 어디에서 에러가 생기는 겁니까?

EditMask의 값를

####-##-##;0; 에서 !9999/99/00;1;_ 로 변경하여 실행하니



그렇게 하니 error가

''2000-01-01' is not a valid date' 라고 하네요.