Q&A
- 날짜범위를 비교하는방법이 틀린건지 조언부탁드립니다..(참조소스포함)
제가 구현하고자하는 바는 이렇습니다.
시작일 : 년 월 일 시 (2002020607) 지정
종료일 : 년 월 일 시 (2002030511) 지정
년,월,일,시에 관련된 문자열은 콤보박스로 만들어서 각각호출합니다.
위의 시작일과 종료일의 범위를 지정한후 저장하는데..
궁극적인 목적은 시작일과 종료일 범위를 지정하여 범위안의 기간에만 이벤트가 수행되게 하려는것입니다.
또한 지정된범위에서 종료일이 시작일보다 앞선 범위일때 에러메시지를 출력하려고 하였습니다. ('시작일보다 앞선날이 지정되었음')
그런데 저장버튼을 누르면 아래와 같은 에러메시지가 납니다.
'2002020606 is not a vaild date'..Process Stop이란 메시지가 뜹니다.
어디가 문제인지 경험자분들의 조언부탁드립니다..
[소스]
procedure TForm.SaveBtnClick(Sender: TObject);
var
StxDateStr : String;
EtxDateStr : String;
StxDate,EtxDate :TDateTime;
begin
StxDateStr:=Trim(StxYear.Text)+Trim(cbstxMonth.Text)+Trim(cbStxday.Text)+Trim(cbStxHour.Text);
EtxDateStr:=Trim(EtxYear.Text)+Trim(cbEtxMonth.Text)+Trim(cbEtxday.Text)+Trim(cbEtxHour.Text);
StxDate:=StrToDate(StxDateStr); //이부분에서 에러가..
EtxDate:=StrToDate(EtxDateStr);//여기도 마찬가지..
if StrToDate(StxDateStr)<StrToDate(EtxDateStr) then showMessage('종료일이 시작일보다 큽니다..'); //위처럼 비교하는것이 잘못된건 아닌지요..
시작일 : 년 월 일 시 (2002020607) 지정
종료일 : 년 월 일 시 (2002030511) 지정
년,월,일,시에 관련된 문자열은 콤보박스로 만들어서 각각호출합니다.
위의 시작일과 종료일의 범위를 지정한후 저장하는데..
궁극적인 목적은 시작일과 종료일 범위를 지정하여 범위안의 기간에만 이벤트가 수행되게 하려는것입니다.
또한 지정된범위에서 종료일이 시작일보다 앞선 범위일때 에러메시지를 출력하려고 하였습니다. ('시작일보다 앞선날이 지정되었음')
그런데 저장버튼을 누르면 아래와 같은 에러메시지가 납니다.
'2002020606 is not a vaild date'..Process Stop이란 메시지가 뜹니다.
어디가 문제인지 경험자분들의 조언부탁드립니다..
[소스]
procedure TForm.SaveBtnClick(Sender: TObject);
var
StxDateStr : String;
EtxDateStr : String;
StxDate,EtxDate :TDateTime;
begin
StxDateStr:=Trim(StxYear.Text)+Trim(cbstxMonth.Text)+Trim(cbStxday.Text)+Trim(cbStxHour.Text);
EtxDateStr:=Trim(EtxYear.Text)+Trim(cbEtxMonth.Text)+Trim(cbEtxday.Text)+Trim(cbEtxHour.Text);
StxDate:=StrToDate(StxDateStr); //이부분에서 에러가..
EtxDate:=StrToDate(EtxDateStr);//여기도 마찬가지..
if StrToDate(StxDateStr)<StrToDate(EtxDateStr) then showMessage('종료일이 시작일보다 큽니다..'); //위처럼 비교하는것이 잘못된건 아닌지요..
2
COMMENTS
-
-
꼭 날짜형식으로 변환해서 비교할 필요가 있을지요?
그냥 스트링값을 비교해도 원하시는 처리를 할 수 있겠네요 ^^
procedure TForm1.SaveBtnClick(Sender: TObject);
var
StxDateStr : String;
EtxDateStr : String;
begin
StxDateStr:=Trim(StxYear.Text)+Trim(cbstxMonth.Text) +
Trim(cbStxday.Text)+Trim(cbStxHour.Text);
EtxDateStr:=Trim(EtxYear.Text)+Trim(cbEtxMonth.Text) +
Trim(cbEtxday.Text)+Trim(cbEtxHour.Text);
if stxDateStr > EtxDateStr then
ShowMessage('종료일이 시작일보다 큽니다..');
end;
(NOTICE) You must be logged in to comment on this post.
-
- 배경
- 2002.02.08 00:01
- 0 COMMENTS
- /
- 0 LIKES
-
- 황진우
- •
- 2002.02.07 23:51
- 1 COMMENTS
- /
- 0 LIKES
-
임현창•2002.02.08 14:07언뜻 생각하기에 OnCreate(Form), OnChange(DBEdit), OnShow(Form)이어야 할 것 같은데 실제로는 OnCha...
-
- 푸른하늘
- •
- 2002.02.07 20:55
- 1 COMMENTS
- /
- 0 LIKES
-
gudwhrla•2002.02.07 21:06Memo1.Lines.LoadFromFile('C:TEMPTEST.TXT');
-
- 초보임당
- 2002.02.07 20:48
- 0 COMMENTS
- /
- 0 LIKES
-
- * 아자!! *
- •
- 2002.02.07 20:38
- 3 COMMENTS
- /
- 0 LIKES
-
장명선•2002.02.07 22:20제가 보기엔 님 컴퓨터에는 엔진이 설치되어있는거구여, 다른 컴에는 엔진이 없는듯 합니다. 다른곳에서...
-
* 아자!! *•2002.02.08 00:13안녕하세요?.. 우선 답변고맙습니다. 음.. 다른컴에도 엔진이 물론 설치되어있습니다. 나의 소견으로 봤...
-
황선웅•2002.02.08 01:48db가 어떤건지 모르겠는데.... 기냥 파라독스나 dbase쓰신거라면 인스톨쉴드에서 db화일들을 포함시켜 주...
-
-
임현창•2002.02.07 23:22대표적인 마스터/디테일 문제입니다. 델파이책 어느 거를 봐도 약간씩은 설명이 되어있습니다. 이런 경우...
-
김현희•2002.02.08 09:42이것때문에 벌써 몆칠째 고생이네요. 꼭 만들어야 하는건데 --; 아직 아무것도 않했으니... ...
-
장명선•2002.02.07 22:25테이블이 총 3개가 필요하겠네요 첫번째는 음식명 테이블 두번째는 재료명 테이블 세번째는 음식과 재료...
-
황선웅•2002.02.07 20:50저 같으면 이렇게 하겠네요. 1. 음식명 및 그 음식에 관한 설명등이 들어있는 테이블 2. 음식의 재료...
-
김현희•2002.02.07 22:10님. 두개의 테이블을 참조 한다는 것이 무슨 의미인지 잘 모르겠네요 --;; 초보라 ... 그것도 설...
-
황선웅•2002.02.08 01:44참조 한다는건 다른분이 설명한거처럼 Master/Detail의 내용으로 말씀드린거예요. 아마도 delphi책을 한...
-
-
- 유지상
- •
- 2002.02.07 20:26
- 1 COMMENTS
- /
- 0 LIKES
-
장명선•2002.02.07 22:21검색을 하시면 나올겁니다. 그럼 즐코하세요
-
- hong eun young
- 2002.02.07 20:00
- 0 COMMENTS
- /
- 0 LIKES
-
- 박용규
- •
- 2002.02.07 19:44
- 1 COMMENTS
- /
- 0 LIKES
-
권희수•2002.02.07 20:25문제는 이벤트발생 데이터로 보이네여. 코바의 데이터가 스트링이라면 데이타를 사용한 다음에 delete...
-
- 유지상
- 2002.02.07 19:37
- 0 COMMENTS
- /
- 0 LIKES
-
- 서정길
- 2002.02.07 19:30
- 0 COMMENTS
- /
- 0 LIKES
-
-
권희수•2002.02.07 20:28
-
황은주•2002.02.07 21:57
-
권희수•2002.02.08 01:35
-
황은주•2002.02.08 01:56
-
권희수•2002.02.08 20:07
-
-
- 루이
- •
- 2002.02.07 18:54
- 1 COMMENTS
- /
- 0 LIKES
-
머슴•2002.02.07 19:32오라클사에서 배낀 문서 입니다.... http://www.oracle.com/kr/support/web_supports/bulletins/ EXP...
-
- 김병무
- 2002.02.07 10:12
- 0 COMMENTS
- /
- 0 LIKES
-
- 나상엽
- •
- 2002.02.07 08:31
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2002.02.07 18:38안녕하세요. 최용일입니다. 인증이 필요없는 ActiveX라면, 굳이 이렇게 INF파일만들필요가 없겠네요... ...
-
- 푸른하늘
- •
- 2002.02.07 06:56
- 2 COMMENTS
- /
- 0 LIKES
제가 구현하고자하는 바는 이렇습니다. 시작일 : 년 월 일 시 (2002020607) 지정 종료일 : 년 월 일 시 (2002030511) 지정 년,월,일,시에 관련된 문자열은 콤보박스로 만들어서 각각호출합니다. 위의 시작일과 종료일의 범위를 지정한후 ...-
gudwhrla•2002.02.07 10:59procedure TForm.SaveBtnClick(Sender: TObject); var StxDateStr : String; &n...
-
윤종경•2002.02.07 07:12꼭 날짜형식으로 변환해서 비교할 필요가 있을지요? 그냥 스트링값을 비교해도 원하시는 처리를 할 수 있...
-
- 임지현
- •
- 2002.02.07 06:20
- 1 COMMENTS
- /
- 0 LIKES
-
윤종경•2002.02.07 09:28Memo1이 OnChange될때 다음과 같이 해주면 될것 같네여 Memo1 컴퍼넌트를 비활성화 시켜주면 됩니다. 그...
-
- 양용성
- •
- 2002.02.07 05:45
- 1 COMMENTS
- /
- 0 LIKES
-
이병훈•2002.02.07 20:29안녕하세요. 일단 SQLPLUS에서 set serveroutput on 을 하고 declare ...
-
- Delphi Kim
- •
- 2002.02.07 04:51
- 1 COMMENTS
- /
- 0 LIKES
-
이창영•2002.02.07 05:59procedure TForm1.BitBtn1Click(Sender: TObject); var i,j:integer; imsi:string; begin &nb...
-
- 류순보
- •
- 2002.02.07 03:31
- 1 COMMENTS
- /
- 0 LIKES
-
강두헌•2002.02.08 01:01초보의 허접한 답변이니 그냥 참고만 하세요. 이 부분이 문제인거 같은데요. 사용하시는 CommPort라는...
var
StxDateStr : String;
EtxDateStr : String;
StxDate,EtxDate :TDateTime;
begin
StxDateStr:=Trim(StxYear.Text)+'-' +Trim(cbstxMonth.Text)+'-' +Trim(cbStxday.Text)+' ' +Trim(cbStxHour.Text)+':00';
EtxDateStr:=Trim(EtxYear.Text)+'-' +Trim(cbEtxMonth.Text)+'-' +Trim(cbEtxday.Text)+' ' +Trim(cbEtxHour.Text)+':00';
try
StxDate:=StrToDateTime(StxDateStr);
EtxDate:=StrToDateTime(EtxDateStr);
except
showMessage('날짜입력을 잘못 하셨습니다.');
Exit;
end;
if StxDate<EtxDate then showMessage('종료일이 시작일보다 큽니다..');