delphi - 日付の末尾に序数の接尾辞を付けるにはどうすればよいですか?

Question

Delphi BDS2006 を使用していますが、日付 (2011 年 1 月 10 日) を次のようにフォーマットするには 1st Oct 2011

を使ってみました ShowMessage(FormatDateTime('ddd mmm yyyy', now));

私が受け取るメッセージはSat Oct 2011

ddd私Satを与え、与えない1st

st,nd,rd,th日付に追加したい同様の方法

これを行うための組み込みのプロシージャまたは関数はありますか、または日付を手動で確認してサフィックスを割り当てる必要があります

私は現在これを使用しています

case dayof(now)mod 10 of
 1 : days:=inttostr(dayof(dob))+'st';
 2 : days:=inttostr(dayof(dob))+'nd';
 3 : days:=inttostr(dayof(dob))+'rd';
 else days:=inttostr(dayof(dob))+'th';

 end;

Answer 1

Delphi には、そのような形式を行うための組み込み機能はありません。あなたはそれを自分でしなければならないでしょう。このような：

function DayStr(const Day: Word): string;
begin
  case Day of
  1,21,31:
    Result := 'st';  
  2,22:
    Result := 'nd';  
  3,23:
    Result := 'rd';  
  else
    Result := 'th';  
  end;
  Result := IntToStr(Day)+Result;
end;

Answer 2

同じもののロケールに依存しない英語版を次に示します。GetShortMonth はShortMonthNames、ロケール設定から月の省略形を取得するためです。

function GetOrdinalSuffix(const Value: Integer): string;
begin
  case Value of
    1, 21, 31: Result := 'st';
    2, 22: Result := 'nd';
    3, 23: Result := 'rd';
  else
    Result := 'th';
  end;
end;

function GetShortMonth(const Value: Integer): string;
begin
  case Value of
    1: Result := 'Jan';
    2: Result := 'Feb';
    3: Result := 'Mar';
    4: Result := 'Apr';
    5: Result := 'May';
    6: Result := 'Jun';
    7: Result := 'Jul';
    8: Result := 'Aug';
    9: Result := 'Sep';
    10: Result := 'Oct';
    11: Result := 'Nov';
    12: Result := 'Dec';
  end;
end;

procedure TForm1.DateTimePicker1Change(Sender: TObject);
var
  Day: Word;
  Month: Word;
  Year: Word;
begin
  DecodeDate(DateTimePicker1.Date, Year, Month, Day);
  ShowMessage(Format('%d%s %s %d', [Day, GetOrdinalSuffix(Day), GetShortMonth(Month), Year]));
end;