TDateTime 사용하기

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;