Excel VBA 日付(Date型)の割り算はどのようにしたらいいのでしょうか？

Question

Excel VBA でアプリケーションを作成しています。

あるサイトの閲覧時間の平均を出したいのですが、例えば、7日分の閲覧時間をData型変数に加算していって、それを7日分の平均で割るみたいな計算をするのはどうしたらいいのでしょう？

日付型に対して、加算と減算はあるのですが、掛け算、割り算はないですよね。。。

Answer 1

VBAでの日付型は
1900年01月01日00時00分00秒からの経過分を表すシリアル値です。
整数部が日数で
小数部が時分秒です。

平均を出すため、各日の閲覧時間を算出するのに下記で算出できます。

Dim Duration As Single
Dim StartDateTime As Date
Dim EndDateTime As Date

Duration = EndDateTime - StartDateTime

各算出時間を合計し、日数で割れば平均が出来ます。
但し、時分秒が小数になっていますので、
利用の仕方によっては下記の様に整数化が必要です。

Dim valAve As Single
valAve = #2:03:18 AM# ' 平均が 2時間3分18秒 の例

Dim valHours As Integer
Dim valMinutes As Integer
Dim valSeconds As Integer

valHours = Hour(valAve)     ' Int(valAve * 24)
valMinutes = Minute(valAve) ' Int((valAve * 24 - valHours) * 60)
valSeconds = Second(valAve) ' Int((((valAve * 24 - valHours) * 60) - valMinutes) * 60)

コメントにしている部分は冗長ですが
シリアル値を自分で計算する場合の計算方法です。

以上、参考になりますでしょうか？

Comments

[GiveAHand]

Aeona様

ご回答ありがとうございます。

はい。普通に割り算でいけました。

なるほど。
自分でシリアル化してもいいんですね。

ありがとうございます！

Answer 2

Excelでは、日時はシリアル値という値で管理されていて内部的には浮動小数です。

設定にもよりますが、1900年1月1日をから１日を１として、時間は小数で表しています。
なので、お昼の12時は0.5です。

つまり7日分で割りたいということであれば、7で割れば結果が出せるはずです。
私が念のため確認で簡単に書いたプロシージャを載せておきますね。

Public Sub dateTypeTest()

    Dim d As Date
    Debug.Print CDbl(d)
    
    d = d + "6:00"
    Debug.Print CDbl(d)
    
    d = d + "6:00"
    Debug.Print CDbl(d)
    
    d = d + "6:00"
    Debug.Print CDbl(d)
    
    d = d + "6:00"
    Debug.Print CDbl(d)

    Debug.Print CDbl(d / 2)

End Sub

実行結果
0
0.25
0.5
0.75
1
0.5

参考ページ
Excelで時間と数値の掛け算をする

＞ 7日分の平均で割る
を７日で割ると捉えましたが、この認識が間違って無ければの回答です。

Comments

[GiveAHand]

BJCRobot様

ご回答ありがとうございます。

なるほど。
そういう事なんですね！

普通に割り算でいけました！
ありがとうございました！

Answer 3

VBAはよくわからないのですが、扱うのは「時刻」(hh時mm分)ではなくて「時間」(h時間m分間) ですよね?
時刻から時刻を引き算して時間にした時点で、すでにDate型ではないのでは。Pythonならtimedeltaです。

そこまでくれば、普通の実数の平均と考え方は同じはず。

Comments

[GiveAHand]

matobaa様

ご回答ありがとうございます。

すいません。そうですね。
普通に割り算でいけました。

ありがとうございました。