ファイルの更新日を取得し表示するには？

解決

---

あるファイルの更新日を下記のような感じで取得し、
テキストボックスに表示したいのですが,
ファイルの更新日より１、２秒多く表示されることがあり、
困っています。正しく表示させるためにはどうしたらいいのか
教えてください。お願いします。

filetime:= FileDateToDateTime(FileAge(filename));
edit1.text:=DateTimeToStr(filetime);

編集    削除

---

FileAgeは、FileTimeToDosDateTimeで一度DOSの日付日付形式に変換しています。
これは、制度が２秒ですので、１〜２秒の誤差が生じます。

http://hp.vector.co.jp/authors/VA009712/take/delphi/kabesys.htm
にある、「ファイルの日付と時刻を得る（高度版）」を参照してください。

編集    削除

---

このページも参考になりそうですね。
http://www2f.biglobe.ne.jp/~kana/susie_trouble.html

編集    削除

---

にしのさん、ふぐちゃんさんありがとうございます。
ファイルの更新日は表示はしていませんがミリ秒まであったんですね。
FileAge(filename)では
ミリ秒を切り上げて表示するので誤差が出るんですね。
理解できました。
ありがとうございました。

編集    削除

---

忘れてました^^;

編集    削除

---

名前

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

本文

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