excel vba で２つの日付時刻(文字列で取得)間の秒数を取得する方法

Question

excel の　vbaを使いデータ分析をするマクロ(簡単なもの)を作成しております。
csvファイルを読み出し、Ａ行にデータを取得した日時が記録されています。
各データと経過時間の相関を取得したいと思いましたが、日時の差分を秒で算出する方法がわかりません。
たとえば　2019/1/9 13:01:23 ・・・Ａ
2019/1/10 23:31:17 ・・・Ｂ
というデータを文字列で得られた場合に、B-Aが何秒か算出する簡単な方法は
無いでしょうか。
単純な足し算、引き算ではできそうになかったため、強引に
2019/1/9 　と　13:01:23 を　間のスペースでsplit しそれぞれ変数に格納
さらに　2019 と　1 と　9 を　"/"でsplitしそれぞれ変数に格納
13:01:23を　13 と　1 と　23 に　":"でsplitしそれぞれ変数に格納して
文字列を数値に型変換し、計算しようとしましたが、
月マタギや、年マタギ、うるう年などを考えないといけないことに気づき、
行き詰りました。

エクセルの機能を使うと引き算ができそうですが、あくまでvbaのみで解決したいです。
詳しいかた、ご教授のほどよろしくお願いします。

Answer 1

1. 各日付時刻文字列をDate型に変換する。
2. DateDiff関数で秒数指定で2つのDate型の差分を採る。

これが一番簡単かと思いますがどうでしょうか？

Public Sub test()

    Dim startTimeString As String
    Dim endTimeString As String
    
    startTimeString = "2019/1/9 13:01:23"
    endTimeString = "2019/1/9 13:05:21"
    
    ' Date型に変換
    
    Dim startTime As Date
    Dim endTime As Date
    
    startTime = CDate(startTimeString)
    endTime = CDate(endTimeString)
   
    ' DateDiffで秒指定による差分算出
       
    Dim elapsedSeconds As Long
    
    elapsedSeconds = DateDiff("s", startTime, endTime)
    
    MsgBox (elapsedSeconds)
    

End Sub

Comments

[mori_C]

DateDiff関数を使い"S"をつければよいのですね。
大変勉強になりました。
意図していたプログラムができそうです。
ありがとうございます。

Answer 2

普通の日時文字列だけでよければ、自分で頑張らずとも、CDATE関数を使ってからDATEDIFF関数でいいような？

Comments

[tatsu99]

質問者は差分の日でなく差分を秒単位で求めています。ご提示の方法は、差分を日単位若しくは月、年単位で求める方法です。

[退会済みユーザー]

DATEDIFFの第一引数に"s"を使えば秒単位も出ますよ。

[tatsu99]

失礼しました。
lazybones2000さん
が提示された方法でうまくいくことを確認しました。