| 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; |
'Computer > Delphi' 카테고리의 다른 글
| 델파이에서 Lua 사용을 위한 메모 (0) | 2009.07.20 |
|---|---|
| Indy 설치(Delphi, BCB 공통) (0) | 2006.09.02 |
| IRequest, TWebRequest 이용한 파라미터 접근 (0) | 2005.07.10 |
| URL에서 도메인 분리하기 (0) | 2005.07.10 |
| Visual Basic에서 만든 dll 호출하기 (0) | 2005.07.10 |
| 유니코드 변환 코드 (0) | 2003.12.17 |
| DLL 호출 관련 정리(임시) (0) | 2003.12.14 |
| 테이블에 트랜잭션과 파라미터 이용해서 인서트 (0) | 2003.11.16 |
| TColor 값을 HTML color 로 변경하는 코드 (0) | 2003.05.14 |
| HTML에 문자 추가하기 (0) | 2003.05.09 |
