Computer/Delphi

TDateTime 사용하기

Gu Youn 2005. 7. 10. 00:37

1. Wed,11-Dec-2002 04:31:50 GMT 형식의 시간 문자열 만들기

2. 소스
uses sysutils;

Function GetFormatedDate:String;
var
  expireDate : TDateTime;
  format : TFormatSettings;
  day : integer;
begin
format.ShortDayNames[1] := 'Sun';
format.ShortDayNames[2] := 'Mon';
format.ShortDayNames[3] := 'Tue';
format.ShortDayNames[4] := 'Wed';
format.ShortDayNames[5] := 'Thu';
format.ShortDayNames[6] := 'Fri';
format.ShortDayNames[7] := 'Sat';

format.LongMonthNames[1] := 'Jan';
format.LongMonthNames[2] := 'Feb';
format.LongMonthNames[3] := 'Mar';
format.LongMonthNames[4] := 'Apr';
format.LongMonthNames[5] := 'May';
format.LongMonthNames[6] := 'Jun';
format.LongMonthNames[7] := 'Jul';
format.LongMonthNames[8] := 'Aug';
format.LongMonthNames[9] := 'Sep';
format.LongMonthNames[10] := 'Oct';
format.LongMonthNames[11] := 'Nov';
format.LongMonthNames[12] := 'Dec';

format.TimeSeparator := ':';

expireDate := Now-10;
day := DayOfWeek(expireDate);
Result := format.ShortDayNames[day]  + FormatDateTime(', dd-mmmm-yyyy hh:mm:ss', expireDate, format) + ' GMT';
end;