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;
 |
