안녕하세요~



저도 한번 헬프에 나와있는 예제를 따라서 해봤는데 문제가 없던걸여..흠냐..

헬프예제를 datetimepicker에 맞게 수정했음다..

아래루틴을 테스트해보세여.. 연,월이 맞게 나오는지..



빈폼하나에 라벨2개, 버튼1 입니다..





This example uses a button and two labels on a form. When the user clicks the button, the current date and time are reported in the captions of the two labels.



procedure TForm1.Button1Click(Sender: TObject);



var

Present: TDateTime;

Year, Month, Day, Hour, Min, Sec, MSec: Word;

begin

Present:= datetimepicker1.dateTime;

DecodeDate(Present, Year, Month, Day);

Label1.Caption := 'Today is Day ' + IntToStr(Day) + ' of Month '

+ IntToStr(Month) + ' of Year ' + IntToStr(Year);

DecodeTime(Present, Hour, Min, Sec, MSec);

Label2.Caption := 'The time is Minute ' + IntToStr(Min) + ' of Hour '

+ IntToStr(Hour);

end;









사발우성 wrote:

>

>

> 아래의 소스를 보심 알것지만 datetimepicker1.date를 decodedate를 사용해서 yy와 mm 으로 나눌려구 했슴당 ㅠㅠ 그러나 실패군여 ㅠㅠ 구창민님께서 갈켜주신건디.. 지가 응용을 잘못했나보내여 ㅠㅠ 어떻게 해야하쥐 헐.. 아시는 님께서 망설이쥐 마시고

> 바로바로 갈켜주심 이초보 감솨 하겠습니당.....

>

> 그럼 이만 휙~~!!

>

> ※ 피에수: 데이터 값이 넘넘 이상하게 나옴당...yy필드에 들어가야 할값이 지 예상으론

> 2000 mm의 값은 10 이렇게 들어갈꼬라구 생각했는디.. yy는 05-06-22 mm은00-01-01 이렇게 들어가네여 ㅠㅠ 에고 에고 datetimepicker1 값은 2000-01-01인디 ㅠㅠ 울고푸당 엉엉~

> var

>

> yy,mm,dd:word;

>

> begin

>

> decodedate(datetimepicker1.Date, yy, mm, dd);

>

> with bud_qry do

> begin

> close;

> sql.Clear;

> sql.add('insert into 구매예산(계정코드,부서코드,해당월예산,class,yy,mm)values('''+label3.Caption+''',:dept,'''+edit1.text+''','''+combobox2.text+''',:yy,:mm)');

> parambyname('dept').Asstring:=dept;

> parambyname('yy').AsDate:=yy;

> parambyname('mm').AsDate:=mm;

> execsql;

> end;

>

복기님 답변감솨 함당...^^



어제 간단하게 처리(?)했습니다... 그러니까 변수 yy와 mm의 값은 2000,과 01이렇게 들어가 있더군여 ㅠㅠ yy,mm은 word 형임당... 그래서리 ㅠㅠ 필드타입을 바꾸고 스트링형으로 집어넣었습니당 흑흑 데이터형을 스트링형으로 집어넣는넘은 저밖에 없을것 같군여 ㅠㅠ



그럼 존하루 돼시길.....



조복기 wrote:

>

> 안녕하세요~

>

> 저도 한번 헬프에 나와있는 예제를 따라서 해봤는데 문제가 없던걸여..흠냐..

> 헬프예제를 datetimepicker에 맞게 수정했음다..

> 아래루틴을 테스트해보세여.. 연,월이 맞게 나오는지..

>

> 빈폼하나에 라벨2개, 버튼1 입니다..

>

>

> This example uses a button and two labels on a form. When the user clicks the button, the current date and time are reported in the captions of the two labels.

>

> procedure TForm1.Button1Click(Sender: TObject);

>

> var

> Present: TDateTime;

> Year, Month, Day, Hour, Min, Sec, MSec: Word;

> begin

> Present:= datetimepicker1.dateTime;

> DecodeDate(Present, Year, Month, Day);

> Label1.Caption := 'Today is Day ' + IntToStr(Day) + ' of Month '

> + IntToStr(Month) + ' of Year ' + IntToStr(Year);

> DecodeTime(Present, Hour, Min, Sec, MSec);

> Label2.Caption := 'The time is Minute ' + IntToStr(Min) + ' of Hour '

> + IntToStr(Hour);

> end;

>

>

>

>

> 사발우성 wrote:

> >

> >

> > 아래의 소스를 보심 알것지만 datetimepicker1.date를 decodedate를 사용해서 yy와 mm 으로 나눌려구 했슴당 ㅠㅠ 그러나 실패군여 ㅠㅠ 구창민님께서 갈켜주신건디.. 지가 응용을 잘못했나보내여 ㅠㅠ 어떻게 해야하쥐 헐.. 아시는 님께서 망설이쥐 마시고

> > 바로바로 갈켜주심 이초보 감솨 하겠습니당.....

> >

> > 그럼 이만 휙~~!!

> >

> > ※ 피에수: 데이터 값이 넘넘 이상하게 나옴당...yy필드에 들어가야 할값이 지 예상으론

> > 2000 mm의 값은 10 이렇게 들어갈꼬라구 생각했는디.. yy는 05-06-22 mm은00-01-01 이렇게 들어가네여 ㅠㅠ 에고 에고 datetimepicker1 값은 2000-01-01인디 ㅠㅠ 울고푸당 엉엉~

> > var

> >

> > yy,mm,dd:word;

> >

> > begin

> >

> > decodedate(datetimepicker1.Date, yy, mm, dd);

> >

> > with bud_qry do

> > begin

> > close;

> > sql.Clear;

> > sql.add('insert into 구매예산(계정코드,부서코드,해당월예산,class,yy,mm)values('''+label3.Caption+''',:dept,'''+edit1.text+''','''+combobox2.text+''',:yy,:mm)');

> > parambyname('dept').Asstring:=dept;

> > parambyname('yy').AsDate:=yy;

> > parambyname('mm').AsDate:=mm;

> > execsql;

> > end;

> >