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

解決

デーリー 2007-01-16 02:45:05 No: 24486

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

Mr.XRAY URL 2007-01-16 07:41:54 No: 24487

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

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

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

これは横着？ 2007-01-16 17:44:48 No: 24488

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

デーリー 2007-01-16 17:56:46 No: 24489

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

Mr.XRAY URL 2007-01-17 03:18:03 No: 24490

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

座布団二枚 !!