TimeSpanのTotalXXXXプロパティを使うと、経過時間を日・時間・分・秒などの単位で取得することができます。これを使って経過秒を取得するのが簡単です。

秒単位で取得したい場合は、たとえば、下記のようにします。

Dim dt1 As New Date(2008, 2, 17, 18, 0, 0)

Dim dt2 As New Date(2008, 2, 17, 19, 30, 0)



Dim span As TimeSpan = dt2 - dt1

Dim seconds As Double = span.TotalSeconds



MsgBox($"経過時間は {seconds} 秒です。")

>夜分遅くに失礼いたします。
裏に人間が待機しているわけでもありませんので、いつでもお気軽に書き込んでください。