プログラム内での時間の扱い方について

質問

(1)14時30分(2)16時00分という情報をプログラム内ではInteger型で、それぞれ「1430」「1600」と表しています。
このとき、(1)と(2)の差を計算してDouble型で「1.5」という解を取得したいのですが、どういった計算方法（又は型変換）をすれば求められるでしょうか？
宜しくお願いします。

回答No.1

Wendy02 · ベストアンサー

こんにちは。
こんな程度でよいのではないかと思います。

Sub TEST1()
　Dim A As Integer, B As Integer, C As Double
　Dim a1 As Double, b1 As Double
　A = 1430
　B = 1600
　a1 = Left(A, 2) + Right(A, 2) / 60
　b1 = Left(B, 2) + Right(B, 2) / 60
　C = b1 - a1
End Sub

お礼

これで十分です。
ありがとう御座いました。

回答No.2

kinuyama1002

すいません、言語は何ですか？
VB6 ですか? VBScript ですか? VB.NET ですか？

補足

VBAです。