Q&A
- 타이머사용에 대해서(꼭 답변 해주세요...)
Lb_timer.Caption := TimeToStr(Now)
이렇게 써서 현재시각을 얻었는데요...
이건 시험 시작시간이고...종료시간을 구할려고 하는데..타이머를 어떻게 쓰는지 잘 몰라서요...
시험시간이 50분이거든요...
현재시각에 50분을 더한 종료시각을 구하고 싶은데요....
어떻게 해야하는지 답변 부탁드립니다...
이렇게 써서 현재시각을 얻었는데요...
이건 시험 시작시간이고...종료시간을 구할려고 하는데..타이머를 어떻게 쓰는지 잘 몰라서요...
시험시간이 50분이거든요...
현재시각에 50분을 더한 종료시각을 구하고 싶은데요....
어떻게 해야하는지 답변 부탁드립니다...
3
COMMENTS
-
-
넘넘 감사합니다....해결했어용...ㅋㅋㅋ
열시미 공부할께요.....*^^*
-
왕초보 wrote:
> Lb_timer.Caption := TimeToStr(Now)
> 이렇게 써서 현재시각을 얻었는데요...
> 이건 시험 시작시간이고...종료시간을 구할려고 하는데..타이머를 어떻게 쓰는지 잘 몰라서요...
> 시험시간이 50분이거든요...
> 현재시각에 50분을 더한 종료시각을 구하고 싶은데요....
> 어떻게 해야하는지 답변 부탁드립니다...
>
Now는 TDateTime형으로 TDate가 정수로 TTime이 소수점으로 되어있는 숫자형입니다.
맞나....
그러므로 TDate에서 5를 더하면 날짜에서 5일 후가 되고
TTime에서 1/24를 더하면 1시간을 더하게 됩니다.
그러면 50분은 50 / (24 * 60)으로 계산하면 되겠죠...
아래 예를 들었으니 참조하세요....
procedure TForm1.Button1Click(Sender: TObject);
var
ATime: TTime;
begin
ATime := Time;
Memo1.Lines.Add(TimeToStr(ATime));
ATime := ATime + 50/(24*60);
Memo1.Lines.Add(TimeToStr(ATime));
end;
(NOTICE) You must be logged in to comment on this post.
-
- 강호규
- •
- 2001.09.15 05:40
- 4 COMMENTS
- /
- 0 LIKES
-
쥐 <:( ) ~•2001.09.15 17:49강호규 wrote: > 오라클에서 > 필드 타입은 DATE 입니다. > DB에는 분명 데이터가 들어 있고 > 오라클 ...
-
강호규•2001.09.15 17:53오라클 관련자료를 올립니다. 특이한 것은 테이블명,필드명 모두 한글로 되어 있습니다. 감사합니다. ...
-
쥐 <:( ) ~•2001.09.15 18:23강호규 wrote: > 오라클 관련자료를 올립니다. > 특이한 것은 테이블명,필드명 모두 한글로 되어 있습니...
-
강호규•2001.09.15 18:29쥐 강호규 wrote: > > 오라클 관련자료를 올립니다. > > 특이한 것은 테이블명,필드명 모두 한글로 되어...
-
- 왕초보
- 2001.09.15 05:21
- 0 COMMENTS
- /
- 0 LIKES
-
- 왕초보
- •
- 2001.09.15 05:08
- 3 COMMENTS
- /
- 0 LIKES
Lb_timer.Caption := TimeToStr(Now) 이렇게 써서 현재시각을 얻었는데요... 이건 시험 시작시간이고...종료시간을 구할려고 하는데..타이머를 어떻게 쓰는지 잘 몰라서요... 시험시간이 50분이거든요... 현재시각에 50분을 더한 종료시각...-
이장렬•2001.09.15 05:42왕초보 wrote: > Lb_timer.Caption := TimeToStr(Now) > 이렇게 써서 현재시각을 얻었는데요... > 이...
-
왕초보•2001.09.15 07:42넘넘 감사합니다....해결했어용...ㅋㅋㅋ 열시미 공부할께요.....*^^*
-
이장렬•2001.09.15 05:42왕초보 wrote: > Lb_timer.Caption := TimeToStr(Now) > 이렇게 써서 현재시각을 얻었는데요... > 이...
-
- 한철
- 2001.09.15 05:03
- 0 COMMENTS
- /
- 0 LIKES
-
- 김춘성
- 2001.09.15 04:44
- 0 COMMENTS
- /
- 0 LIKES
-
- 바보감자
- 2001.09.15 03:55
- 0 COMMENTS
- /
- 0 LIKES
-
- 알려주셔요
- 2001.09.15 03:32
- 0 COMMENTS
- /
- 0 LIKES
-
- 급합니다...꼭
- •
- 2001.09.15 03:08
- 2 COMMENTS
- /
- 0 LIKES
-
아폴론•2001.09.15 03:22SQL Plus로 접속해서 메뉴중 도움말을 크릭하세요 급합니다...꼭 wrote: > 안녕하세요. > > 컴퓨터...
-
급합니다...꼭•2001.09.15 19:32아폴론 wrote: > SQL Plus로 접속해서 메뉴중 도움말을 크릭하세요 > > 급합니다...꼭 wrote: > > 안...
-
- 궁금
- 2001.09.15 01:54
- 0 COMMENTS
- /
- 0 LIKES
-
- 이원택
- 2001.09.15 01:33
- 0 COMMENTS
- /
- 0 LIKES
-
- 뛰는초보
- •
- 2001.09.15 01:26
- 1 COMMENTS
- /
- 0 LIKES
-
stoney•2001.09.15 03:02WordWrap 기능 비슷하게 구현은 가능 하겠네요.. procedure TMainForm.StringGrid1DrawCell(Sender: TOb...
-
- irookie
- •
- 2001.09.15 01:18
- 2 COMMENTS
- /
- 0 LIKES
-
구창민•2001.09.15 05:30irookie wrote: > 질문 그대로 입니다. > > url을 주어서 그 url이 살았는지 죽었는지 알고 싶습니다. ...
-
stoney•2001.09.15 02:58해당 URL로 Ping 때려보시면 되죠.. ^^ irookie wrote: > 질문 그대로 입니다. > > url을 주어서 그...
-
- 새까만넘
- •
- 2001.09.15 01:11
- 3 COMMENTS
- /
- 0 LIKES
-
Lost July•2001.09.15 01:27for i := 1 to 10 do if not (i in [5, 6, 7]) then {여기에 Insert 문 삽입} 하시면 됩니다.
-
새까만넘•2001.09.15 01:32Lost July wrote: > for i := 1 to 10 do > if not (i in [5, 6, 7]) then > {여기에 Insert 문 ...
-
aparadin•2001.09.15 01:55새까만넘 wrote: > Lost July wrote: > > for i := 1 to 10 do > > if not (i in [5, 6, 7]) then > ...
-
-
$•2001.09.15 01:46문철민 wrote: > > * 사용환경 : 델파이4 / Windows me > > > 델파이를 처음 접해보는 사람입...
-
-
- 손님
- •
- 2001.09.15 00:31
- 1 COMMENTS
- /
- 0 LIKES
-
aparadin•2001.09.15 02:01내용무랬져^^;;;;;;;;;;;;;;
-
- 소비연
- •
- 2001.09.15 00:27
- 1 COMMENTS
- /
- 0 LIKES
-
Lost July•2001.09.15 00:28form1.quickrep1.print; -> 기본 프린터로 바로 출력 form1.quickrep1.preview; -> 미리보기
-
- Lost July
- 2001.09.15 00:26
- 0 COMMENTS
- /
- 0 LIKES
-
- 바보
- •
- 2001.09.15 00:19
- 1 COMMENTS
- /
- 0 LIKES
-
bibic•2001.09.15 02:02테이블에 aa라는 필드가 있다면 이 필드에 인덱스를 aa_idx라는 이름으로 생성한다고 한다면... aa_id...
-
- 민
- •
- 2001.09.14 23:47
- 1 COMMENTS
- /
- 0 LIKES
-
홍성락•2001.09.14 23:58민 wrote: > 안녕하세요. > 타이머를 거의 처음써봐서요.. > 레이블을 깜박깜박하게 만들려구 하는데 ...
-
- 스파토이
- 2001.09.14 23:41
- 0 COMMENTS
- /
- 0 LIKES
> Lb_timer.Caption := TimeToStr(Now)
> 이렇게 써서 현재시각을 얻었는데요...
> 이건 시험 시작시간이고...종료시간을 구할려고 하는데..타이머를 어떻게 쓰는지 잘 몰라서요...
> 시험시간이 50분이거든요...
> 현재시각에 50분을 더한 종료시각을 구하고 싶은데요....
> 어떻게 해야하는지 답변 부탁드립니다...
>
Now는 TDateTime형으로 TDate가 정수로 TTime이 소수점으로 되어있는 숫자형입니다.
맞나....
그러므로 TDate에서 5를 더하면 날짜에서 5일 후가 되고
TTime에서 1/24를 더하면 1시간을 더하게 됩니다.
그러면 50분은 50 / (24 * 60)으로 계산하면 되겠죠...
아래 예를 들었으니 참조하세요....
procedure TForm1.Button1Click(Sender: TObject);
var
ATime: TTime;
begin
ATime := Time;
Memo1.Lines.Add(TimeToStr(ATime));
ATime := ATime + 50/(24*60);
Memo1.Lines.Add(TimeToStr(ATime));
end;