TDateTime형을 이용한 날짜, 시간 변환 방법

델파이에서 제공하는 TDateTime 관련 함수와  프로시져 중에는 기본적인 변환을 위한 것 이외에도 아래와 같은 것들이 있다.

◇ DayOfWeek : 일부터 토까지의 요일문자열을 반환한다. (인자/1:일-7:토)
  ·function DayOfWeek(Date: TDateTime): Integer;

procedure TForm1.Button1Click(Sender: TObject);
var
  ADate: TDateTime;
begin
  ADate := StrToDate(Edit1.Text);
  Label1.Caption := ‘Day  ‘ +  IntToStr(DayOfWeek(ADate)) +  ‘ of  the week’;
end;

◇ DecodeDate : 일자를 Year, Month, Day로 변환한다.

이 때, Year에 1-9999, Month에 1-12, Day에 28, 29, 30, 31가 들어감.
– procedure DecodeDate(Date: TDateTime; var Year, Month, Day: Word);

procedure TForm1.Button1Click(Sender: TObject);
var
  Present: TDateTime;
  Year, Month, Day, Hour, Min, Sec, MSec: Word;
begin
  Present:= Now;
  DecodeDate(Present, Year, Month, Day);
  Label1.Caption := ‘Today is Day ‘ + IntToStr(Day) + ‘ of Month ‘ + IntToStr(Month) + ‘ of Year ‘ + IntToStr(Year);
  DecodeTime(Present, Hour, Min, Sec, MSec);
  Label2.Caption := ‘The time is Minute ‘ + IntToStr(Min) + ‘ of Hour ‘ + IntToStr(Hour);
end;

◇ EncodeDate : 인자 Year, Month, Day로 TDateTime형을 반환한다.

이 때, Year는 1-9999, Month는 1-12, Day는 28, 29, 30, 31가 들어감
– function EncodeDate(Year, Month, Day: Word): TDateTime;

procedure TForm1.Button1Click(Sender: TObject);
var
  MyDate: TDateTime;
begin
  MyDate := EncodeDate(83, 12, 31);
  Label1.Caption := DateToStr(MyDate);
end;

◇ DecodeTime : 시간을 Hour, Min, Sec, MSec으로 변환한다.

이 때, Hour에는 0-23, Min, Sec에는 0-59, MSec에는 0-999의 값이 반환됨.
– procedure DecodeTime(Time: TDateTime; var Hour, Min, Sec, MSec: Word);

procedure TForm1.Button1Click(Sender: TObject);
var
  Present: TDateTime;
  Year, Month, Day, Hour, Min, Sec, MSec: Word;
begin
  Present:= Now;
  DecodeDate(Present, Year, Month, Day);
  Label1.Caption := ‘Today is Day ‘ + IntToStr(Day) + ‘ of Month ‘ + IntToStr(Month) + ‘ of Year ‘ + IntToStr(Year);
  DecodeTime(Present, Hour, Min, Sec, MSec);
  Label2.Caption := ‘The time is Minute ‘ + IntToStr(Min) + ‘ of Hour ‘ + IntToStr(Hour);
end;

◇ EncodeTime : Hour, Min, Sec, MSec를 인자로 TDateTime형을 반환함.

이 때, Hour는 0-23, Min, Sec은 0-59, MSec은 0-999의 값 이용.
– function EncodeTime(Hour, Min, Sec, MSec: Word): TDateTime;

procedure TForm1.Button1Click(Sender: TObject);
var
  MyTime: TDateTime;
begin
  MyTime := EncodeTime(0, 45, 45, 7);
  Label1.Caption := TimeToStr(MyTime);
end;

◇ DateTimeToFileDate : 델파이의 Date 포맷을 DOS용 Date 포맷으로 변환.

반환값은 FindFirst, FindNext에서 이용되는 TSearchRec.Time과 동일.
– function DateTimeToFileDate(DateTime: TDateTime): Integer;

◇ DateTimeToFileDate : DOS용 Date 포맷을 Dephi용으로 변환.

FindFirst나 FindNext등을 이용하는 경우, TSearchRec.Time의 값과 동일.
인자는 FindFirst나 FindNext에서 이용되는 TSearchRec.Time과 동일.
– function FileDateToDateTime(FileDate: Integer): TDateTime;

참치로 간단히 만드는 매운탕

생선 다루기가 쉽지 않은 분들은 이 방법을 강력히 권장한다.

대충 마트에서 다 칼질이 된것을 팔지만, 여전히 물고기 만지는 건 찝찝하신 분들에게 적합한 요리 방법이라 하겠다.

준비시간 : 5분, 조리시간 : 15분

재료
라면1개, 스프 2/3봉지, 참치 캔 50g, 호박 1/4개, 풋고추 2개, 대파 1/3뿌리, 물 3컵(600cc)

조리 방법
1. 호박은 가는 호박으로 준비해서 반달 썰기를 한다.
2. 풋고추와 대파는 큼직하게 어슷 썰기를 한다.
3. 냄비에 물이 끓으면 면, 스프, 참치, 호박, 풋고추를 넣는다.
4. 다시 한번 끓어 오르면 대파를 넣어 준다.

라면 떡볶이 만드는 방법

준비시간 :10분, 조리시간 : 10분

재료
라면 1개,쌀떡 500g, 당근 1/3개, 대파 1/2뿌리, 양파 1/2개, 참기름 1작은술, 물 1과 1/2컵(300cc)

양념장- 스프 2/3봉지, 고추장 3큰술, 설탕 1과 1/3큰술, 케찹 1과 1/3큰술

조리 방법
1. 당근은 2x4cm정도로 썰어 놓고 대파는 4cm길이로 썬다.
2. 양파는 굵직하게 채썰어 놓고, 양념장을 준비한다.
3. 후라이팬에 준비한 쌀떡, 라면, 야채, 양념장과 물을 넣고 잘 저어가며 끓인다.
4. 다 익으면 마지막에 참기름을 넣어준다.