夜分遅くに失礼いたします。

日付の差を時間として求める際にTimeSpanを活用すると思いますが、取得した時間を秒に変換する良い方法はないでしょうか？

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

この2つの日にちを比較した場合、得られる差は
01:30:00だと思いますが、この値を秒に変換する手段として

時間部分の数値×3600
分部分の数値×60
秒部分の数値

上記3つの値を合算して秒に換算する、位しか思い付きませんがもう少しスマートな方法はないでしょうか？

よろしくお願いします