DateTime型をString型に変換し、表示するには？ (ID：7639)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

日付は日本の場合、年月日ですが他の国の場合は並びが違うのでそれも
考慮して表示となると、にしのさんの指摘のようにShortDateFormatや
LongDateFormatを使用して生成された文字列を分解して表示するぐらいしか
ないかと思います。
数字以外の文字を区切りとして分解し表示するサンプルを作ってみました。
「/」や「:」「年」などの単位も工夫次第では出来るかもしれません。

文字列から日付型の変換は難しそうですね。
StrToDateTime 関数のヘルプに書いてますが把握できませんでした。

procedure TForm1.Button1Click(Sender: TObject);
begin
  DataTest(FormatDateTime(ShortDateFormat+ ' hh:mm:ss',now));
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  DataTest(FormatDateTime(LongDateFormat+ ' hh:mm:ss',now));
end;

procedure TForm1.DataTest(str: string);
var
  tbl : array[0..5] of string;
  i,j : Integer;
  f : Boolean;
begin
  j := 0;
  f := False;
  for i := 1 to Length(str) do begin
    if (str[i] >= '0') and (str[i] <= '9') then begin
      if f then begin
        inc(j);
        f := False;
      end;
      tbl[j] := tbl[j] + str[i];
    end
    else  begin
      f := True;
    end;

end;
  Edit1.Text := tbl[0];
  Edit2.Text := tbl[1];
  Edit3.Text := tbl[2];
  Edit4.Text := tbl[3];
  Edit5.Text := tbl[4];
  Edit6.Text := tbl[5];
end;

←解決時は質問者本人がここをチェックしてください。

戻る