DayOfWeek 도움말에 나온 예제인데요...
Edit1.Text에 ==> MM/DD/YY 포맷 으로 넣으라고 하는데요
MM/DD/YY 포맷으로 넣을라면 어떤씩으로 넣어야 하나요??
도움말을 찾아봐도 무슨말인지 모르겠네요..
어떻게 하는지 예를 하나 보여주시면 안될까요??
밑에는 도움말에 나온 예제
procedure TForm1.Button1Click(Sender: TObject);
var
ADate: TDateTime;
days: array[1..7] of string;
begin
days[1] := 'Sunday';
days[2] := 'Monday';
days[3] := 'Tuesday';
days[4] := 'Wednesday';
days[5] := 'Thursday';
days[6] := 'Friday';
days[7] := 'Saturday';
ADate := StrToDate(Edit1.Text);
ShowMessage(Edit1.Text + ' is a ' + days[DayOfWeek(ADate)]);
end;
DayOfWeek함수는 TDateTime형의 입력을 받아서 해당 날짜의 요일을 숫자값으로 리턴해주는 함수입니다.
TDateTime은 Double형 숫자로서 정수부는 1899년12월30일부터의 누적된 일수를 리턴하고 시간은 소숫점 이하의 수치로 나타냅니다.
StrToDate나 StrToDateTime은 꽤 많은 시간 표시방법을 지원합니다(함수를 살펴보면 꽤 많은 형식을 분별하기 위해 많은 코드가 들어가 있는 것을 볼 수 있습니다.)
날짜는 'yyyy-mm-dd' 시간은 "yyyy-mm-dd hh:mm:ss"정도가 가장 무난했던 것 같습니다.
FormatDateTime('yyyy-mm-dd hh:mm:ss', now)을 실행해서 파라메터에 따라 변하는 값을 확인해보시기 바랍니다.
P.S.
y2k를 거치고도 yy(년도의 두자리 표기)같은 표기법을 사용하는건 굉장히 위험한 발상입니다. 반드시 네자리를 표기하는 방법으로 코딩하시기 바랍니다.