Excel VBAで時間(時刻ではなく、計測の時間)はどんな変数の型で扱うのが妥当なのでしょう。

Question

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

その再、あるサイトの表示時間を計算して、合計を出したり、平均を出したりしたいと考えています。

ただ、その時間というのは、"13分15秒"のような感じのテキストデータです。

時間の表記は3種類で、

1分

15分

99分

のうような、分だけの表記。

1秒

59秒

のような秒だけの表記。

1分13秒

78分16秒

のような、分と秒の表記の３種類です。

時刻の場合であれば、TimeValueを使って計算したらいいのかなという感じですが、これは時刻ではなく、何か扱うのに妥当な変数は無いものでしょうか？

とりあえず今思いつくのは、まずは一旦全部を秒に変換し、それをIntegerに格納して、合計やら平均やら出した後で、また分、秒を付けて元の表記に戻すこと考えていますが、もっとスマートにやる方法は無いものかなと思いまして。。。

Answer 1

時刻を扱うのであればTimeValueの戻り値と同じくDate型で良いでしょう。
単純な秒や分の数値に変換したいのであれば、DateDiff関数を使うなど工夫すれば
期待する値が得られると思います。
場合によっては、Hour, Minute, Second などの日付関数も役に立つでしょう。

'Date型利用サンプル
    Dim dtmTarget       As Date
    Dim lngSecond       As Long
    Dim lngMinute       As Long
    Dim lngHour         As Long
    Dim lngSecoendTotal As Long
    Dim lngMinTotal     As Long
    Dim lngHourTotal    As Long
    
    dtmTarget = CDate("01:02:03")
    
    lngSecond = Second(dtmTarget)                   '3
    lngMinute = Minute(dtmTarget)                   '2
    lngHour = Hour(dtmTarget)                       '1
    
    lngSecoendTotal = DateDiff("s", 0, dtmTarget)   '3723
    lngMinTotal = DateDiff("n", 0, dtmTarget)       '62
    lngHourTotal = DateDiff("h", 0, dtmTarget)      '1

Comments

[GiveAHand]

nakit様

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

時間の計算について、時刻と同じでいいとの事なのですが、ただ、表記としては分と秒だけで、59分を過ぎた場合でも、1時間とならず、60分、61分と増やしていきたいのですが、その場合でも、これらの関数でいいのでしょうか？

[nakit]

良いと思ってサンプル付きで回答しました。
サンプルに記載しました通り「DateDiff("n", 0, 日付型の値)」で得られる値が
期待値(単位が分の数値)として使えると思いますが違うのでしょうか。

[GiveAHand]

nakit様

大変失礼致しました！
サンプルどおりでうまくいきました！

本当にここまでしてくださって、助かりました。
ありがとうございました！

Answer 2

やり方はいろいろあるので、あくまでも好みの問題ですが、そもそも処理対象の「時刻データ」がどのような形式でインプットされるかによっても、方針が変わるかもしれません。

まずは一旦全部を秒に変換し、それをIntegerに格納して、合計やら平均やら出した後で、また分、秒を付けて元の表記に戻す

というのも一つの方法ですが、「一旦秒に変換する」というのも手間が掛かりますよね？

折角Excelを使うのであれば「時刻の計算」にもExcelの機能を利用出来た方が、プログラムの可読性やメンテナンス性も良くなるのではないでしょうか？（と、個人的には考えます）

Excelでは、日付・時刻をシリアル値で表すのが基本ですから、TimeValue関数でバリアント型の値に変換しておけばそのまま計算できますし、グラフ化したりする場合にも都合が良いと思います。

これは時刻ではなく

とのことですが、時刻も時間の長さ（２つの時刻の間隔）も、人間にとっての意味合いは異なるとしても、計算上の「数値」としては全く同じですので、「Excelを使用するのであれば」シリアル値で表すのが自然だと思います。

Comments

[GiveAHand]

pi-chan様

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

あと、ひとつお聞きしたいのですが、
表記としましては、分と秒だけで、例えば59分以上は、
1時間とならず、60分、61分とあとはどれだけ増えても分で増やしていきたいのですが、その場合でも、TimeValueで大丈夫なのでしょうか？