Q&A
- 날짜계산
안녕하세여 고수님들..
이것좀 함 봐주세여? ㅠ.ㅠ
기간( ex) 3개월 )과 시작일날짜( ex) 2002-10-11 )를 입력한 다음
엔터를 치면 자동적으로 날짜를 계산해서(3개월 + 2002-10-11) 종료일 날짜(2003-01-10)를
찍어주는 루틴입니다.
여기서 그리드에다 찍어주는데 1달 단위로 찍어줍니다.
첫번째 ROW : 2002-10-11 ~ 2002-11-10
두번째 ROW : 2002-11-11 ~ 2002-12-10
세번째 ROW : 2002-12-11 ~ 2003-01-10
이렇게 찍어주는 루틴입니다.
제발 고수님의 조언이 필요 합니다.. 그럼 수고하세여 /////
이것좀 함 봐주세여? ㅠ.ㅠ
기간( ex) 3개월 )과 시작일날짜( ex) 2002-10-11 )를 입력한 다음
엔터를 치면 자동적으로 날짜를 계산해서(3개월 + 2002-10-11) 종료일 날짜(2003-01-10)를
찍어주는 루틴입니다.
여기서 그리드에다 찍어주는데 1달 단위로 찍어줍니다.
첫번째 ROW : 2002-10-11 ~ 2002-11-10
두번째 ROW : 2002-11-11 ~ 2002-12-10
세번째 ROW : 2002-12-11 ~ 2003-01-10
이렇게 찍어주는 루틴입니다.
제발 고수님의 조언이 필요 합니다.. 그럼 수고하세여 /////
3
COMMENTS
-
-
델파이의 날짜형은 수치이지요.
즉 연산이 가능합니다.
날짜연산에 대한 팁을 참조하시면 금방 해결되실거 같네여.
지금 바로 팁 게시판으로 달려가셔서 "날짜" 라고 입력하시고 검색해보세여.
좋은 결과가 있을겁니다.
그럼~ 항상 즐거운 프로그래밍 하시길~~
-
var
a,b : Tdate;
c : integer;
begin
a := strToDatetime('2002/11/01');
b:= strToDatetime('2002/12/03');
c := trunc(b-a);
label1.caption := inttostr(c);
end;
한번 해보세요..
그럼 수고...
(NOTICE) You must be logged in to comment on this post.
-
- 이현경
- •
- 2002.12.17 23:11
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2002.12.18 00:04안녕하세요. 최용일입니다. 두개의 데이터 형을 비교해보시면 되겠죠... 엑셀의 값은 Variant형으로 TVa...
-
- 도니
- •
- 2002.12.17 22:46
- 4 COMMENTS
- /
- 0 LIKES
-
빙구•2002.12.18 01:20인디를 예전에 좀써보다가 요즘은 잘 안써서 기억이 잘안나지만 데이타가 다 올때까지 기다리던가?..가물...
-
최용일•2002.12.17 23:38안녕하세요. 최용일입니다. ReadString을 쓰시지 마시고 ReadLn을 쓰세요. 보낼때는 WriteLn을 쓰시구요...
-
도니•2002.12.18 00:51매번 답변에 감사드리면서.. 질문하나 또 하겠습니다.>^^;; OnExecute 는 클라이언트에서 접속을 하면...
-
최용일•2002.12.18 07:43안녕하세요. 최용일입니다. 무한으로 계속해서 도는것은 님께서 루프문을 사용하셔서 그러는것 같구요.....
-
- 최용석
- •
- 2002.12.17 21:16
- 3 COMMENTS
- /
- 0 LIKES
안녕하세여 고수님들.. 이것좀 함 봐주세여? ㅠ.ㅠ 기간( ex) 3개월 )과 시작일날짜( ex) 2002-10-11 )를 입력한 다음 엔터를 치면 자동적으로 날짜를 계산해서(3개월 + 2002-10-11) 종료일 날짜(2003-01-10)를 찍어주는 루틴입니다. 여기...-
KDDG_hyun•2002.12.17 22:41자게 보구선 찔려서 수정 합니다.. 기간을 받는다고 햇으니 기간을 for 문으로 돌리고요.. for i := ...
-
구창민•2002.12.17 21:45델파이의 날짜형은 수치이지요. 즉 연산이 가능합니다. 날짜연산에 대한 팁을 참조하시면 금방 해결...
-
델파이탐크루즈•2002.12.17 22:36var a,b : Tdate; c : integer; begin a := strToDatetime('2002...
-
- 나옹이
- •
- 2002.12.17 21:13
- 1 COMMENTS
- /
- 0 LIKES
-
나옹이•2002.12.18 01:55지금... ocx/servers/msppt8.pas 뜯어보고 있는뎅... 쇼보기에 관한건....찾아도 아뉘 보이니.... ...
-
- shem
- •
- 2002.12.17 21:11
- 1 COMMENTS
- /
- 0 LIKES
-
구창민•2002.12.17 21:49원격의 컴에 네트웍 드라이브를 잡는다는 말씀이 그 컴에 공유된 디렉토리를 자신의 컴에서 네트웍 드라...
-
- shem
- •
- 2002.12.17 20:33
- 1 COMMENTS
- /
- 0 LIKES
-
유종근•2002.12.17 21:14db에 파일의 경로와 파일이름을 저장해놓은 후 Client에서 불러보면 될텐데여 그렇게 어렵진 않겠네여..
-
- 이대희
- •
- 2002.12.17 20:20
- 2 COMMENTS
- /
- 0 LIKES
-
열심히•2002.12.17 23:05DBGrid1.Columns[0].FieldName := qr_sel.Field('BUREAU_CODE').AsString; 위문장에서 TQuery에 Field...
-
최은석•2002.12.17 22:24다음처럼 해보시지요... 디비그리드,데이타소스,쿼리 컴포넌트를 하나씩 배치... 데이타소스의 dataset...
-
- ☆영민★
- •
- 2002.12.17 19:20
- 3 COMMENTS
- /
- 0 LIKES
-
열심히•2002.12.18 01:12덧붙이자면 아래의 inherited문이없다면 try문중에 에러가 발생한다면 상위 루틴을 타지 않게되는데요....
-
구창민•2002.12.17 21:58안녕하세요~ 구창민입니다. except 는 에러가 날 시에만 타게 되는 반면, finally 구문은 에러가 발...
-
델파이탐크루즈•2002.12.17 19:30try ~ finally의 문법은 책을 보심이 더 좋을듯 하네여... 그리고 try ~ finally 안에있는건 Reg.Free ...
-
- 조일영
- 2002.12.17 19:03
- 0 COMMENTS
- /
- 0 LIKES
-
- 다롱이
- 2002.12.17 18:18
- •
- 0 COMMENTS
- /
- 0 LIKES
-
- 우소
- •
- 2002.12.17 12:48
- 2 COMMENTS
- /
- 0 LIKES
-
구창민•2002.12.17 23:58http://www.delphi.pe.kr <-- 이곳에 가셔서 팁/강좌란에서 "서비스" 란 단어로 검색해보...
-
우소•2002.12.18 19:01마른 하늘에 단비가 온것 같네여. 정말 감사 합니다...
-
- 김성복
- 2002.12.17 07:14
- 0 COMMENTS
- /
- 0 LIKES
-
- 정혁
- 2002.12.17 07:12
- 0 COMMENTS
- /
- 0 LIKES
-
- 석
- •
- 2002.12.17 07:07
- 2 COMMENTS
- /
- 0 LIKES
-
타락천사•2002.12.17 20:23
-
석•2002.12.17 19:02TBitmap.SaveToFile 은 깨지지만, Bitmap을 Jpeg로 Assign해서 TJpegImage.SaveToFile을 사용하여 저장하...
-
-
오승호•2002.12.17 18:06제가 실행해봤는데 잘 되는군요 핼프에 보면 실행 리턴값이 32이하일때는 에러라고 했습니다. 42라면 정...
-
백재원•2002.12.17 19:57답변 고맙습니다. 제가 디버깅 상태에서 했기 때문입니다. 만들어진 exe파일에서 돌려 보니 잘돌아 가더군...
-
-
- 최두승
- •
- 2002.12.17 04:59
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2002.12.17 08:43안녕하세요. 최용일입니다. StrToInt에는 숫자로 된 문자열이 와야 하는데... '1,000'같은 문자열이 오...
-
- 임장현
- •
- 2002.12.17 04:15
- 1 COMMENTS
- /
- 0 LIKES
-
이중철•2002.12.17 04:39전 스레드를 썼어요.. if ((mouse.CursorPos.X > left) And (mouse.CursorPos.X < (l...
-
- 초보임당
- 2002.12.17 03:41
- 0 COMMENTS
- /
- 0 LIKES
-
- 이추형
- •
- 2002.12.17 03:38
- 2 COMMENTS
- /
- 0 LIKES
-
최용일•2002.12.17 05:03안녕하세요. 최용일입니다. BDE유닛에 아래와 같이 설명되어있네요... 참고하세요... const &...
-
이추형•2002.12.19 03:43DataModule을 새로 맹글어 기존의 DataModule을 대치 했습니다. 그랬더니 잘 되는군요.. 단순 BDE문제는 ...
-
- 서정길
- •
- 2002.12.17 02:48
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2002.12.17 05:09안녕하세요. 최용일입니다. 프로젝트가 있는 폴더에 보시면 프로젝트명.dsk란 파일이 있을겁니다. 이...
기간을 받는다고 햇으니 기간을 for 문으로 돌리고요..
for i := 1 to 기간
incmonth(시작,i)
function IncMonth(const Date: TDateTime; NumberOfMonths: Integer): TDateTime;