날짜처리하는 부분인데요 이것이 알고싶습니다.

혹시 함수로 처리가 되는지 궁금해서요 에구 부사수라 정신이 하나도 없습니다.

아시는 님들 짧은글이나마 부탁드립니다.

목숨건 모험입니다. dateadd 함수를 만들어 놓았는데 델파이 함수로는 처리가 않되는지요 에구 아무노력없이 님들의 정보를 훔치는 것 같아 지송합니다.









//날자형식의 문자열을 받아서 1값이면 edit1.text ,count이면 edit2.text

//세번째 값이 1이면 1월 31일 셋팅 2면 12월 31일 셋팅

function Tcivilform.dateadd( y : string ; i : integer; k : integer) : string ;

var

s : string ;

j : integer ;

begin

if (i = 1) and (i <> count) and (k=1) then

begin

dateadd := edit1.text ;

exit ;

end

else if (i=1) and (i<>count) and (k=2) then

begin

s:= copy( y ,1 ,4 ) ;

s:= s+'1231' ;

dateadd := copy(s,1,4)+'-'+copy(s,5,2)+'-'+copy(s,7,2) ;

exit ;

end

else if (i = count) and (i<>1) and (k=2) then

begin

dateadd := edit2.text ;

exit ;

end

else if (i = count) and (i<>1) and (k=1) then

begin

s:= copy( edit2.text ,1 ,4 ) ;

s:= s+'0131' ;

dateadd := copy(s,1,4)+'-'+copy(s,5,2)+'-'+copy(s,7,2) ;

exit ;

end

else if (i=1) and (i=count) and (k = 1) then

begin

dateadd := edit1.text ;

exit ;

end

else if(i=1) and ( i=count) and (k=2) then

begin

dateadd := edit2.text ;

exit ;

end

else if (i<>1) and (i<>count) and (k =1) then

begin

s:= copy( y ,1 ,4 ) ;

j:= strtoint(s) ;

j:= j + 1 ;

s:= inttostr(j) ;

s:= s+'0131' ;

dateadd := copy(s,1,4)+'-'+copy(s,5,2)+'-'+copy(s,7,2) ;

exit ;

end

else if (i<>1) and (i<>count) and (k =2) then

begin

s:= copy( y ,1 ,4 ) ;

s:= s+'1231' ;

dateadd := copy(s,1,4)+'-'+copy(s,5,2)+'-'+copy(s,7,2) ;

exit ;

end ;

end ;