자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다.
- 제품설치/등록 오류 문의: 설치/등록 Q&A 이용 (제품 구매 고객 한정)
Delphi 시간 또는 분을 추가하고 싶어요.
2018.07.31 09:59
Q,
시간 또는 분을 추가하고 싶어요.
A,
EncodeTime 함수를 이용해 시간(TTime)을 쉽게 지정할 수 있습니다.
(EncodeTime 함수는 System.DateUtils에 선언되어 있으며, EncodeDateTime, DecodeDate 등의 함수들도 제공됩니다.)
uses
System.DateUtils;
procedure TForm1.Button1Click(Sender: TObject);
var
tm: TTime;
begin
tm := 0;
Memo1.Lines.Add(FormatDateTime('HH:NN:SS', tm));
tm := tm + EncodeTime(0, 30, 0, 0);
Memo1.Lines.Add(FormatDateTime('HH:NN:SS', tm));
tm := tm + EncodeTime(0, 20, 0, 0);
Memo1.Lines.Add(FormatDateTime('HH:NN:SS', tm));
end;
댓글 0
Delphi 시간 또는 분을 추가하고 싶어요.
2018.07.31 09:59
Q,
시간 또는 분을 추가하고 싶어요.
A,
EncodeTime 함수를 이용해 시간(TTime)을 쉽게 지정할 수 있습니다.
(EncodeTime 함수는 System.DateUtils에 선언되어 있으며, EncodeDateTime, DecodeDate 등의 함수들도 제공됩니다.)
uses
System.DateUtils;
procedure TForm1.Button1Click(Sender: TObject);
var
tm: TTime;
begin
tm := 0;
Memo1.Lines.Add(FormatDateTime('HH:NN:SS', tm));
tm := tm + EncodeTime(0, 30, 0, 0);
Memo1.Lines.Add(FormatDateTime('HH:NN:SS', tm));
tm := tm + EncodeTime(0, 20, 0, 0);
Memo1.Lines.Add(FormatDateTime('HH:NN:SS', tm));
end;