名前
題名
▼ Mr.XRAYさん > >A〜Zの英字で、年月が取得できるか取得したりして、対応表を作るとか？ > > ちょっと調べてみました．英語表記はロケールの変更しないと無理がありそです． > > [164][06_ロケールの日付の書式を和暦に変更] > http://mrxray.on.coocan.jp/Delphi/plSamples/164_DatePickerComponent.htm#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; > >
GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.
600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示).
(上限122000(120k)バイト)

削除キー Link