그냥 현재 시각에서 더하는 것을 예로 들면요.
헬프를 찾아 보시면 알지만
시간은 Double 형입니다.
결국에 정수 부분은 날짜 입니다. 그러니깐 1.0 을 더해주면 내일 날짜가 되겠죠.
그리고 -1을 해주면 어제가 되고요.
소수 부분은 시간 분 초 가 되겠죠.
아래는 현재의 시간을 구해서
49 시간 40 초를 더하는 예제 입니다. ^^
<!--CodeS-->
procedure TForm1.Button1Click(Sender: TObject);
var
aaa : TDateTime;
begin
aaa := now + (49 + 40/60)/24;
등록하실때는 DateToStr로 등록하셨다가
다시 TDateTime으로 바꾸실때는 StrToDate로 하시고
TDateTime에 각종 더하기 빼기 하기를 원하시는 경우는
DateUtils unit에 들어있는
IncHour, IncMinute, IncSecond 등등을 쓰시면 됩니다.
도움말 참고하세요
저장하실때 구지 님의 방법처럼 저장해야한다면
EncodeDateTime 함수도 참고하세요.
각각의 year, mon, day, hour, min, sec 등을 가지고 TDateTime형으로 변환해주는 함수입니다.