VB 時間計算秒編

S8700 2006-09-05 07:46:44 No: 96485

時間計算で質問がございますので、ご指導お願いいたします。
22.5秒＋22.5秒=45秒といった計算をしたいのですが、
どのようにしたら、計算できますでしょうか？
22秒であれば計算はできるのですが。。。

Dental 2006-09-05 10:31:10 No: 96486

秒数の加算なら、単純に、
  a = 22.5
  b = 22.5
  c = a + b
で済みますよね。

で、「数値」ではなく「時間」として計算したいのであれば、
VB.NET の TimeSpan 型を使えば問題ないかと。

# ちなみに Date 型は、(時間ではなく) 時刻を管理する型です。

S8700 2006-09-05 20:17:41 No: 96487

ご指導ありがとうございます。
.NETではなく、VB SP6での関数はございますでしょうか？
CDate("2006/09.05 00:00:22.5")はエラーとしてなってしまいます。

K.J.K. 2006-09-05 20:59:37 No: 96488

中で何をしているのかを考えたら、こういうコードでもありかと。
# このまま使うのは無駄です。

    Dim f1sec As Double
    Dim f22hsec As Double
    Dim dDate As Date

    f1sec = 1# / (24# * 60# * 60#)
    f22hsec = f1sec * 22.5

dDate = f22hsec + f22hsec
Debug.Print CStr(dDate)

VB 時間計算 秒編