何時間後の時間を変数に格納する方法

質問

エクセル２００３を使用しています。

今回、以下の問をといた後、最後の一工夫が、できなくて困っております。

問：ある物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】というものを、変数に格納する方法がわかるかたがいらっしゃいましたらご教授お願いします。

回答No.2

mo2yakko · ベストアンサー

ValueではなくTextで取得して見てください。
Cells(3, 1).Text
です。

お礼

教えていただいた通りしてみたところ完璧でした。非常に助かりました。
ありがとうございました。

回答No.3

mimeu

Sub test()
　　Dim d1 As Date, d2 As Date, i0 As integer
　　d1 = Range("A1")
　　d2 = Range("A2")
　　i0 = DateDiff("h", d1, d2)
　　MsgBox i0
End Sub

お礼

datediffという関数で差をだすのですか。
勉強になりました。ありがとうございました。

回答No.1

KURUMITO

Ａ３セルに値はシリアル値です。したがって日単位であると考えることになります。次のように式を直すことでしょう。
temp = Cells(3, 1).Value * 24
この値を５倍したものが１２５になりますね。
ところで１時間当たり５％の値上がりは２５時間後では 1.05^25で3.39倍になるように思うのですが違うのですね。

お礼

すみません、なぜかうまく出来ませんでした。
今回は、mo2yakko様の内容で、うまく出来ましたので、
そちらで行こうと思います。
ありがとうございました。