名前 題名 ▼ Mr.XRAYさん > FormatSettings.ShortDateFormat あるいは LongDateFormat というのがあります. > これは,上の書き込みの,システムの設定は変更できません. > これを設定したアプリ内だけで有効です. > したがって,システムの設定とは関係なく,アプリ側での設定に使用できます. > StrToDate 関数等で,日付を文字列から取得する際に,この設定をしないと, > システムの設定が使用されて,正常に変換できないことがあります. > > 欧米の多くは,'MM/DD/YYYY が多いのですが,まれに,この設定になって > しまっているコンピュータがあるようです. > > > procedure TForm1.Button1Click(Sender: TObject); > begin > FormatSettings.ShortDateFormat := 'YYYY/MM/DD'; > Panel1.Caption := DateToStr(Trunc(Now)); > end; > > procedure TForm1.Button2Click(Sender: TObject); > begin > FormatSettings.ShortDateFormat := 'gg ee年 MM月 DD日'; > Panel2.Caption := DateToStr(Trunc(Now)); > end; GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示). (上限122000(120k)バイト) 削除キー Link