도움이 될란지 모르겠읍니다.



▶------------------------------------------------------------------------------◀

↓ ◈ 날짜 데이터를 문자 데이타로 변환 ◈ ↓

▶------------------------------------------------------------------------------◀

EDIT3.TEXT := FormatDateTime('yyyymmdd', DateTimePicker1.DATE);

▶------------------------------------------------------------------------------◀

↓ ◈ 문자열DATE를 날짜 로 변환할때. ◈ ↓

▶------------------------------------------------------------------------------◀

SR001A.REQ_DATE.Date

:= StrToDate(Copy(TT_date,1,4)+'-'+Copy(TT_date,5,2)+'-'+Copy(TT_date,7,2));



S_DATE.Date := StrToDate(FormatDateTime('yyyy-mm-01',Now)); // 매월 1일로

▶------------------------------------------------------------------------------◀

↓ ◈ 날짜를 요일로 바꿔주는 함수 ◈ ↓

▶------------------------------------------------------------------------------◀

function DayofWeek(date: TDateTime): string;

var

year, month, day : word;

yoil : integer;

begin

DecodeDate(date, year, month, day);

if month < 3 then begin

year := year - 1;

month := month + 12;

end;



yoil := (year + (year div 4) - (year div 100) + (year div 400) +

(13 * month + 8) div 5 + day) mod 7;

case yoil of

0 : Result := '일요일';

1 : Result := '월요일';

2 : Result := '화요일';

3 : Result := '수요일';

4 : Result := '목요일';

5 : Result := '금요일';

6 : Result := '토요일';

end;

end;

////////////////////////////////////////////////

시간에 대한것은 decodetime을 확인해 보십시요.