Q&A
- 시간을 계산하는데...
안녕하세여... ^^
DB는 오라클을 쓰구 있구여...
로그테이블 중에 시간이 들어가는 테이블이 있는데...
그 형식은... yyyymmddhhmmss형식으루... char형으로 들어가 있거든여...
제가 하려고 하는것은...
현재의 시간에서 -3초 한 시간 부터... 현재의 시간-3초 -XX초 사이의 시간에
(여기서 xx초는... 3~60사이의 임의의 초랍니다..)
현재의 시간이 070013 이라면...
070000 ~ 070003 사이에 발생한 데이타를 쿼리해 오는...
이런걸 하려고 하거든여...
그런데 시간 계산하는게 너무 복잡해여... =_=
(제가 초보라서 그러는 건지... 머리가 나쁜건지는 몰겠지만;;;)
procedure TForm1.Button1Click(Sender: TObject);
var nowdate : String;
ddd, aaa : integer;
begin
nowdate := FormatDateTime('yyyymmddhhmmss',Now);
ddd := StrToInt(Copy(nowdate,9,2)) * 3600 + StrToInt(Copy(nowdate,11,2)) * 60 +StrToInt(Copy(nowdate,13,2)) ;
aaa := ddd - 3;
label1.Caption := nowdate;
label5.Caption := IntToStr(ddd); // 초로 계산
label2.Caption := IntToStr(aaa); // -3초
label8.Caption := IntToStr((aaa div 3600)) + IntToStr((aaa mod 3600) div 60) + IntToStr((aaa mod 3600) mod 60); //초를 다시 시간으로 환산
end;
일케 해 봤는데...
문제는... 초를 다시 시간으로 환산할때...
그 결과가 7시 라면...
결과 값은 700으로 나오잖아여...
DB에는 070000으로 저장되어있는데...
어떻게 해야 하나여?
좋은 방법 없을까여?
도와 주세여...!_!
DB는 오라클을 쓰구 있구여...
로그테이블 중에 시간이 들어가는 테이블이 있는데...
그 형식은... yyyymmddhhmmss형식으루... char형으로 들어가 있거든여...
제가 하려고 하는것은...
현재의 시간에서 -3초 한 시간 부터... 현재의 시간-3초 -XX초 사이의 시간에
(여기서 xx초는... 3~60사이의 임의의 초랍니다..)
현재의 시간이 070013 이라면...
070000 ~ 070003 사이에 발생한 데이타를 쿼리해 오는...
이런걸 하려고 하거든여...
그런데 시간 계산하는게 너무 복잡해여... =_=
(제가 초보라서 그러는 건지... 머리가 나쁜건지는 몰겠지만;;;)
procedure TForm1.Button1Click(Sender: TObject);
var nowdate : String;
ddd, aaa : integer;
begin
nowdate := FormatDateTime('yyyymmddhhmmss',Now);
ddd := StrToInt(Copy(nowdate,9,2)) * 3600 + StrToInt(Copy(nowdate,11,2)) * 60 +StrToInt(Copy(nowdate,13,2)) ;
aaa := ddd - 3;
label1.Caption := nowdate;
label5.Caption := IntToStr(ddd); // 초로 계산
label2.Caption := IntToStr(aaa); // -3초
label8.Caption := IntToStr((aaa div 3600)) + IntToStr((aaa mod 3600) div 60) + IntToStr((aaa mod 3600) mod 60); //초를 다시 시간으로 환산
end;
일케 해 봤는데...
문제는... 초를 다시 시간으로 환산할때...
그 결과가 7시 라면...
결과 값은 700으로 나오잖아여...
DB에는 070000으로 저장되어있는데...
어떻게 해야 하나여?
좋은 방법 없을까여?
도와 주세여...!_!
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 우승식
- •
- 2000.01.08 19:44
- 2 COMMENTS
- /
- 0 LIKES
-
안치봉•2000.01.08 20:23안녕하세요. 저도 델4에서 계산을 무쟈게 많이 하는 프로그램을 개발할때 아래와 같은 이상한(?) 현상을 ... -
여영식•2000.01.12 02:14그러한 현상은 바로 코드 Optimize 와 관계가 있습니다. 프로젝트 옵션 메뉴에서 Compiler-CodeGenerati...
-
- 이수
- •
- 2000.01.08 19:38
- 2 COMMENTS
- /
- 0 LIKES
-
구창민•2000.01.08 22:38이수 wrote: > 죄송해요 아래꺼 제목을 잘못 올렸습니다. > 비밀번호를 잘못 입력했는지 수정이 안되서 ...
-
이수•2000.01.10 18:32구창민님 정말 감사합니다. 제가 창민님을 기억 못할리 있나요? 가르쳐 주신방법 정말 감사합니다. 헤...
-
- 장철희
- 2000.01.08 19:33
- 0 COMMENTS
- /
- 0 LIKES
-
- 이수
- •
- 2000.01.08 19:16
- 1 COMMENTS
- /
- 0 LIKES
-
이만준•2000.01.12 18:16이수 wrote: > exParam := 'File1.exe' +' '+ > 'param1 +' '+ > 'par...
-
- 유경희
- 2000.01.08 19:08
- 0 COMMENTS
- /
- 0 LIKES
-
- 강성만
- •
- 2000.01.08 18:26
- 2 COMMENTS
- /
- 0 LIKES
-
임형호•2000.01.08 20:13강성만 wrote: > 안녕하세요 > > 책을 보다가 포린키에 대한 설명이 간략히 나와 있어서 > 책대로 ...
-
shinnine•2000.01.08 19:43강성만 wrote: > 안녕하세요 > > 책을 보다가 포린키에 대한 설명이 간략히 나와 있어서 > 책대로 ...
-
- 정민석
- •
- 2000.01.08 13:04
- 1 COMMENTS
- /
- 0 LIKES
-
임형호•2000.01.08 21:44정민석 wrote: > 읽어주시는 모든 분께 감사드립니다. 초보인게 죄인가 봅니다. > > 제가 알고 싶어하...
-
- 김동익
- 2000.01.08 08:00
- 0 COMMENTS
- /
- 0 LIKES
-
- 김동익
- •
- 2000.01.08 07:27
- 1 COMMENTS
- /
- 0 LIKES
-
안치봉•2000.01.08 09:10임의로 시간으로 깜박거리는거는 없지만 윈도우즈 API 중에 FlashWindow 라는 프로시져가 있습니다. 걸 써...
-
- 김매경
- •
- 2000.01.08 05:01
- 1 COMMENTS
- /
- 0 LIKES
안녕하세여... ^^ DB는 오라클을 쓰구 있구여... 로그테이블 중에 시간이 들어가는 테이블이 있는데... 그 형식은... yyyymmddhhmmss형식으루... char형으로 들어가 있거든여... 제가 하려고 하는것은... 현재의 시간에서 -3초 한 시간 부...-
술친구•2000.01.08 19:03김매경 wrote: > 안녕하세여... ^^ > > DB는 오라클을 쓰구 있구여... > > 로그테이블 중에 시간이 ...
-
- 화이트
- 2000.01.08 04:45
- 0 COMMENTS
- /
- 0 LIKES
-
- 양상철
- 2000.01.08 04:32
- 0 COMMENTS
- /
- 0 LIKES
-
- 양상철
- 2000.01.08 04:24
- 0 COMMENTS
- /
- 0 LIKES
-
- 왕초보
- •
- 2000.01.08 02:07
- 1 COMMENTS
- /
- 0 LIKES
-
갱수•2000.01.08 07:26왕초보 wrote: > 제가 윈도우 레지스트에서... DLL 이라는 확장자 를 지웠어요... > > 그래서... ISAP...
-
- 김진호
- •
- 2000.01.08 01:58
- 1 COMMENTS
- /
- 0 LIKES
-
안치봉•2000.01.08 03:08가능합니다. 단! 형변환이나 이런걸 델파이가 깐깐히 다져서 그렇지 C++ 에서 하는건 델파이 역시 다 할 ...
-
- wsK
- 2000.01.08 01:37
- 0 COMMENTS
- /
- 0 LIKES
-
- 최소영
- 2000.01.08 01:30
- 0 COMMENTS
- /
- 0 LIKES
-
- 지연이
- •
- 2000.01.08 01:04
- 1 COMMENTS
- /
- 0 LIKES
-
임형국•2000.01.14 18:53지연이 wrote: > active-x로 인트라넷 시스템을 개발하고 있습니다. 처음 사용을 해보는데 > 크게 이런 ...
-
- 유경희
- •
- 2000.01.08 00:18
- 1 COMMENTS
- /
- 0 LIKES
-
안치봉•2000.01.08 03:00간단합니다.???? Choose Search|Find Error to display the Find Error dialog box. Find Error dial...
-
- 유경희
- 2000.01.08 00:17
- 0 COMMENTS
- /
- 0 LIKES
> 안녕하세여... ^^
>
> DB는 오라클을 쓰구 있구여...
>
> 로그테이블 중에 시간이 들어가는 테이블이 있는데...
>
> 그 형식은... yyyymmddhhmmss형식으루... char형으로 들어가 있거든여...
>
> 제가 하려고 하는것은...
>
> 현재의 시간에서 -3초 한 시간 부터... 현재의 시간-3초 -XX초 사이의 시간에
>
> (여기서 xx초는... 3~60사이의 임의의 초랍니다..)
>
> 현재의 시간이 070013 이라면...
>
> 070000 ~ 070003 사이에 발생한 데이타를 쿼리해 오는...
>
> 이런걸 하려고 하거든여...
>
> 그런데 시간 계산하는게 너무 복잡해여... =_=
>
> (제가 초보라서 그러는 건지... 머리가 나쁜건지는 몰겠지만;;;)
>
> procedure TForm1.Button1Click(Sender: TObject);
> var nowdate : String;
> ddd, aaa : integer;
> begin
> nowdate := FormatDateTime('yyyymmddhhmmss',Now);
> ddd := StrToInt(Copy(nowdate,9,2)) * 3600 + StrToInt(Copy(nowdate,11,2)) * 60 +StrToInt(Copy(nowdate,13,2)) ;
> aaa := ddd - 3;
> label1.Caption := nowdate;
> label5.Caption := IntToStr(ddd); // 초로 계산
> label2.Caption := IntToStr(aaa); // -3초
> label8.Caption := IntToStr((aaa div 3600)) + IntToStr((aaa mod 3600) div 60) + IntToStr((aaa mod 3600) mod 60); //초를 다시 시간으로 환산
> end;
>
> 일케 해 봤는데...
>
> 문제는... 초를 다시 시간으로 환산할때...
>
> 그 결과가 7시 라면...
>
> 결과 값은 700으로 나오잖아여...
>
> DB에는 070000으로 저장되어있는데...
>
>
> 어떻게 해야 하나여?
>
> 좋은 방법 없을까여?
>
> 도와 주세여...!_!
>
안녕하세요. 술친굽니다.
IntToStr((aaa div 3600)) 함수는 단순히 정수값을 가져오지요..
그래서 프로그램에서 원하는 값이 나오지 않습니다.
다음 함수를 써보세요..
FormatFloat('00', (aaa div 3600))
두자리 값으로 지정될겁니다.
좋은 프로그래밍 하세요.
술친구였습니다.