掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
DateTime型をString型に変換し、表示するには？ (ID：7636)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
表示形式が変わっても・・・というのが表示を統一させるのか OSの日付表示形式にあわせた内容にするのかどちらの意味にもとれるので 環境に左右されない固定方式を記述しておきます。 procedure TForm1.Button1Click(Sender: TObject); var d : TDateTime; aYer,aMon,aDay,aHou,aMin,aSec,aMSec : word; begin d := Now; DecodeDate(d,aYer,aMon,aDay); DecodeTime(d,aHou,aMin,aSec,aMSec); Edit1.Text := IntToStr(aYer); Edit2.Text := IntToStr(aMon); Edit3.Text := IntToStr(aDay); Edit4.Text := IntToStr(aHou); Edit5.Text := IntToStr(aMin); Edit6.Text := IntToStr(aSec); end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.