현재 날짜/시간형에.. 초를 더한 날짜/시간을 계산해주는 함수가있나요?

var
  AA: TDateTime;
begin
  AA := Now();

  // 1시간 더하기
  AA := AA + (1/24);

  // 1분 더하기
  AA := AA + (1/(24*60));

  // 1초 더하기
  AA := AA + (1/(24*60*60));
end;

살펴보면 규칙이 보일겁니다.

TDateTime은 하루를 1로 계산합니다.

따라서,

1시간은 1일/24시간
1분은 1일/(24시간 * 60분)
1초는 1일/(24시간 * 60분 * 60초)

가 되는 겁니다.

궁금 님이 쓰신 글 :
: 델파이에서 now 해서 시간을 찍어보면
:
: 2006-10-10 오전 07:08:11 이렇게 나오는데 여기에 초를 더하면 시간을 알아서 계산해주는 함수가 있나요?
:
: 수동으로 하려면 오전인지 오후인지 판단해서 24시간으로 바꾸고 거기서 초를더해서
: 만약 24시간을 넘어가면 2006-10-10 에 해당하는 날짜를 +1해주고 나머지값을 시간에셋팅해주고 등등 번거로운데요..걍 간단히 tdatetime 형의 시간에 1초를더한 날짜/시간을
: 계산해주는함수가있는지요??
:
: 프로그램시작시에 현재시간을 tdatetime변수에 넣어두고.. tickcount를 계산해서..
: 현재시간에서 초를 계속더해서..윈도우시계와는상관없이.. 독자적인 시간을 만들려고하거든요! 근데 현재시간을 저장해뒀다가 지나간tick을초로환잔해서 더할때마다 시간계산이 복잡해서리..--;

 

 

출처  : http://www.borlandforum.com/impboard/impboard.dll?action=read&db=del_qna&no=11140