何時間後の時間を変数に格納する方法
エクセル2003を使用しています。
今回、以下の問をといた後、最後の一工夫が、できなくて困っております。
問:ある物xを、【2010/3/7 10:00】に購入しました。
ある物xは、1時間単位で5%値上がりします。
次回購入予定日【2010/3/8 11:30】には、前回購入日より何%高くなっていますか?
また、分は切り捨てて考えるものとします。(差:2時間20分→2時間)
<やったこと>
1.ある物を購入した日をA1セルに入力する。
(【2010/3/7 10:00 書式:yyyy/m/d hh:mm】を入力しました。)
2.A2セルに未来購入予定を入力する。
(【2010/3/8 11:30 書式:yyyy/m/d hh:mm】を入力しました。)
3.A3セルに、数式:【=FLOOR(A2-A1,TIME(1,0,0))】 書式:[h] を指定しました。
→結果は、25とでております。(25時間が出たものと思われます。)
4.A4セルに、数式:A3*5 と入力し、125が出ました。書式:[h]
以上の手順により、125%物が高くなっているということがエクセルで出せたのですが、
手順3で導いた【25時間後】の【25】を数値として、VBAの変数に取り込みたいのです。
以下のコードを書いてみたのですが、1という数値が変数に格納され、25が入りません。
コード:temp = Cells(3, 1).Value
(A3セルには、25と見た目上はでています。
ですが、シリアル値は、1.0416…と表示されており、
変数には、整数部分の1が格納されているようなのです。
書式を【標準】に変えて確認しました。)
どなたか、この25時間後の【25】というものを、変数に格納する方法がわかるかたがいらっしゃいましたらご教授お願いします。
お礼
どうもありがとうございました。