Delphi兩則：1、PDT時間轉北京時間，2、條件編譯

1、PDT時間轉北京時間
   做了個小東西，時間是PDT，而且月份也是英文的。寫了個小函數，有用得著的直接copy去:) 
有更好的實現方法，請回複。 

1. uses DateUtils;
3. function ConvertPDTDateTime(Str: string): TDateTime;
4. const
5.   EngMonthName: array[1..12] of string = ('Jan', 'Feb', 'Mar', 'Apr', 'May', 'Jun',
6.                                  'Jul', 'Aug', 'Sep', 'Oct', 'Nov', 'Dec');
8. var
9.   I: Integer;
11.   fs: TFormatSettings;
12. begin
13.   fs.ShortDateFormat := 'mm-dd-yy';
14.   fs.LongDateFormat := 'mm-dd-yyyyy';
15.   fs.DateSeparator := '-';
16.   fs.TimeSeparator := ':';
17.   fs.LongTimeFormat := 'hh:nn:ss';
18.   fs.ShortTimeFormat := 'hh:nn:ss';
21.   fs.TwoDigitYearCenturyWindow := 50;
23.   for I := 1 to 12 do
24.   begin
25.     Str := StringReplace(Str, EngMonthName[I], IntToStr(I), [rfIgnoreCase]);
26.   end;
28.   Result := StrToDateTime(Str, fs);
30.   //PDT是Pacific Daylight Time的簡稱,意思是太平洋夏令時
31.   //指的是美國西部時間
32.   //-8區 和北京平時差16小時 4－10月夏令時差15小時
33.   if Pos('PDT', Str) > 0 then
34.   begin
35.     if MonthOf(Result) in [4..10] then
36.       Result := IncHour(Result, 15)
37.     else
38.       Result := IncHour(Result, 16);
39.   end;
40. end;

調用方法：ConvertPDTDateTime('Oct-21-08 12:01:10 PDT') 

2、關於條件編譯： 
如果你希望使用命令列dcc32.exe編譯工程，請cd到dpr所在目錄，否則條件變數可能無法生效（至少我{$I xxx.inc}進來的無效。