データベースサーバーから取得した数値日付を日付編集するには？

解決

デーリー 2007-01-15 17:45:05 No: 24486 IP: 192.*.*.*

データーベースサーバーから取得した数値日付(2007年01月15日なら20070115)をDelphiのLabelやEditコンポーネントで日付編集し2007/01/15と表示するにはどうすればよいのでしょうか？誰か教えてください！宜しくお願いします。

編集削除

Mr.XRAY URL 2007-01-15 22:41:54 No: 24487 IP: 192.*.*.*

>2007年01月15日なら20070115
と決まっている場合、
1〜4番目が西暦年
5〜6番目が月
7〜8番目が日
ですから、これを取出して
関数EncodeDateを使用して日付型(TDateまたはTDateTime)の値にしてから
FormatDateTimeで表示書式を整えた方が汎用性があるかも知れません。
(日付を他にも使用可能)

あるいは、20070115を単に年月日に分解して、その区切りに'/'を入れるという
方法もあります。

他には、グローバル変数のShortDateFormatの形式を一時的に変更して、
DateTimeToStr、DateToStr関数等を使用する方法も考えられますが...
私なら最初の方法を使うかも知れません。

編集削除

これは横着？ 2007-01-16 08:44:48 No: 24488 IP: 192.*.*.*

FormatFloat使用とかはどうでしょう？
例）
Edit1.Text := FormatFloat('0000/00/00', 20001001);

編集削除

デーリー 2007-01-16 08:56:46 No: 24489 IP: 192.*.*.*

Mr.XRAY さんこれは横着？さん有難うございます！早速ためしてみます。

編集削除

Mr.XRAY URL 2007-01-16 18:18:03 No: 24490 IP: 192.*.*.*

>Edit1.Text := FormatFloat('0000/00/00', 20001001);

座布団二枚 !!

編集削除