掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
時間を取得するには (ID：35553)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
こんには．Mr.XRAYです． 既にレスがありますが，以下でもいけそうです． テスト環境は，Windows XP(SP3) + Delphi 7 Pro です． TDateTime型がDoubleのために生じる誤差ではないかと思われます． そこで，DaySpan関数で計算した結果を用いるようにしてみました． procedure TForm1.Button1Click(Sender: TObject); var Dt1 : TDateTime; Dt2 : TDateTime; SpanDay : Double; Dt3 : Word; begin Dt1 := StrToDateTime('2009/08/31 00:00:00'); Dt2 := StrToDateTime('2009/08/31 01:00:00'); SpanDay := DaySpan(Dt1,Dt2); Dt3 := HourOf(SpanDay); ShowMessage('Dt3 = ' + IntToStr(Dt3)); end; 参考URL http://mrxray.on.coocan.jp/bbs/DelphiBBS/mrxray_delphifan_coffe.cgi?tree=s1063#1063
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.