delphiのtime関数について

質問

time関数について質問です。
検索してtime関数はdouble型で1899年の12月30日から現在までの日数を返すとわかったのですが、
time関数は現在時刻を返す関数とも書いてあり、ちょっと混乱しています。
これは例えば、AM6:00のことを
0.24991
PM3:00を
0.54000
のように表しているということでしょうか？

Delphiをさわりはじめて数日。プログラミング経験はVBscriptで簡単なスクリプトを２～３個組んだ程度の経験しかありませんので、わかりやすく教えていただけるとありがたいです。
time関数の数値を確認するサンプルコードなどもご教示下さるとわかりやすいです。よろしくおねがいします。

回答No.1

papayuka · ベストアンサー

はっきり言って詳しく無いですが、、（^^;

ヘルプによれば「Time は，現在の時刻を TDateTime 値で返します」とあります。
TDateTime型は「整数部を西暦1899年12月30日からの経過日数、小数部はその日の時間を示す」とあります。

procedure TForm1.Button1Click(Sender: TObject);
var myDate1,myDate2 : TDateTime;
begin
　myDate1 := Date + Time;
　myDate2 := Now;
　ShowMessage(FloatToStr(myDate1) + #10#13 + FloatToStr(myDate2));
　ShowMessage(TimeToStr(myDate1) + #10#13 + TimeToStr(myDate2));
　ShowMessage(DateToStr(myDate1) + #10#13 + DateToStr(myDate2));
end;

お礼

ありがとうございます。ヘルプはキーワード一覧でtimeが出てこないのでのっていないのかと思いました。（テキスト検索もしようとすると落ちてしまう）目次から探すとＶＣＬリファレンスのルーチン一覧にのっていました。
コード参考になります。ありがとうございました。