| [11368] Re3:備忘録 | 返信 削除 |
| 2017/9/15 (金) 11:21:54 Mr.XRAY |
|
>A〜Zの英字で、年月が取得できるか取得したりして、対応表を作るとか？ ちょっと調べてみました．英語表記はロケールの変更しないと無理がありそです． [164][06_ロケールの日付の書式を和暦に変更] こんなことするぐらいならレジストリの操作の方がよさそうな．ハハハッ． 年月の方は，以下のようにフォーマットでは取得できるので，みたら， SysUtils の DateTimeToString で処理しているようなので，何かヒントになる コードがあるかな ? と思ったんですが，コード読むのが面倒.... で，あきらめました (^^; //============================================================================= // 動作確認 Windows 7 U64(SP1) + Delphi XE(UP1) Pro // // レジストリの値は以下 // 2019 10 10 神武_神_Jimmu_J //============================================================================= procedure TForm1.Button1Click(Sender: TObject); var LDateTime1 : TDateTime; LDateTime2 : TDateTime; LDateText : string; begin LDateTime1 := VarToDateTime('2019/10/09'); LDateTime2 := VarToDateTime('2019/10/10'); LDateText := FormatDateTime('ggee年mm月dd日', LDateTime1) + sLineBreak + FormatDateTime('ggee年mm月dd日', LDateTime2); MessageBox(Handle, PChar(LDateText), '結果', MB_ICONINFORMATION); end;  |