[Delphi] FormatDateTime関数 日付時刻を文字列に変換

この記事は、現在(*)の日付・時刻を指定した書式（西暦、和暦、時刻）でFormatDateTime関数を実行したサンプルです。（* 初投稿時の日時です）

※全てのDelphi(楽天市場で探す ・ amazonで探す)で動作する保証はありません。また、内容に関し管理人は全ての責任を負いかねます

サンプル　※説明に必要な部分しか記述していません

procedure TForm1.FormCreate(Sender: TObject);

//フォーム上に TLabel を５個配置します
//ここでは FormCreate で実行しています

begin
    //注意書き　下記は一例であり、書式文字列(指定子)は複数あります

    //西暦４桁
    Label1.Caption := FormatDateTime('yyyy/m/d', Date);

    //西暦２桁 アポストロフィー(シングルクォーテーション)付き
    Label2.Caption := FormatDateTime('"''"yy/m/d', Date);

    //和暦　元号　曜日付き
    Label3.Caption := FormatDateTime('gge"年"m"月"d"日("ddd")"', Date);

 
    //時刻
    Label4.Caption := FormatDateTime('h:nn:ss', Time);

    //時刻　午前午後付き　秒なし
    Label5.Caption := FormatDateTime('ampmh:nn', Time);

end;

このようになります。

西暦日付の全桁表示とアポストロフィーによる省略表示、和暦日付の元号、曜日あり、時刻、時刻の午前あり

※下記はヘルプからの引用です

構文

function FormatDateTime(const Format: string; DateTime: TDateTime): string; overload;

ddやgなど指定できる「形式指定子（日付書式文字列）」については、下記の公式がオススメです。

http://docwiki.embarcadero.com/Libraries/Rio/ja/System.SysUtils.FormatDateTime