코딩하다가 모르는 부분이 있어 질문 드리겠습니다.
다른 분들의 답글을 조회하여 컴퓨터의 현재날짜(now)를 받아 원하는
시간만큼 더하거나 빼는 것은 해결했습니다.
가령,
date:=formatdatetime('yyyymmdd',now -1) 또는
date:=formatdatetime('yyyymmdd',now +1) 이런식으로 말이죠.
그런데 제가 고수분들의 답글을 이해를 못하는 것인지, 날짜 계산에 관한 관련 답글을
아무리 찾아봐도 제가 원하는 계산법은 못찾겠다더라구요.
제가 하고자 하는 코딩은 컴퓨터 현재 날짜가 아니라,
불특정 데이타 값을 받아 '년도+월+일자+시+분(12자리)에 10분을 더하고 싶은 겁니다.
예를들면,
받은 날짜 +10분 결과값
----------------- --------
200801010000 -> 200801010010
200804232356 -> 200804240006
이런식으로 계산하려 합니다.
생각 같아서는,
date:=formatdatetime('yyyymmddhhmm(컴퓨터날짜가 아니라 TMaskEdit.Text에서 받은 날짜)',now +10)
이렇게 하면 될것 같은데 안되더군요.
벌써 며칠째 헤매고 있네요. 어찌보면 간단한 날짜 계산인 것 같은데
이거 하나 해결 못하고 전전긍긍하고 있으니 이젠 열패감까지 드네요.
해당 코딩 부분입니다. 이렇게 저렇게 하도 많이 시도해 봐서 코딩이 난잡스러우니
간단히 요약하여 올립니다.
procedure TFTG2001.Bit_SAMEClick(Sender: TObject);
var
p_date : string;
k_date : TDateTime;
begin
p_date := copy(MaskACPT_DD2.Text,1,4) + '-' +
copy(MaskACPT_DD2.Text,5,2) + '-' +
copy(MaskACPT_DD2.Text,7,2) + '/' +
copy(MaskACPT_HHMM2.Text,1,2) + ':' +
copy(MaskACPT_HHMM2.Text,3,2);
p_date := FormatDateTime('p_date', 10); -> 에러(형식이 안맞는 듯)
k_date := StrToDateTime(p_date); --> 이것 역시 마찬가지
k_date := k_date + 10;
end;
고수님들의 많은 조언 부탁드립니다.
감사의 말씀이 늦어서 죄송합니다.
조안 주신분들 모두 감사합니다. 덕분에 문제 잘 해결했습니다.